Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui332
Hier1383
Cette semaine332
Ce mois33595
Total depuis 200410769003

20
visiteurs actuellement en ligne