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