Problème avec une ligne visual basic

  • Initiateur de la discussion Initiateur de la discussion dominique35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dominique35

XLDnaute Occasionnel
Bonjour à vous.

Voila j'ai un problème avec une ligne visual basic et je ne trouve pas l'erreur!
Pouvez me dire ou, mais surtout pourquoi!
car le but est avant de comprendre l'erreur!

numlignevide = ActiveSheet.Columns(1).Find("").Row
'on vérifie les champs obbligatoires sont correctement remplis'
If txtNom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant", txtNom.SetFocus
ElseIf txtPrénom.txt = "" Then
MsgBox " Veuillez remplir le Prénom de votre contact", vbCritical, "champ manquant", txtPrénom.SetFocus
Else
Merci à vous tous.

Ci joint le fichier
 
Re : Problème avec une ligne visual basic

Bonjour,
Pour le strict minimum...
Code:
numlignevide = ActiveSheet.Columns(1).Find("").Row
'on vérifie les champs obbligatoires sont correctement remplis'
If Txtnom.Value = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
Txtnom.SetFocus
ElseIf Txtprenom.Value = "" Then
MsgBox " Veuillez remplir le Prénom de votre contact", vbCritical, "champ manquant"
Txtprenom.SetFocus
Else
MsgBox "On fait quoi ?"
End If
A+
kjin
 
Re : Problème avec une ligne visual basic

Hello tout le monde,

Tu ne peux pas mettre le SetFocus sur la même ligne que le message.
De plus, en tout cas chez moi, le .Text posait problème...
Code:
If TxtNom = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
TxtNom.SetFocus
ElseIf TxtPrénom = "" Then
MsgBox " Veuillez remplir le Prénom de votre contact", vbCritical, "champ manquant"
TxtPrénom.SetFocus
Else
End If
Comme ce que dis l'ami Kjin !

Dites-moi si je me trompe, mais paraît-il que ce n'est pas très conseillé de mettre des accents... Apparemment ici ça ne pose pas de problème 😕

Cdt, Hulk.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
2 K
Retour