Discussion :

[weeguum]

Bonjour à tous,
Je suis nouveau sur ce forum et dans le monde VBA aussi...


Je cherche à utiliser la fonction VLookup dans une macro...

J'utilise le code suivant :

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
Private Sub CommandButton1_Click()
 
If TextBox1 = "" Then
    MsgBox "Saisie obligatoire", vbCritical
    Exit Sub
End If
 
Dim R As Variant
R = Application.VLookup(ValeurRecherchée, Sheets("Feuil2").Range("A1:B8"), 2, False)
If IsError(R) Then
    MsgBox "Valeur inexistante"
Else
    MsgBox R
End If
 
End Sub

Le code fonctionne mais je souhaite à la place de ValeurCherchée, qu'il recherche plutôt la valeur obtenue via une textbox saisie dans un formulaire...

Pour plus d'info j'ai joint un fichier excel : Fonction RechercheV (Vlookup) dans une macro.xlsm

Si quelqu'un a des suggestions, j'en serais très reconnaissant. :-)

Par avance merci !

Bien cordialement,

Emeric

[joe.levrai]

Bonjour,

à la ligne 7 de ton code, tu mets :

Code :

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

ValeurRecherchée = TextBox1.Value

et ça devrait être ok ?

[weeguum]

Bonsoir joe.levrai, merci pour ta réponse !

Malheureusement cela ne fonctionne pas... En fait mon code ne marche que si à la place de ValeurRecherchée je mets une chiffre...
Est ce qu'il faut que j'ajoute une ligne

Code :

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

Dim ValeurRecherchée As

... ?? (As quoi ?)

Merci,

Emeric

[joe.levrai]

Surprenant

avec ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub iii()
Dim R As Variant
ValeurRecherchée = "arf"
R = Application.VLookup(ValeurRecherchée, Range("A1:B8"), 2, False)
If IsError(R) Then
    MsgBox "Valeur inexistante"
Else
    MsgBox R
End If
End Sub

j'ai écris "arf" en A1 et "toto" en B1

le MsgBox me renvoie "toto"

[weeguum]

Oui mais c'est normal puisque la valeur recherchée est "arf" qui est écrite en dur dans le code. Il donne d'ailleurs "toto" comme résultat quelque soit la donnée saisie dans le textbox...

Ce que je veux c'est que la valeur recherchée soit la donnée entrée par l'utilisateur (le TextBox)...

J'espère être clair...

Merci !

[joe.levrai]

Ok !

J'ai crée un Userform avec :

- un Textbox : TextBox1
- un Bouton : CommandButton1


J'écris en A1 : arf
J'écris en B1 : toto

j'écris ce code dans le userform :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim R As Variant
 
ValeurRecherchée = Me.TextBox1.Value
R = Application.VLookup(ValeurRecherchée, Range("A1:B8"), 2, False)
If IsError(R) Then
    MsgBox "Valeur inexistante"
Else
    MsgBox R
End If
 
End Sub

Je saisi "arf" dans le Textbox
J'appuie sur le bouton
J'obtient un MsgBox : "toto"


Ton problème est ailleurs, mon code fonctionne...refais ce test complet sur un classeur vierge (ça m'a pris 1 minute).

Et si tu as un problème encore ... montre-nous ton nouveau code

[amnorian]

avec ce code ca marche, dis moi si cela te convient, par contre tu recherche que des chiffres

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
Private Sub CommandButton1_Click()
 
If TextBox1 = "" Then
    MsgBox "Saisie obligatoire", vbCritical
    Exit Sub
End If
 
Dim R As Variant
valeur = CDbl(TextBox1.Value)
 
R = Application.VLookup(valeur, Sheets("Feuil2").Range("A1:B8"), 2, False)
If IsError(R) Then
    MsgBox "Valeur inexistante"
Else
    MsgBox R
End If
 
End Sub