Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

macro executé automatiquement à l'activation d'une feuille.

3 réponses
Avatar
Alfred Wallace
Bonsoir (re)

j'ai un fichier excel avec 5 ou 6 feuilles

existetil un moyen pour que, à l'ouverture de chaqune des
feuille (à l'activation) une macro spécifique démarre ?


Merci

José

3 réponses

Avatar
LSteph
Bonsoir Alfred,
l'évènement activate sert à cela.
Il existe en private sub de Worksheet (s'il s'agit d'une macro réagissant
spécifiquement à une feuille)
...de Workbook_SheetActivate(s'il s'agit d'une macro réagissant à
l'activation de toute feuille du classeur )

lSteph
"Alfred Wallace" a écrit dans le message de news:
43e7c802$0$29182$
Bonsoir (re)

j'ai un fichier excel avec 5 ou 6 feuilles

existetil un moyen pour que, à l'ouverture de chaqune des
feuille (à l'activation) une macro spécifique démarre ?


Merci

José


Avatar
michdenis
Bonjour Alfred,

Tu peux utiliser ce type de procédure dans le ThisWorkbook de ton classeur :

L'utilisation de la propriété CodeName représente le "NOM" de l'objet
"Worksheet" visible dans l'arborescence du projetVBA

'--------------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Select Case Sh.CodeName
Case Is = "Feuil1"
'Le code a exécuté
MsgBox Sh.Name
Case Is = "Feuil2"
MsgBox Sh.Name
'Le code a exécuté
Case Is = "Feuil3"
MsgBox Sh.Name
'Le code a exécuté
End Select

End Sub
'--------------------------------------------


Salutations!



"Alfred Wallace" a écrit dans le message de news: 43e7c802$0$29182$
Bonsoir (re)

j'ai un fichier excel avec 5 ou 6 feuilles

existetil un moyen pour que, à l'ouverture de chaqune des
feuille (à l'activation) une macro spécifique démarre ?


Merci

José
Avatar
Alfred Wallace

Bonjour Alfred,

Tu peux utiliser ce type de procédure dans le ThisWorkbook de ton classeur :

L'utilisation de la propriété CodeName représente le "NOM" de l'objet
"Worksheet" visible dans l'arborescence du projetVBA

'--------------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Select Case Sh.CodeName
Case Is = "Feuil1"
'Le code a exécuté
MsgBox Sh.Name
Case Is = "Feuil2"
MsgBox Sh.Name
'Le code a exécuté
Case Is = "Feuil3"
MsgBox Sh.Name
'Le code a exécuté
End Select

End Sub
'--------------------------------------------


Hum, je vais tester ceci aujourd'hui, merci pour ton aide.

José