Bonjour à tous je viens vers vous car j'ai une petite question à vous poser j'ai un petit souci avec ce code que l'on m'a proposé j'essaie de le mettre façon parler à l'envers c'est-à-dire que si le numéro dans la colonne n'existe pas il me met un message pouvez-vous m'aider s'il vous plaît.
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 4 Then 'que si 4 chiffres
Lig = Application.Match(Val(TextBox1), Feuil2.[B:B], 1)
If IsNumeric(Lig) Then MsgBox "CE NUMERO N'EXISTE PAS", vbExclamation, "A CHANGER": TextBox1 = ""
End If