message box avec option OK annuler ou OUI / NON ne marche pas comme il faut !

[laurentdu24]

Bonjour,

Je voudrais que lorsque l'utilisateur clique sur nouvelle etyude (commandbutton1)
le message "êtes vous sur de tout supprimer ?" apparaisse.
Avec possibilité de cliquer sur OK ou annuler. ou bien Oui / Non.

J'ai fait le code suivant, et j'arrive à tout faire sauf que mon msgbox ne me propose pas oui non ou OK annuler, mais seulement OK.
Donc impossible d'annuler la démarche.

Private Sub CommandButton1_Click()
rep = msgbox("Vous souhaitez effacer les données saisies ?", vbExclamation, vbYesNo)
If rep = vbYes Then
msgbox "tout est effacé"
sheets("feuil1").range("G3,D23").ClearContents
sheets("feuil1").Select
Else
msgbox "Les données saisies ont été conservées"
End If
End Sub

Merci de votre aide.

Laurent

Très cordialement.

Laurent

 

[laurentdu24]

Re : message box avec option OK annuler ou OUI / NON ne marche pas comme il faut !

J'ai aussi essayé
vbokcancel
vbyesnocancel.

Rien ne change.
j'ai l'impression que je paramètre mal la ligne msgbox, mais je ne trouve pas l'erreur.

Merci de votre aide.

 

[Modeste]

Re : message box avec option OK annuler ou OUI / NON ne marche pas comme il faut !

Bonjour laurentdu24,

j'ai l'impression que je paramètre mal la ligne msgbox

Accessoirement tu ne postes pas non plus au bon endroit tu es dans la partie sur l'Utilisation du forum

Pour ta question, supprime ', vbExclamation', de manière que ton vbYesNo soit bien le second argument de la fonction (et pas le troisième!)

 

[mromain]

Re : message box avec option OK annuler ou OUI / NON ne marche pas comme il faut !

Bonjour laurentdu24, Luc


Une autre solution :

rep = MsgBox("Vous souhaitez effacer les données saisies ?", vbExclamation + vbYesNo)

A+