Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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é
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" <jose6a@yahoo.fr> a écrit dans le message de news:
43e7c802$0$29182$8fcfb975@news.wanadoo.fr...
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 ?
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é
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é
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" <jose6a@yahoo.fr> a écrit dans le message de news: 43e7c802$0$29182$8fcfb975@news.wanadoo.fr...
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 ?
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é
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é
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.
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.