Le
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Brat'ac
Le #26542239
MichD a exposé le 03/04/2020 :
Dans le ThisWorkbook du projetVBA du classeur, colle cette procédure.
Attention : tu dois adapter le nom des onglets des feuilles dans la
procédure.
'-----------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case Is = "Feuil1"
MsgBox "Message pour la feuil1", _
vbInformation + vbOKOnly, "Mon Message"
Case Is = "Feuil2"
MsgBox "Message pour la feuil2", _
vbInformation + vbOKOnly, "Mon Message"
'Tu peux faire cela pour toutes les
'feuilles du classeur au besoin
End Select
End Sub
'-----------------------------
MichD

Merci
Publicité
Poster une réponse
Anonyme