Message lors de l'ouverture d'une feuille

Salut Chris,

Quelque chose du genre :

Private Sub Worksheet_Activate()
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Clique avec le bouton droit de ta souris sur l'onglet de ta feuille et
sur «Visualiser le code». Colle alors la macro ci-haut jointe.

Serge

"Chris" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0eb001c4260a$76e3de30$a501280a@phx.gbl...
Bonjour,

Je cherche à faire apparaitre un message lors de
l'ouverture d'une feuille.
Quelqu'un pourrait-il me communiquer le code à utiliser?
Merci d'avance.

Bonjour Chris
Par "ouverture d'une feuille", tu veux sans doute dire Classeur ?
A placer dans le code de Thisworkbook :
Clic droit sur l'icône d'Excel située à gauche du menu Fichier
Visualiser le code
Coller le code exemple ci-dessous
Private Sub Workbook_Open()
MsgBox "Ceci est mon message perso pour l'ouverture", vbInformation,
"Exemple"
End Sub

sinon, s'il s'agit de la feuille :
Clic droit sur l'onglet de la feuille
Visualiser le code
Coller le code ci-dessous
Private Sub Worksheet_Activate()
MsgBox "Ceci est mon message perso pour l'ouverture", vbInformation,
"Exemple"
End Sub

Cordialement
Pascal

"Chris" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0eb001c4260a$76e3de30$a501280a@phx.gbl...
Bonjour,

Je cherche à faire apparaitre un message lors de
l'ouverture d'une feuille.
Quelqu'un pourrait-il me communiquer le code à utiliser?
Merci d'avance.

Et pour que le message apparaisse pour
toute feuille sélectionnée :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Serge


"garnote" <rien@absent.net> a écrit dans le message de news:
zOPgc.48805$dg7.35670@edtnps84...

Salut Chris,

Quelque chose du genre :

Private Sub Worksheet_Activate()
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Clique avec le bouton droit de ta souris sur l'onglet de ta feuille et
sur «Visualiser le code». Colle alors la macro ci-haut jointe.

Serge

"Chris" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0eb001c4260a$76e3de30$a501280a@phx.gbl...
Bonjour,

Je cherche à faire apparaitre un message lors de
l'ouverture d'une feuille.
Quelqu'un pourrait-il me communiquer le code à utiliser?
Merci d'avance.

Bonjour Garnote,

Pourquoi ne pas utiliser la variable contenu dans la déclaration de la procédure :

MsgBox "Vous venez d'activer la feuille nommée : " & Sh.Name


Salutations!


"garnote" <rien@absent.net> a écrit dans le message de news:ITPgc.48814$dg7.47648@edtnps84...
Et pour que le message apparaisse pour
toute feuille sélectionnée :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Serge


"garnote" <rien@absent.net> a écrit dans le message de news:
zOPgc.48805$dg7.35670@edtnps84...

Salut Chris,

Quelque chose du genre :

Private Sub Worksheet_Activate()
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Clique avec le bouton droit de ta souris sur l'onglet de ta feuille et
sur «Visualiser le code». Colle alors la macro ci-haut jointe.

Serge

"Chris" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0eb001c4260a$76e3de30$a501280a@phx.gbl...
Bonjour,

Je cherche à faire apparaitre un message lors de
l'ouverture d'une feuille.
Quelqu'un pourrait-il me communiquer le code à utiliser?
Merci d'avance.

Salut Denis,

Je n'avais même pas remarqué cette déclaration :-(
En tout cas, merci de m'ouvrir les yeux :-)

Serge

Bonjour Garnote,

Pourquoi ne pas utiliser la variable contenu dans la déclaration de la
procédure :

MsgBox "Vous venez d'activer la feuille nommée : " & Sh.Name


Salutations!

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Vous venez d'activer la feuille nommée : " & ActiveSheet.Name
End Sub

Serge