Condition

[buromania]

Bsr Forum

je cherche une formule renseignant la validité d'un combobox par rapport à un textbox vide

Private Sub ComboBox2_Change()

If ComboBox2.Value < TextBox2.Value And TextBox1.Value = '' Then
MsgBox ' Conditionnement non cassable '
ComboBox2.Value = ''
End If

Que faut il ajouter ou modifier pour que ça marche

Bonne soirée

 

[Robert]

Bonsoir Buromania, bonsoir le forum,

Pas s&ucirc;r de ce que je te propose mais souvent la value renvoie une variable au format texte ('2' au lieu de 2). Essaie commme ça :

If Val(ComboBox2.Value) < Val(TextBox2.Value) And TextBox1.Value = '' Then

 

[Hellboy]

Bonjour buromania

&Agrave; première vue ça semble bon. Il faudrait peut être que joingne ton fichier pour nous aider à visualiser mieux la situation.

Philippe

 

[buromania]

Bsr robert, Bsr forum

Je bulle :huh:

J'essaie de renseigner la validité de CB2(quantité) par TB2(Conditionnement de base) et TB1(Conditionnement cassable si'*')
CB2 reçoit cette valeur renseigné par CB1'code)
UserForm4.ComboBox2 = ComboBox1.Column(3)
If TextBox1 = '*' Then
ComboBox2.Value = '1'
End If

J'aimerai, si CB2 < TB2 un message d'erreur et l'effacement de la saisie


Bonne soirée

 

[Hellboy]

Bonjour buromania

Comme il n'y a toujours pas ton fichier en référence, je devine peut être que tu ne fait pas référence au bon textbox du bon usf dans ta condition. Essaie de tenir compte de ce que Robert à envoyé comme info tout en précisant devant usf1.tb1 ou usf2.tb2 ou usf4.tb1 ....


Philippe

 

[buromania]

Forum, Hell boy, Robert... Bonsoir

EUReka

Private Sub ComboBox2_Change()

If ComboBox2.Value < TextBox2.Value Then
If TextBox1.Value = '' Then
ComboBox2.Value = ''
End If
End If

End Sub

Cela marche pour un code alphanumérique mais pas numérique
J'ai essayé avec la méthode de Robert sans plus de résultat.
Mettre une option explicite , déclaration
remplacer le TB par CB ?

Bonne soirée