Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affichage userform

W

Wan

Guest
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

XLDnaute Barbatruc
Membre du Staff
Bonjour

cela passera mieux comme cela

cordialement, A+
Code:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…