Dim ws As Worksheet
For Each ws In Worksheets
ws.Shapes(...............
Next ws
Sub Administration()
Dim Cel As Range
Application.ScreenUpdating = False
With Feuil17.Shapes("Button 7").TextFrame.Characters
If .Text = "Masquer" Then
.Text = "Personnel"
Range("14:66").EntireRow.Hidden = True
Else
.Text = "Masquer"
For Each Cel In Range("A14:A66")
If Trim(Cel) <> "" Then Rows(Cel.Row).Hidden = False
Next Cel
End If
End With
End Sub
Sub Administration()
Dim Cel As Range, ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
With ws.Shapes("Button 7").TextFrame.Characters
If .Text = "Masquer" Then
.Text = "Personnel"
ws.Range("14:66").EntireRow.Hidden = True
Else
.Text = "Masquer"
For Each Cel In ws.Range("A14:A66")
If Trim(Cel) <> "" Then ws.Rows(Cel.Row).Hidden = False
Next Cel
End If
End With
Next ws
End Sub
Re,
tu as bien un bouton sur toutes les feuilles ??? et ils portent tous le même nom ???
c'est une boutade ou tu es sérieux ?Je transmet en pièce jointe mon document. merci de ne pas voler mon code (la boite ou je boss me truciderais)
Si on se fie au fichier jointtu as bien un bouton sur toutes les feuilles ??? et ils portent tous le même nom ???