Condition

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Mai 2005

• #2

Bonsoir Buromania, bonsoir le forum,

Pas sû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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 3 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 3 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 3 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 4 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif