XL 2016 Utilisation de Vlookup avec Userform

[ALE37]

Bonsoir à tous, je me lance sur la réalisation d'un Userform pour récupérer les données d'un parc auto engins à partir d'immat.
La condition fonctionne bien quand on utilise du numérique (et encore il semblerait que celà dépende du format) mais dés que je rentre
de l'alphanumérique j'ai un bug...Bref, je galère!

Ma TextBox1 correspond aux Immat recherchées.
TEST est le nom de ma feuille
DONNEES (le nom est défini) ma matrice de recherche

Private Sub TextBox1_AfterUpdate()

If WorksheetFunction.CountIf(Sheets("TEST").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "Ce numéro d'immat. n'existe pas. Merci de vérifier la correspondance", vbInformation + vbOKOnly, "Immat non trouvée!"
End If
'si la condition est respectée (donc immat trouvée) alors..
With Me
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("TEST").Range("DONNEES"), 2, 0)

End With

End Sub

D'avance merci pour votre éclairage.

 

[_Thierry]

Re Bonjour/ bonsoir à tous

Tant mieux @ALE37 si tu y arrives comme tu souhaites le faire c'est le mieux...
Moi de mon côté je l'ai quand même fait avec une ComboBox et j'ai conjointement ajouté la "TextBoxPatrick" magique aussi

Du coup, je me suis rendu compte qu'une ComboBox a une limitation de Colonne à 10 (0 to 9) max... Au moins je m'en souviendrai !

Bien @ vous
@+Thierry

PS Cherchez l'imat. "Thierry"

 

[patricktoulon]

bonsoir thierry
kado

plus de 10 colonnes dans une listebox sans utiliser la propriété rowsource

bonjour a tous je l'ai donné sur le forum excel mais je met cette astuce ici aussi l'avantage de la propriété rowsource d'une listbox c'est que l'on peut avoir plus de 10 colonnes le désavantage c'est que la liste est immodifiable et elle nous ajoute les entete je vous propose les avantages...

www.excel-downloads.com

 

[laurent950]

Bonsoir PatrickToulon, le Forum.
Une Astuce Génial, Mais Vraiment Génial... Merci Patricktoulon

Ps : je garde cela pour mes futurs UserForm avec le dimensionnement des ListeBox (Multi colonnes).

Mille Mercis
Laurent950

 

[ALE37]

Re Bonjour/ bonsoir à tous

Tant mieux @ALE37 si tu y arrives comme tu souhaites le faire c'est le mieux...
Moi de mon côté je l'ai quand même fait avec une ComboBox et j'ai conjointement ajouté la "TextBoxPatrick" magique aussi

Du coup, je me suis rendu compte qu'une ComboBox a une limitation de Colonne à 10 (0 to 9) max... Au moins je m'en souviendrai !

Bien @ vous
@+Thierry

PS Cherchez l'imat. "Thierry"

Bonsoir à tous, en effet trés pratique la ComboBox et plus ludique! Merci pour le code. Celà me donne une solution complémentaire pour d'autres Userform. Bien trouvé l'immat de Thierry. Dans tous les cas je vous remercie tous pour cette contribution mais je m'apperçois aussi qu'il faut tout de même de pas mal de connaissances pour faire du code en VBA. J'ai encore du boulot!!

 

[_Thierry]

Bonsoir @ALE37 , @patricktoulon , le Fil

De rien Ale37, c'est comme ça qu'on apprend ! Patience et Persévérance !

Et grand merci Patrick, dans le genre barbatruc, c'est une sacré barbatruc !
Bon à savoir qu'on pouvait "maltraiter" les ListBox et autres ComboBox de la sorte... Tu n'as pas eu d'ennuis avec la S.P.L.C. ? *

Bonne soirée
@+Thierry

PS: * Société Protectrice des ListBox et CombBox

 

[patricktoulon]

re
@thierry b

mon excel quand je l'ouvre direct il me supplie "non pas tes bidouilles!!!"
alors pour le calmer je lui met 2/3 de mes astuces evaluate à dormir debout et 3 ou 4 coup de regex de fou après il a plus peur il est calme et docile