Annuler l'action d'un bouton
Bonjour,
Je cherche à empecher un bouton d'effacer les cellules si l'utilisateur ne veut pas au final effacer son formulaire.
Voici le code :
Private Sub CommandButton3_Click()
If MsgBox("Etes-vous sur de vouloir effacer le formulaire ?", vbYesNo, "Effacer le formulaire") = vbYes Then
Application.Undo
End If
Range("L8").ClearContents
Range("L10").ClearContents
Range("O8").ClearContents
Range("O10").ClearContents
Range("S8:S11").ClearContents
Range("L15:L16").ClearContents
Range("L20:L25").ClearContents
Range("O20:O24").ClearContents
Range("L39").ClearContents
Range("R39").ClearContents
Range("L42:L45").ClearContents
Range("O42:O43").ClearContents
Range("L48:L58").ClearContents
Range("O57:O58").ClearContents
Je ne sais pas si j'ai été très clair, merci d'avance pour votre aide.
Bonjour ArTcOhh, le forum,
Peut-être ainsi.....
Private Sub CommandButton3_Click()
If MsgBox("Etes-vous sur de vouloir effacer le formulaire ?", vbYesNo, "Effacer le formulaire") = vbYes Then
Range("L8,L10,O8,O10,S8:S11,L15:L16,L20:L25,O20:O24,L39,R39,L42:L45,O42:O43,L48:L58,O57:O58").ClearContents
End If
End SubEDIT: ...salut X Cellus
Cordialement,
Bonjour ArTcOhh,
A remplacer par
Rep=MsgBox("Etes vous sur...etc, vbYesNo, "Effacer...etc")
if Rep=vbNo Then Exit Sub
Range("L8").ClearContents
etc...Bonne continuation.
Merci beaucoup, je ne pensais pas qu'il suffisait juste de faire ça ....
Suite,
bonjour Xorsankukai]
Comme quoi, tu auras le choix entre le oui ou le non. Ou un mixte du code.
Le range global sera mieux, cela t'évitera des répétitions.