Recherchev dans un userform [Résolu]

waikiki42 12 Messages postés lundi 4 février 2008Date d'inscription 22 septembre 2009 Dernière intervention - 17 sept. 2009 à 15:39 - Dernière réponse : ManuAntibes 454 Messages postés mardi 24 octobre 2000Date d'inscription 12 août 2016 Dernière intervention
- 22 sept. 2009 à 21:39
Bonjour à tous,

comme vous vous doutez, j'ai un souci!

J'ai un tableau à faire pour le taf et je bloque un peu.

Mon tableau est fait dans un userform avec différentes textbox, les textbox r représentent la référence et les d la désignation

Comment faut-il faire pour que lorsque je renseigne une référence dans la textbox r1, la désignation s'affiche en automatique dans la textbox d1

J'ai bien essayé un

If r1.Value <> "" Then d1.Value = Application.WorksheetFunction.VLookup(r1.Value, Sheets("bdd").Range("A101:E150"), 2, False)

mais ça n'a pas l'air de fonctionner.

Si l'un d'entre vous a une idée ...
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
ManuAntibes 454 Messages postés mardi 24 octobre 2000Date d'inscription 12 août 2016 Dernière intervention - 18 sept. 2009 à 13:00
3
Merci
Salut


Private Sub TextBoxR1_Change() 'lire le code dés qu'il y un changement de valeur dans la textboxR1

If Worksheets("Feuil1").TextBoxR1.Value <> "" Then ' verification que le contenu de la textbox ne soit pas vide

With Worksheets("bdd").Range("a1:a500") ' recherche dans une plage de donnée de la feuille BDD dans la colonne A de 1 à 500
Set c = .Find(Worksheets("Feuil1").TextBoxR1.Value, LookIn:=xlValues) 'recherche quoi, ce qu'il y a d'inscrit dans TextboxR1 de la feuille Feuil1
If Not c Is Nothing Then ' verification s'il trouve quelque chose ou pas
Worksheets("Feuil1").TextBoxD1.Value Worksheets("bdd").Cells(c.Row, 2) ' il a trouvé, C.row le numéro de ligne, le chiffre 2 le numéro de la colonne ( colonne A=1; colonne B=2; colonne C=3 ...)
Else
Worksheets("Feuil1").TextBoxD1.Value = "Vide" 'il n'a pas trouvé, il inscrit vide dans la textbox du resultat
End If

End With

End If
End Sub



Fais un copier coller du code que je t'envoi dans VBA d'excel, tu verras les differentes couleurs du code et des commentaires.

sinon donne moi ton adresse email et je t'enverais le fichier excel que j'ai créer.
A+
MANUANTIBES

Merci ManuAntibes 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de ManuAntibes
ManuAntibes 454 Messages postés mardi 24 octobre 2000Date d'inscription 12 août 2016 Dernière intervention - 17 sept. 2009 à 23:45
0
Merci
salut

essai plutot ça

Private Sub TextBoxR1_Change()
If TextBoxR1.Value <> "" Then

With Worksheets(1).Range("a1:a500")
Set c = .Find(TextBoxR1.Value, LookIn:=xlValues)

TextBoxD1.Value = Worksheets(1).Cells(c.Row, 2)

End With

End If
End Sub


A+
MANUANTIBES
Commenter la réponse de ManuAntibes
waikiki42 12 Messages postés lundi 4 février 2008Date d'inscription 22 septembre 2009 Dernière intervention - 18 sept. 2009 à 09:18
0
Merci
Salut merci de la réponse, mais je n'ai pas tout compris

par contre ma base de données se trouve sur la feuille "bdd" et la valeur recherchée se trouve en colonne A et je dois afficher la valeur de la colonne B

Désolé si je ne suis pas très clair
Commenter la réponse de waikiki42
waikiki42 12 Messages postés lundi 4 février 2008Date d'inscription 22 septembre 2009 Dernière intervention - 18 sept. 2009 à 13:04
0
Merci
salut, le code il faut bien que je le code dans la textbox r1 et ça devrait me générer la référence en d1 c'est bien ça ?

Sinon je veux bien ton fichier mon adresse mdechirman@hotmail.com

merci
Commenter la réponse de waikiki42
waikiki42 12 Messages postés lundi 4 février 2008Date d'inscription 22 septembre 2009 Dernière intervention - 22 sept. 2009 à 12:38
0
Merci
Merci de ton aide tout fonctionne normalement
Commenter la réponse de waikiki42
ManuAntibes 454 Messages postés mardi 24 octobre 2000Date d'inscription 12 août 2016 Dernière intervention - 22 sept. 2009 à 21:39
0
Merci
pense à valider la reponse

A+

MANUANTIBES
Commenter la réponse de ManuAntibes

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.