bloquer le lancement de la macro par un avertissement

j'ai créé une macro "supprime les valeurs d'une plage de cellule" mais au début de la macro, je voudrais demander avec 1 boutton "oui ou non" comme réponse pour demander si le document a été imprimer ou sauvegarder avant de continuer la macro.

voici ma macro

Code:

---

1 2 3 4 5 6 7 8

Sub RAZ() Dim OB As OLEObject   For Each OB In Feuil1.OLEObjects If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False Next OB Range("F4:f42").ClearContents End Sub

---

Bonjour

Code:

---

1 2 3 4 5

If MsgBox("Etes-vous certain de vouloir supprimer les valeurs ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then   'Ton code   End If

---

Cordialement,

la réponse de non éfface les données à la place de revenir à la feuille.

Code:

---

1 2 3 4 5 6 7

If MsgBox("Etes-vous certain de vouloir supprimer les valeurs ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then   RAZ   Else   End If

---

Si tu cliques sur oui, ça supprime puisque tu as la condition vbYes,
Si c'est non sa quitte...

la marco ne fonctionne pas comme vous le dites. si je clicle sur non la macro continue de supprimer les cellules.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub RAZ() If MsgBox("Avez-vous imprimer ou suvegarger le contrôle avant de supprimer les renseignements?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then   End If Dim OB As OLEObject   For Each OB In Feuil1.OLEObjects If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False Next OB Range("F9:f28").ClearContents   End Sub

---

Bonjour à tous,

En adaptant la proposition donnée à deux reprises par jackborogar, qui sont toutes les deux bonnes, mais qu'il fallait insérer au bon endroit dans ta procédure ou dans une autre.

Là, tel que c'est ecrit, ça fonctionnera.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub RAZ()   If MsgBox("Avez-vous imprimé ou sauvegardé le contrôle avant de supprimer les renseignements?", vbYesNo + vbQuestion, "Demande de confirmation") = vbNo Then Exit Sub   Dim OB As OLEObject   For Each OB In Feuil1.OLEObjects If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False Next OB Range("F9:f28").ClearContents   End Sub

---

cordialement