[VBA] URGENTsvp!!! procédure d'enregistrement

Résolu/Fermé

grace - 8 juil. 2008 à 16:13
grace - 8 juil. 2008 à 17:22

Bonjour,

j'ai créé un formulaire permettant de remplir une base de données Excel. Lors de l'enregistrement des données (opérateur click sur le bouton "enregistrer") je souhaite que l'on affiche un message d'erreur si l'un des champs n'ai pas remplie.
Je ecrit ce programme :

If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
End If

Or avec ceci il affiche le message d'erreur mais il enregistre aussi (quand même) les données!
Je pense qu'avant le "end if" il faut mettre un "else" avec une action qui lui indique de ne pas enregistrer mais je ne sais comment rédiger cette action!

J'espère avoir été assez claire!

Merci de me répondre le plus rapidement possible.

A voir également:

[VBA] URGENTsvp!!! procédure d'enregistrement
Enregistrement vidéo écran - Guide
Youtube enregistrement vidéo - Guide
Incompatibilité de type vba ✓ - Forum Programmation
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
8 juil. 2008 à 16:15

If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
else
.... procedure d'enregristrement
End If
end sub

grace
8 juil. 2008 à 16:17

En faite si la textbox1 est vide je ne veux pa que ca enregistre! c'est ca le problème.
Donc je ne dois pas mettre la procédure d'enregistrement!

non???

Merci quand même pour ta rapidité

grace
8 juil. 2008 à 16:20

non c'est bon ca marche!
merci.
Excuse mais je suis débutante

grace
8 juil. 2008 à 16:43

Maintenant si je veux tester le contenu de plusieurs champs comment je fais?
Il y a des Combobox et des textbox

J'ai essayé cela mais ca ne marche pas :

If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
If combobox1.Value = "" Then
MsgBox "Choisir un responsable dans la liste"
else
.... procedure d'enregristrement
End If
End if
end sub
Merci d'avance pour vos reponses

Réponse 2 / 2

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
8 juil. 2008 à 16:46

If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
elseIf combobox1.Value = "" Then
MsgBox "Choisir un responsable dans la liste"
else

grace
8 juil. 2008 à 17:22

Merci de nouveau!

Si je veux testé le contenu d'une textbox
format de date jj/mm/aaaa

il ne faut pas que cela s'enregistre si la date n'a pas ce format???

Et d'autre part comment fait-on pour mettre un message à l'ouverture de la userform (sachant que ma userform s'affiche suite à un click sur un commandbouton d'une autre userform)???

J'espère avoir été claire

Merci par avance

Discussions similaires

Point d'entrée introuvable

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

point d'entrée de procédure introuvable

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters