Discussion :

[hitoui]

bonjour a tous

voila je suis un peu perdue

voici le code que j'ai créé
je souhaite taper la référence d'un produit et que dans mes autres textbox le nom du produit etc... s'écrivent.

or si je tape une référence avec uniquement des chiffres exemple 4174 ça ne fonctionne pas mais la référence lsm5850h fonctionne.

inversement si je rajoute clng devant mon vlookup 4174 fonctionne mais pas lsm5850h

j'ai essayé de mettre ma colonne en format texte mais ça ne fonctionne pas. une petite aide svp?

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox3_AfterUpdate()
On Error GoTo 1
 
If WorksheetFunction.CountIf(Sheets("STOCK").Range("B:B"), Me.TextBox3.Value) = 0 Then
 
 
    MsgBox "NOT EXIST", vbInformation + VBORONLY, "NON TROUVE"
 
End If
 
With Me
 
    .TextBox2 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 2, False)
    .TextBox4 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 3, False)
    .TextBox5 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 6, False)
    .TextBox6 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 11, False)
    .TextBox8 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 9, False)
    .TextBox7 = Application.WorksheetFunction.VLookup((Me.TextBox3), Sheets("stock").Range("data2"), 5, False)
 
End With
1
End Sub

[Philippe Tulliez]

Bonjour,

or si je tape une reference avec uniquement des chiffres exemple 4174 ca ne fonctionne pas mais la reference lsm5850h fonctionne.

C'est très logique, le contenu d'un contrôle TextBox est de type String alors que la valeur 4174 qui se trouve dans Excel est de type numérique donc en réalité tu cherches "4174" et pas 4174

[hitoui]

Et donc à part mettre ma colonne en format texte, est ce que j’ai une autre solution?

[Philippe Tulliez]

Bonjour,
Ce n'est pas une bonne idée de mélanger dans une colonne de référence des valeurs numériques et alphanumériques.

Et donc à part mettre ma colonne en format texte, est ce que j’ai une autre solution?

Oui, faire un test pour savoir si la donnée introduite est composée uniquement de chiffres ou si il y a combinaison de chiffres et de lettres
S'il n'y a que des chiffres la recherche doit se faire avec la chaîne précédée de la fonction Val
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  TextBox2 = Application.WorksheetFunction.VLookup(Val(Me.TextBox3), Sheets("stock").Range("data2"), 2, False)

[EDIT]

Exemple avec test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox3_AfterUpdate()
  If IsNumeric(TextBox3) Then
     TextBox2 = Application.WorksheetFunction.VLookup(Val(Me.TextBox3), Sheets("stock").Range("data2"), 2, False)
   Else
     TextBox2 = Application.WorksheetFunction.VLookup(Me.TextBox3, Sheets("stock").Range("data2"), 2, False)
  End If
End Sub

Petite remarque : Plutôt que faire une recherche pour chaque contrôle TextBox, je privilégierais une fonction de lecture de l'enregistrement qui renverrait l'ensemble des champs de la ligne trouvée