Problème avec une ligne visual basic

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
 

kjin

XLDnaute Barbatruc
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
 

Hulk

XLDnaute Barbatruc
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 :confused:

Cdt, Hulk.
 
Dernière édition:

MJ13

XLDnaute Barbatruc
Re : Problème avec une ligne visual basic

Re

Merci Dominique.

C'est ce que j'aime sur XLD (l'échange pour que tout le monde puisse apprendre).

Pour ton fichier, c'est un bon début.

Bonne continuation.
 

Discussions similaires

Statistiques des forums

Discussions
312 207
Messages
2 086 231
Membres
103 161
dernier inscrit
Rogombe bryan