Msgbox

Résolu/Fermé
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 4 mai 2010 à 21:07
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 5 mai 2010 à 20:41
Bonjour à tout le monde,

J'ai crée un bouton Effacer pour effacer des données dans des cellules mais avant je voudrai ajouter une msgbox d'avertissement avec 2 boutons oui/non. Si on clic sur oui tout s'efface, si sur non rien ne s'efface. Le souci c'est que je clic sur oui ou sur non tout s'efface quand même. Comment faire?
Merci de vos réponses.
Dan

2 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 688
Modifié par gbinforme le 4/05/2010 à 22:28
bonjour

Comme ceci cela devrait effectuer ta fonction
Public Sub Effacer() 
Dim reponse 
reponse = MsgBox("Voulez-vous effacer ?", vbYesNo) 
If reponse = vbYes Then [plage].ClearContents 
End Sub


Toujours zen
0
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 1
5 mai 2010 à 20:41
Bonsoir,

Merci pour ta réponse, c'est Ok.

Dan
0