Bonjour,
Je suis en train de finaliser un userform. Celui ci est composé de textbox et de combobox.
Certain de ces textbox et combobox, s'affichent sous conditions (en fonction d'un autre et de la réponse apportée).
Je souhaiterai avoir un contrôle lors de la validation du formulaire avec un message informant l'utilisateur que un textbox ou combobox est vide,n avec mise en couleure (rouge par exemple) du champs vide.
Mon code qui débloque:
- - - - - -
Private Sub CommandButton_valider_Click()
Dim c As Control
For Each c In UserForm1.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
c.BackColor = RGB(255, 0, 0)
If c.Value <> "" Then
If c.Visible = True Then
End If
End If
MsgBox "Merci de completer les zones manquantes!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "Votre saisie est maintenant complète"
- - - -
le message d'erreur
erreur d'exécution '2110'
le focus ne peut etre déplacé sur le controle car celui-ci est invisible, non activé, ou d'un type n'acceptant par le focus
-----
je pense que le problème vient sur le fait que certains textbox/combobox ne soient pas affiché...
merci de votre aide!!
Cordialement
Je suis en train de finaliser un userform. Celui ci est composé de textbox et de combobox.
Certain de ces textbox et combobox, s'affichent sous conditions (en fonction d'un autre et de la réponse apportée).
Je souhaiterai avoir un contrôle lors de la validation du formulaire avec un message informant l'utilisateur que un textbox ou combobox est vide,n avec mise en couleure (rouge par exemple) du champs vide.
Mon code qui débloque:
- - - - - -
Private Sub CommandButton_valider_Click()
Dim c As Control
For Each c In UserForm1.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
c.BackColor = RGB(255, 0, 0)
If c.Value <> "" Then
If c.Visible = True Then
End If
End If
MsgBox "Merci de completer les zones manquantes!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "Votre saisie est maintenant complète"
- - - -
le message d'erreur
erreur d'exécution '2110'
le focus ne peut etre déplacé sur le controle car celui-ci est invisible, non activé, ou d'un type n'acceptant par le focus
-----
je pense que le problème vient sur le fait que certains textbox/combobox ne soient pas affiché...
merci de votre aide!!
Cordialement