Bonjour,
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
Merci de votre aide
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
Merci de votre aide