Bouton Formulaire de saisie avec message de confirmation

Question

Bonjour, 

J'ai crée un formulaire de saisie avec un bouton "Enregistrer" permettant de copier les données dans ma feuille nommée "Base". 

Seulement, je souhaiterais qu'avant la copie des données, c'est à dire après avoir cliquer sur le bouton "Enregistrer", obtenir un message de type "Voulez-vous enregister la saisie?".
-Si je répond "Oui" les données sont enregistrées
-Si je répond "Non" je quitte le formulaire de saisie

Merci pour votre aide.


Configuration: Windows 7 / Internet Explorer 8.0

Polux31 · Answer

Bonjour,

A adapter selon le besoin:

Private Sub CommandButton1_Click()
Dim rep As Integer

rep = MsgBox("Voulez-vous enregister la saisie ?", vbYesNo, "Enregistrement")
    
    If rep = vbYes Then
        'code pour insérer les données
    Else
        Unload Me 'Fermeture du formulaire
    End If
    
End Sub

Bouton Formulaire de saisie avec message de confirmation

1 réponse

Votre réponse

Discussions similaires

Newsletters