message de confirmation avant action de la macro

[pascal21]

Sub effacer_données()

' effacer_données Macro
' Macro enregistrée le 29/03/2007 par pascal
 Range("C4:K202").Select
    Selection.ClearContents
    Range("b4").Select
End Sub

bonsoir
j'ai crée cette macro pour effacer des données, avec l'enregistreur de macro mais j'aimerais avoir un message me demandant de confirmer cette action
comment faire merci

 

[bqtr]

Re : message de confirmation avant action de la macro

Bonsoir Pascal,

Essaye ceci :

Sub effacer_données()

' effacer_données Macro
' Macro enregistrée le 29/03/2007 par pascal
reponse = MsgBox("Confirmer la suppression", vbYesNo + vbExclamation, "Suppression")
If reponse = vbYes Then
  Range("C4:K202").ClearContents
  Range("b4").Select
Else
  Exit Sub
End If
End Sub

Bonne soirée

 

[pascal21]

Re : message de confirmation avant action de la macro

ok merci beaucoup pour ton aide

 

[pascal21]

Re : message de confirmation avant action de la macro

ça ne fonctionne pas
j'ai un message "variable non définie"

 

[CB60]

Re : message de confirmation avant action de la macro

Bonsoir
tu peux nommer ta variable :
dim reponse ( elle prendra la valeur en variant) et ensuite cela fonctionne

Ps comme les autres l'indique en dessous c'est mieux sans variable

Sub effacer_données()
dim reponse
' effacer_données Macro
' Macro enregistrée le 29/03/2007 par pascal
reponse = MsgBox("Confirmer la suppression", vbYesNo + vbExclamation, "Suppression")
If reponse = vbYes Then
Range("C4:K202").ClearContents
Range("b4").Select
Else
Exit Sub
End If
End Sub​

 

[wilfried_42]

Re : message de confirmation avant action de la macro

bonjour à tous

if MsgBox("Confirmer la suppression", vbYesNo + vbExclamation, "Suppression")= vbno then exit sub

pas besoin de rajouter de variable

 

[pascal21]

Re : message de confirmation avant action de la macro

ok merci cb60 mais peux-tu préciser comment je fais cela
sur quelle ligne
merci

 

[Compte Supprimé 979]

Re : message de confirmation avant action de la macro

Bonsoir tout le monde 🙂

Voilà ton code avec la modif, comme le dis Wilfried, pas besoin de variable !
Tant que l'on peut s'en passer, autant le faire.

[LEFT]Sub effacer_données()

' effacer_données Macro
' Macro enregistrée le 29/03/2007 par pascal
If Msgbox("Voulez-vous effacer vos données de C4:K202 ?", vbQuestion+vbYesNo,"SUPPRESSION ?")=vbYes then
 Range("C4:K202").ClearContents
End If
 Range("b4").Select
End Sub[/LEFT]

Voilà 😉

 

[pascal21]

Re : message de confirmation avant action de la macro

ok merci ça fonctionne