pbme adaptation macro

meldja

XLDnaute Impliqué
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

XLDnaute Barbatruc
Re : pbme adaptation macro

Bonsoir,
avec cette instruction :

Code:
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 :

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

tu les rends toutes visibles
 

Discussions similaires

Réponses
6
Affichages
191

Statistiques des forums

Discussions
312 894
Messages
2 093 379
Membres
105 712
dernier inscrit
CARLO 82