D'avance je présente mes excuses si il y a redite mais le cas est plus compliqué qu'il n'y parait.
Comment mêler un Private Sub Workbook_Open() et un Private Sub Workbook_SheetActivate(ByVal Sh As Object) ?
J'explique : dans un classeur, j'active à l'ouverture une macro pour taper plus facilement des heures au clavier (Workbook_Open) mais je veux afficher à la feuille "Sal 09" un message "ne pas oublier la DIMONA".
J'ai ceci Private Sub Workbook_Open()
Application.OnKey "{F1}", "zoom"
Application.OnKey "{F3}", "points"
End Sub
Et ceci Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then MsgBox "ne pas oublier la DIMONA"
End Sub
Re : Afficher message (1X) si clic sur une feuille
Bonjour Hervé
Tu peux forcer l'affichage d'une autre feuille à l'ouverture pour afficher ensuite le message à l'activation de "sal 09":
Code:
Private Sub Workbook_Open()
[COLOR=Red]Sheets("Feuil1").Activate 'Feuil1 à adapter[/COLOR]
Application.OnKey "{F1}", "zoom"
Application.OnKey "{F3}", "points"
End Sub