controls + userform

Bonjour,

Dans le code du bouton Valider:

Private Sub B_validation_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub

JB



On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:

Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement

Bonjour,

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1

Select Case Left(TypeName(Me.Controls(i)), 5)
Case "Combo", "TextB", "ListB"
If Len(Me.Controls(i)) = 0 Then
Me.Controls(i).SetFocus
MsgBox ("saisie incomplète")
Exit Sub
End If
End Select

Next
'ici proc de validation
MsgBox "saisie validée"
End Sub

'lSteph


On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:

Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement

C'est génial, ça marche, merci encore à tous les 2
Michel

Bonjour,

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1

Select Case Left(TypeName(Me.Controls(i)), 5)
Case "Combo", "TextB", "ListB"
If Len(Me.Controls(i)) = 0 Then
Me.Controls(i).SetFocus
MsgBox ("saisie incomplète")
Exit Sub
End If
End Select

Next
'ici proc de validation
MsgBox "saisie validée"
End Sub

'lSteph


On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:

Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être effectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement