Discussion :

[karmas93120]

Bonsoir j'ai besoin de votre aide ^^
A savoir je suis un débutant en VBA et en vous lisant j'apprends beaucoup de chose et grace à l'enregistrement de macro ^^

Voila je m'explique en colonne A et B et C j'ai des données.
Je souhaiterais utiliser un recherchev soit un vlookup en VBA pour faire une recherche sous ce format:
d2 = recherchev(C2;A:B;2, faux)
En gros si je trouve la valeur en C2 dans la colonne A je ramène la donnée de la cellule B en cellule D.
en cellule D je ne veux pas la formule mais uniquement la valeur retrouvée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub recherche()
Dim R As Variant
I = 2  ' i = 2 car en ligne 1 j'ai mon entête de colonne
valeurcherchée = Cells(I, "c")
nomplage = Columns("a:b")
R = Application.VLookup(valeurcherchée, Range("NomPlage"), 2, False)
If IsError(R) Then
    MsgBox "Valeur inexistante"
Else
    MsgBox R
End If
I = I + 1
End Sub

Merci beaucoup par avance ^^

[Theze]

Bonjour,

Essai de cette façon :

Code :

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

1
2
 
R = Application.VLookup(Cells(I, "C").Value, Columns("A:B"), 2, False)

Hervé.

[karmas93120]

Merci beaucoup hervé cela marche d'enfer d'ailleurs j'ai changé ma macro sous cette forme.

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
Sub recherche()
Dim R As Variant
i = 2  ' i = 2 car en ligne 1 j'ai mon entête de colonne
While Cells(i, "c") <> ""
 
R = Application.VLookup(Cells(i, "C").Value, Columns("A:B"), 2, False)
If R <> "" Then
Search = Application.VLookup(Cells(i, "C").Value, Columns("A:B"), 2, False)
R = Cells(i, "d") = Search: Cells(i, "d") = Search
 
 
 
End If
i = i + 1
Wend
End Sub