Discussion :

[Mama13]

Bonjour je débute en VBA et je bloque sur la mise en place d'une boucle dans un rechercheV.

J'effectue une rechercheV d'un fichier excel vers un autre fichier excel.
Cette recherche fonctionne très bien lorsque je nomme les Cellules
Voici ma fonction pour la cellule L12 qui va chercher la valeur de la cellule A12 dans un autre fichier Excel.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim chemin As String

chemin = "'" & ThisWorkbook.Path & "\[marges et prix pour mise Ã* jour tarifs.xlsx]tableau cmup marges'!C1:AF222"

[L12].Formula = "=vlookup(A12, " & chemin & ",30,false)"
[L12].Value = [L12].Value

Ce qui me pose souci c'est que je voudrais que cette formule se répète pour les cellules L13 Ã* L45 de la même feuille, en allant chercher respectivement les cellules A13 Ã* A45 dans l'autre fichier.
J'ai essayé ça, mais ça ne fonctionne pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim chemin As String

chemin = "'" & ThisWorkbook.Path & "\[marges et prix pour mise Ã* jour tarifs.xlsx]tableau cmup marges'!C1:AF222"

For i = 13 To 45

Cells(i, 12).Formula = "=vlookup(Cells(i,1), " & chemin & ",30,false)"
Cells(i, 12).Value = Cells(i, 12).Value

Next i

End Sub

J'ai l'impression que c'est la manière dont je renseigne la valeur cherchée dans mon Vlookup : Cells(i, 1) pour qu'il prenne en compte A13 puis A14 puis A15 etc...qui ne convient pas.
Quelqu'un saurait m'aider ?
Merci

[Nain porte koi]

Hello,

vous mélangez un peu le VBA et les fonctions Excel.
Cell est du VBA ça ne peut pas être interprété comme une fonction d'excel comme vlookup qui elle est interprété comme RECHERCHEV

essayez ça Cells(i, 12).Formula = "=vlookup(A" & i & "), " & chemin & ",30,false)"

[Mama13]

J'ai juste rajoute une parenthese manquante et ça fonctionne a la perfection, top !
Cells(i, 12).Formula = "=vlookup((A" & i & "), " & chemin & ",30,false)"

Je vois ce que vous voulez dire par le mélange de formules Excel et formules vba.

En tout cas, merci beaucoup !!