Recherche

Avec une macro. Ou plus exactement, avec deux macros, l'une pour masquer les lignes sélectionnées, l'autre pour afficher toutes les lignes du tableau.

Notez que la fonction Masquer n'existe pas. La première macro met à 0 la hauteur des lignes sélectionnées, la seconde donne une hauteur automatique à toutes les lignes du tableau.

Il suffira d'affecter un raccourci clavier à chacune des macros, ou bien à installer deux boutons sur la barre d'outils ou dans le ruban.

 Sub masque()
'macro écrite par m@rina
If Selection.Rows.Height > CentimetersToPoints(0.3) Then
Selection.Rows.Height = CentimetersToPoints(0.02)
Selection.Rows.HeightRule = wdRowHeightExactly
End If
End Sub

Sub affiche()
'macro écrite par m@rina
Dim tablo As Table
Set tablo = Selection.Tables(1)
tablo.Rows.HeightRule = wdRowHeightAtLeast
End Sub

Statistiques

France 66,8% France
Chine 8,2% Chine
États-Unis d'Amérique 5,5% États-Unis d'Amérique

Total:

180

Pays
018543769
Aujourd'hui: 18
Hier: 523
Cette semaine: 1.510
Semaine dernière: 3.928
Ce mois: 18