user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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.3Then
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

Aujourd'hui518
Hier1323
Cette semaine15308
Ce mois59970
Total depuis 200414832947

9
visiteurs actuellement en ligne

26 mars 2023