valeur textbox

[Textbox]

bonjour

En code comment ecrire valeur Textbox different de ....


Merci d'avance


:woohoo:

 

[PascalXLD]

Bonjour

Par exemple

If textbox1.value <> 10

Bon courage

 

[textbox]

salut

J'ai essayé mais pour un enchainement cela me colle pas
?

voici le code

If TextBox3.Value <> 1510 Or 1511 Or 1514 Or 1515 Or 1530 Or 1540 Or 1560 Or 1620 Or 2010 Then

MsgBox ('La référence saisie est inconnue ?')
Exit Sub
End If




MsgBox 'Attendre le message de fin d'execution ..', 0, 'Un peu de patience !'


Sheets('Papier').Select
If TextBox3.Value = '1510' Then
Range('E5').Select
ActiveCell.FormulaR1C1 = TextBox1.Value
Range('J5').Select
ActiveCell.FormulaR1C1 = TextBox2.Value
End If

 

[PascalXLD]

RE

si tu veux faire comme cela il faut faire

If TextBox3.Value <> 1510 Or TextBox3.Value <>1511 Or TextBox3.Value <>1514 Or TextBox3.Value <>1515 Or TextBox3.Value <>1530 Or TextBox3.Value <>1540 Or TextBox3.Value <>1560 Or TextBox3.Value <>1620 Or TextBox3.Value <>2010 Then

Bon courage

 

[textbox]

Cela ne fonctionne pas il reste sur valeur inconnue

Merci malgré tout.




Private Sub CommandButton1_Click()




If TextBox3.Value = '' Then
MsgBox ('Il n'y a aucune référence?')
Exit Sub
End If

'If TextBox3.Value <> '1510' Or TextBox3.Value <> '1511' Or TextBox3.Value <> '1514' Or TextBox3.Value <> '1515' Or TextBox3.Value <> '1530' Or TextBox3.Value <> '1540' Or TextBox3.Value <> '1560' Or TextBox3.Value <> '1620' Or TextBox3.Value <> '2010' Then
'MsgBox ('Attention la référence est inconnue ?')
'Exit Sub
'End If

MsgBox 'Attendre le message de fin d'execution ..', 0, 'Un peu de patience !'


Sheets('Papier').Select
If TextBox3.Value = '1510' Then
Range('E5').Select
ActiveCell.FormulaR1C1 = TextBox1.Value
Range('J5').Select
ActiveCell.FormulaR1C1 = TextBox2.Value
End If

 

[PascalXLD]

re

Bien sûr ce ne sont pas des OR qu'il faut mettre mais des AND

Sinon tu auras toujours une condition de respectée

 

[textbos]

merci

c'est ok