Comparaison de saisie

Le
Didier NOVARIN
Bonjour,
J'ai sur un userform 14 textbox et 14 combobox
A chaque fois que l'on remplit un textbox, il faut remplir un combobox qui
se trouve à côté dans l'ordre de haut en bas
exemple :
textbox1 = "Nom d'une personne", donc Combobox1 = "Age de cette personne"
textbox2, donc Combobox2="" etc.
1 - Je souhaite que si un utilisateur oublie de remplir soit un combobox ou
un textbox de la même ligne, cela envoie un message d'erreur.
Voilà ce que j'ai mis en place pour l'instant, cela fonctionne, mais n'est
pas du tout élégant ;-)
2 - Je souhaite savoir s'il est possible de faire clignoter le textbox ou
combobox incriminé.

Je vous remercie
Didier

Private Sub CommandButton1_Click()
'Les textbox
If Trim(TextBox1) <> "" Then Mavar = 1
If Trim(TextBox2) <> "" Then Mavar = 2
If Trim(TextBox3) <> "" Then Mavar = 3
If Trim(TextBox4) <> "" Then Mavar = 4
'Les combo
If Trim(ComboBox1) <> "" Then Mavar2 = 1
If Trim(ComboBox2) <> "" Then Mavar2 = 2
If Trim(ComboBox3) <> "" Then Mavar2 = 3
If Trim(ComboBox4) <> "" Then Mavar2 = 4
'Test
If Mavar <> Mavar2 Then
MsgBox "Erreur dans la saisie"
End If
Unload Me
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5239811
Bonjour,

Private Sub CommandButton1_Click()
For i = 1 To 4
If Trim(Me("textbox" & i)) <> "" Then
If Me("combobox" & i) = "" Then
MsgBox "Saisir age!"
Me("combobox" & i).SetFocus
Me("combobox" & i).BackColor = vbRed
Exit Sub
Else
Me("combobox" & i).BackColor = vbWhite
End If
End If
Next i
End Sub

http://cjoint.com/?cylrXYuEDc


JB
On 24 fév, 10:57, "Didier NOVARIN" wrote:
Bonjour,
J'ai sur un userform 14 textbox et 14 combobox
A chaque fois que l'on remplit un textbox, il faut remplir un  combobox qui
se trouve à côté dans l'ordre de haut en bas
exemple :
textbox1 = "Nom d'une personne", donc Combobox1 = "Age de cette person ne"
textbox2..., donc Combobox2="..." etc.
1 - Je souhaite que si un utilisateur oublie de remplir soit un combobox o u
un textbox de la même ligne, cela envoie un message d'erreur.
Voilà ce que j'ai mis en place pour l'instant, cela fonctionne, mais n'e st
pas du tout élégant ;-)
2 - Je souhaite savoir s'il est possible de faire clignoter le textbox ou
combobox incriminé.

Je vous remercie
Didier

Private Sub CommandButton1_Click()
'Les textbox
If Trim(TextBox1) <> "" Then Mavar = 1
If Trim(TextBox2) <> "" Then Mavar = 2
If Trim(TextBox3) <> "" Then Mavar = 3
If Trim(TextBox4) <> "" Then Mavar = 4
'Les combo
If Trim(ComboBox1) <> "" Then Mavar2 = 1
If Trim(ComboBox2) <> "" Then Mavar2 = 2
If Trim(ComboBox3) <> "" Then Mavar2 = 3
If Trim(ComboBox4) <> "" Then Mavar2 = 4
'Test
If Mavar <> Mavar2 Then
MsgBox "Erreur dans la saisie"
End If
Unload Me
End Sub


Didier NOVARIN
Le #5239801
Ben mille merci comme d'hab, c'est rapide et parfait
Vive JB !!!
ou plutôt JB MVP !!!
Didier

"JB"
Bonjour,

Private Sub CommandButton1_Click()
For i = 1 To 4
If Trim(Me("textbox" & i)) <> "" Then
If Me("combobox" & i) = "" Then
MsgBox "Saisir age!"
Me("combobox" & i).SetFocus
Me("combobox" & i).BackColor = vbRed
Exit Sub
Else
Me("combobox" & i).BackColor = vbWhite
End If
End If
Next i
End Sub

http://cjoint.com/?cylrXYuEDc


JB
On 24 fév, 10:57, "Didier NOVARIN" wrote:
Bonjour,
J'ai sur un userform 14 textbox et 14 combobox
A chaque fois que l'on remplit un textbox, il faut remplir un combobox qui
se trouve à côté dans l'ordre de haut en bas
exemple :
textbox1 = "Nom d'une personne", donc Combobox1 = "Age de cette personne"
textbox2..., donc Combobox2="..." etc.
1 - Je souhaite que si un utilisateur oublie de remplir soit un combobox
ou
un textbox de la même ligne, cela envoie un message d'erreur.
Voilà ce que j'ai mis en place pour l'instant, cela fonctionne, mais n'est
pas du tout élégant ;-)
2 - Je souhaite savoir s'il est possible de faire clignoter le textbox ou
combobox incriminé.

Je vous remercie
Didier

Private Sub CommandButton1_Click()
'Les textbox
If Trim(TextBox1) <> "" Then Mavar = 1
If Trim(TextBox2) <> "" Then Mavar = 2
If Trim(TextBox3) <> "" Then Mavar = 3
If Trim(TextBox4) <> "" Then Mavar = 4
'Les combo
If Trim(ComboBox1) <> "" Then Mavar2 = 1
If Trim(ComboBox2) <> "" Then Mavar2 = 2
If Trim(ComboBox3) <> "" Then Mavar2 = 3
If Trim(ComboBox4) <> "" Then Mavar2 = 4
'Test
If Mavar <> Mavar2 Then
MsgBox "Erreur dans la saisie"
End If
Unload Me
End Sub


Publicité
Poster une réponse
Anonyme