Msgbox

Résolu
benzi -  
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

  1.  gbinforme Contributeur
    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

    Discussions similaires

    [macro openoffice] programmation d'un msgbox
    Didier61

    6 réponses
    [VB]MsgBox avec variable
    Reese

    5 réponses
    Afficher une msgbox si valeur dans une cellule
    myke59

    5 réponses
    Msgbox dans un .bat
    angel77167

    4 réponses
    Revenir à la ligne dans code VBA
    Meldja

    11 réponses