bonjour MARIE74 , le forum essaie ce code Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ' attention action irreversible'
End Sub' salutations
Merci de votre aide mais pouvez vous m'expliquer ou je dois mettre
le code
Private Sub CommandButton1_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ' attention action irreversible'
End Sub'