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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 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
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" <didier.nova...@club-internet.fr>
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
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
Ben mille merci comme d'hab, c'est rapide et parfait Vive JB !!! ou plutôt JB MVP !!! Didier
"JB" a écrit dans le message de news:
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
Ben mille merci comme d'hab, c'est rapide et parfait
Vive JB !!!
ou plutôt JB MVP !!!
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
26205cf1-5149-487a-8324-b4c90571481f@62g2000hsn.googlegroups.com...
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" <didier.nova...@club-internet.fr>
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
Ben mille merci comme d'hab, c'est rapide et parfait Vive JB !!! ou plutôt JB MVP !!! Didier
"JB" a écrit dans le message de news:
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
