Re : Message quand clic sur feuille
Merci Pat,
J'ai mis :
Private Sub Worksheet_Activate()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Pensez à éteindre la lumière! " ' Définit le message.
Style = vbYes + vbCritical ' Définit les boutons.
Title = "A T T E N T I O N " ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
End Sub
Pablo.