Affichage userform

[Wan]

Bonsoir à tous !

Je suis sur un projet mais j'ai besoin de votre aide !

Je veux qu'une macro s'exécute à l'ouverture du classeur pour chaque feuille visible dans le classeur malgré quelque unes qui sont masquées.

Workbook_open()
dim c as Sheets

For each in ActiveWorkbook
if c.visible = true then
c.select
msgbox ' La feuille ' & c & ' est activée '
end if
next c

end sub

Je ne sais si ce code peut marché.

 

[Bernard_XLD]

Bonjour

cela passera mieux comme cela

cordialement, A+

Private Sub Workbook_Open()
Dim c As Worksheet

For Each c In ThisWorkbook.Sheets
If c.Visible = True Then
c.Select
MsgBox ' La feuille ' & c.Name & ' est activée '
End If
Next c

End Sub

 

[Wan]

Je te remercie ça fonctionne !!

Wan