laurentdu24
XLDnaute Nouveau
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
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