Discussion :

[natlim87]

Bonjour,

Je crée un devis sous excel avec en corps de devis 105 lignes (nombre maximal de lignes que l'utilisateur pourra utiliser)
J'ai créé grâce aux infos trouvées sur ce forum la macro suivante avec un bouton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub masquer_ligne_vide()
Dim cel As Range
For Each cel In Range("A37:A105")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
 
End Sub

qui me permet de ne pas afficher les lignes vides pour ne pas éditer les liges vides à l'impression

Je souhaite créer un deuxième bouton pour annuler cette macro et afficher toutes les lignes. Mais je sèche...

Merci de votre aide

Nathalie

[Philippe Tulliez]

Bonjour,
Il suffit d'inverser la valeur booléenne de la propriété Hidden

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cel = "" Then cel.EntireRow.Hidden = Not cel.EntireRow.Hidden

Ainsi quand tu lanceras la macro, si les lignes sont masquées elles s'afficheront et si elles sont visibles ce sera l'inverse
Je te conseille pour éviter l'effet de flash de placer en début de programme la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

et remettre à True en fin de procédure même si ce n'est pas obligatoire