Empêcher la Message Box d'effacer les champs déjà saisis

Bonjour à tous,

Débutant en VBA j'ai créé un UsF dont certains champs doivent être impérativement renseignés.

Je fais donc apparaître une message box . Lorsque l'utilisateur clique sur ok pour fermer la message box, tous les champs déjà remplis sont effacés du formulaire, ce qui l'oblige à tout retaper.

Je souhaiterais éviter cela, quelles seraient les alternatives ?

Voici un extrait du code de la partie concernée:

Private Sub CB_Ajout_Click() ' BOUTON AJOUTER

If ComboTitre.Value = "" Then

MsgBox "Veuillez renseigner le champ 'Titre' du produit "

Else

If ComboCategorie.Value = "" Then

MsgBox "Veuillez attribuer une Catégorie "

Else

Merci pour votre aide

Bonsoir FeuFeu44, le forum,

Peut-être ainsi:

Private Sub CB_Ajout_Click() ' BOUTON AJOUTER
If ComboTitre.Value = "" Then MsgBox "Veuillez renseigner le champ 'Titre' du produit ": exit sub

If ComboCategorie.Value = "" Then MsgBox "Veuillez attribuer une Catégorie ": exit sub

...
end sub

Cordialement,

merci xorsankukai,

Je vais étudier ça et vous tiens au courant

Excellent ça fonctionne nickel xorsankukai

Merci beaucoup pour votre aide