pbme adaptation macro

[meldja]

Bonjour,
J'avais miraculeusement réussi à adapter deux macros (une pour masquer et l'autre pour afficher des lignes vides) à un ToggleButon.
Entre temps, j'ai trouvé une macro qui me semblait faire la même chose avec un code 4 fois plus court. J'ai donc remplacé mon ancien code.
Il se trouve que ce nouveau code plante.
Je souhaiterai donc récupérer mon ancien code (moins joli mais qui plantait pas).
Voici les 2 macros que j'aimerais adapter à un ToggleButon :

Private Sub CommandButton1_Click()
Dim J As Long
Dim Plage As Range
Set Plage = Range("g3", Range("g141"))
For J = Plage.Cells.Count To 1 Step -1
If Plage.Cells(J).Value = "" Then
Plage.Cells(J).EntireRow.Hidden = True
End If
Next
Range("a1").Select
End Sub

Private Sub CommandButton2_Click()
Rows("3:141").Select
Selection.EntireRow.Hidden = False
Range("a1").Select
End Sub

Si possible, j'aimerais aussi leur attribuer un nom (caption) différent en fonction de l'action (affiche ou masque).
Merci d'avance

 

[Cousinhub]

Re : pbme adaptation macro

Bonsoir,
avec cette instruction :

Range("G3:G141").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

tu masques les lignes dont la cellule de la colonne G est vide, entre les lignes 3 et 141

avec celle-ci :

Range("G3:G141").EntireRow.Hidden = False

tu les rends toutes visibles