combobox non renseigné !

[Evelynetfrancois]

bonjour

pour verifier que la textbox1 est bien renseigné j'ai ajoute c'est ligne de macro ci dessous

If TextBox1 = '' Then
MsgBox 'Vous devez saisir une Quantité', vbCritical, '=> Invalide'
TextBox1.Visible = True
TextBox1.SetFocus
Exit Sub
End If
If TextBox1 <= 0 Then
MsgBox 'Vous devez saisir une Valeur Positive ', vbCritical, '=> Invalide'
TextBox1.Visible = True
TextBox1 = ''
TextBox1.SetFocus
Exit Sub
End If
mais dans le meme USF j'ai egalement un cCombobox2
et je n'arrive pas a cree la ligne qui aurait le meme effet
Style :
If Combobox2 = '' Then
MsgBox 'Vous devez saisir un article', vbCritical, '=> Invalide'
Combobox2.SetFocus
Exit Sub
End If

merci d'avance si vous trouvez la soluce a mon prob
bon dimanche a tous
E et F

 

[ChTi160]

Salut ' Evelyne '

moi j'ai mis ce code est ça marche

Private Sub CommandButton1_Click()
If TextBox1 = '' Then
MsgBox 'TexBox1 Vide '
TextBox1.SetFocus
Exit Sub
End If
If ComboBox1 = '' Then
MsgBox 'ComBBobox1 Vide'
End If
ComboBox1.SetFocus
Exit Sub
End Sub

 

[CBernardT]

Bonjour Evelynetfrancois et ChTi160,

J'avais utilisé la propriété Text !

With UserForm1
If .Combobox2.Text = '' Then
MsgBox 'Vous devez saisir un article', vbCritical, '=> Invalide' _
.Combobox2.Text = ''
.Combobox.SetFocus
Exit Sub
End if
End With

Cordialement

CBernardT

 

[E et F]

bonjour chti160
merci beaucoup

mes lignes n'etaient pas mal
c'est leur ordre qui ne devait pas etre correcte
merci pour m'avoir remis de l'ordre
bon dimanche
jose dire .a bientot ?
en tout cas merciii
E et F

 

[Evelynetfrancois]

merci beaucoup CbernardT
la version chti 160 ayant remplie parfetement ca fonction je n'etais pas revenu voir les posts
dsl
je te souhaite egalement une bonne soirée
au plaisir de te lire
E et F