Discussion :

[Nicolas971]

Bonjour à tous

Novice en VBA, je suis fier d'avoir pu insérer dans un formulaire sous VBA une fonction vlookup dans un label en fonction de la saisie d'une textbox

J'ai donc deux feuilles dans un classeur. La première est un tableau, sur lequel j'ai un bouton clic qui m'ouvre un formulaire userform à remplir. Lorsque je valide le formulaire, cela alimente mon tableau. Sur la seconde feuille (BDD), j'ai donc une base de données dans laquelle mon formulaire de la feuille 1 va chercher ses éléments.
Voici mon code :

Code :

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

1
2
3
4
5
6
'Alimentation automatique du Label en fonction de textbox
 Private Sub Textbox_AfterUpdate()
 If Len(Textbox.Text) = 14 Then 'pour que la recherche vlookup ne se lance que si j'ai bien saisi mes 14 caractères dans la textbox
 Me.Label.Caption = Application.VLookup(Textbox.Value, Worksheets("BDD").Range("a:d"), 4, False)
 End If
 End Sub

Mais je souhaite faire évoluer cette formule de la facon suivante :
1- Si la saisie que j'opère dans ma textbox ne figure pas dans ma feuille BDD, il me renvoi un message d'erreur VBA et je passe en mode débogage ... Je préférerais une messagebox qui me demande de vérifier ma saisie dans la textbox car ce fichier est destiné à des utilisateurs qui ne doivent surtout pas fouiner dans les lignes de code !!! Il doit y avoir une solution en intégrant un truc du genre If/Then mais je séche sur la syntaxe ...
2 - Je souhaiterais sortir ma feuille BDD du classeur. En effet, cette feuille BDD sera mise à jour régulièrement et disponible sur un serveur (le même que celui qui héberge mon fichier à alimenter mais pas forcément dans le même répertoire). J'ai donc besoin qu'il soit dissocier dans un fichier seul mais cela change tout mon code plus haut n'est ce pas ... Alors comment dois je le modifier ?

Merci pour votre aide

[Patrice740]

Bonjour,

Au lieu d'utiliser Vlookup, je te conseille d’utiliser la méthode .Find :
1 définir un variable Range qui correspond à la plage de recherche. l'avantage c'est quelle peut se situer dans un autre classeur.
2 définir un variable Range qui correspond à la cellule trouvée
3 affecter la cellule trouvée avec Set .. = Plage.Find(....)
4 n'affecter le Label que si cellule trouvée n'est pas égal à Nothing

[Nicolas971]

Oullllaaaaa

Merci Patrice mais là, je vois qu'il y a un monde entre tes compétences et les miennes ... Je ne savais même pas que Find existait ... c'est dire !
Peux tu tenter de me rédiger un code qui correspond à tout ce que tu me décris ...?

Merki

[Philippe Tulliez]

Bonjour,
Chaque fonctionnalité d'excel à sa méthode en VBA ainsi la méthode Find, c'est l'outil de recherche (raccourci clavier Ctrl + F).
Utilises l'enregistreur de macros et ainsi tu auras déjà un début de code servi sur un plateau et ensuite tu reviens sur le forum pour que lo'n t'aide à le peaufiner.

Pour ta question initiale avec l'erreur renvoyée par le VLookUp il faut passer par la gestion des erreurs
A lire La gestion des erreurs dans Excel et tout particulièrement le chapitre III. Les macros