condition ou sous vb

[Jimrcl]

Bonjour le forum,
comment traduit on la condition ou sous vba
je veux tester si j'ai bien entrer quelque chose dans mes 4 textbox et mes 3 combobox de ma userform, avant d'aller les mettre à la suite de ma base de donnée.
Merci beaucoup.
B)

 

[Ashaar]

Bonjour,

Avec 'And' je pense.

Private Sub CommandButton1_Click()
If TextBox1.Value <> '' And TextBox2.Value <> '' And TextBox3 <> '' And TextBox4 <> '' Then
MsgBox ('Tous les TextBox ont des valeurs')
End If
End Sub

Avec une boucle ce serait sans doute bien plus joli et correct mais bon.

 

[MichelXld]

bonjour Jimrcl , bonjour Ashaar

ci joint une autre possibilité



Dim i As Byte, j As Byte

For j = 1 To 4
If Me.Controls('TextBox' & j) = '' Then
MsgBox 'Le TextBox' & j & ' est vide . '
Exit Sub
End If
Next j

For i = 1 To 3
If Me.Controls('ComboBox' & i).Value = '' Then
MsgBox 'Le ComboBox' & i & ' est vide . '
Exit Sub
End If
Next i


bonne soiree
MichelXld