Msgbox

Résolu
benzi Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -  
benzi Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 725
 
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
Réponse 2 / 2
benzi Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir,

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

Dan
0

Discussions similaires

[VB]MsgBox avec variable
Reese -
Anonymatum -

5 réponses
afficher MessageBox avec java
lion0071 -
lion0071 -

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

4 réponses
[macro openoffice] programmation d'un msgbox
Didier61 -
Didier61 -

6 réponses
afficher le contenu d'une variable sur un msgbox
didihak -
LaurentMtns -

1 réponse