Bonjour,

j'ai des boutons pour cacher des lignes. j'ai récupéré cette macro d'un vieux travail et je ne sais plus comment retirer le caption dynamique (hidden et displayed). voir macro plus bas.

merci pour votre aide...




Sub Action(NomBouton As String, Plage As String)
Dim bout As ToggleButton
Application.ScreenUpdating = False
ActiveSheet.Unprotect

With ActiveSheet.OLEObjects(NomBouton).Object
If .Value Then .Caption = "Hidden" Else .Caption = "Displayed"
ActiveSheet.Range(Plage).EntireRow.Hidden = .Value
ActiveSheet.Protect
End With
End Sub

Private Sub ToggleButton1_Click()
Action "ToggleButton1", "A7:A28"
End Sub

Private Sub ToggleButton2_Click()
Action "ToggleButton2", "A29:A50"
End Sub

Configuration: Windows XP
Safari 532.0