Formulaire de recherche vba monocritère

Fermé
augusteP Messages postés 4 Date d'inscription jeudi 15 juillet 2021 Statut Membre Dernière intervention 16 juillet 2021 - 15 juil. 2021 à 16:46
Le Pingou Messages postés 11304 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 novembre 2022 - 16 juil. 2021 à 09:53
Bonjour à tous,

j'ai créé un premier userform avec une recherche monocritère sur des chiffres et je n'arrive pas à modifier mon code vba pour que je puisse passer sur une recherche alphanumérique du type Art-0001
ci-après mon code vba et si quelqu'un pouvait me donner un coup de main !!

Private Sub TextBox1_AfterUpdate()

On Error GoTo 1

If WorksheetFunction.CountIf(Sheets("Stock").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "Cette référence n'existe pas. Veuillez ressaisir une nouvelle référence", vbnInformation + vbOKOnly, "Article non trouvé"
End If

With Me
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 2, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 3, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 4, 0)
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 5, 0)
.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 6, 0)

1
End With

End Sub


Merci !!

6 réponses

michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 26 novembre 2022 3 283
15 juil. 2021 à 18:26
Bonjour
A 1° vue

CLng(Me.TextBox1)

CLng cpnvertit en nombre...

me.textbox1 par définition renvoie du texte ... donc peut-^tre supprimer ce CLng
0
augusteP Messages postés 4 Date d'inscription jeudi 15 juillet 2021 Statut Membre Dernière intervention 16 juillet 2021
15 juil. 2021 à 18:36
Bonsoir,
cela ne fonctionne toujours pas !!
0
augusteP Messages postés 4 Date d'inscription jeudi 15 juillet 2021 Statut Membre Dernière intervention 16 juillet 2021
15 juil. 2021 à 18:38
.... je pense que je vais passer par un menu déroulant !
0
Le Pingou Messages postés 11304 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 novembre 2022 1 315
Modifié le 15 juil. 2021 à 21:30
Bonjour,
Juste au passage; est-il possible de savoir si une erreur se produit....!
et que contient la plage [Range("base")]?
et aussi que contient la [Me.TextBox1] ?

Salutations.
Le Pingou
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
augusteP Messages postés 4 Date d'inscription jeudi 15 juillet 2021 Statut Membre Dernière intervention 16 juillet 2021
16 juil. 2021 à 05:55
Bonjour,
[Range("Base")] est un état de stock avec différents éléments comme le désignation, l'adresse,... Puis [Me.Textbox1] contient une référence chiffrée.
0
Le Pingou Messages postés 11304 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 novembre 2022 1 315
Modifié le 16 juil. 2021 à 09:56
Bonjour,
Merci.
La fonction (RECHERCHEV) va chercher dans la première colonne de [Range("Base")] et donc comme [Me.Textbox1] contient une référence chiffrée. vous devez avoir une référence chiffrée dans cette première colonne et pour moi désignation est du texte..?
Quelque chose n'est pas clair...dans votre procédure, mais quoi!
Pouvez-vous mettre le fichier à disposition sur https://www.cjoint.com/ et poster le lien?
Salutations.
Le Pingou
0