Msgbox

Résolu
benzi Messages postés 84 Statut Membre -  
benzi Messages postés 84 Statut Membre -
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 Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
  2. benzi Messages postés 84 Statut Membre 1
     
    Bonsoir,

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

    Dan
    0

Discussions similaires

[macro openoffice] programmation d'un msgbox
Didier61 -
Didier61 -

6 réponses
[VB]MsgBox avec variable
Reese -
Anonymatum -

5 réponses
Msgbox dans un .bat
angel77167 -
angel77167 -

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

11 réponses
Afficher une msgbox si saisie valeur
noemarto -
jordane45 -

3 réponses