Discussion :

[pepsister]

Bonjour,
je voulais faire une rechercheV mais le coder en vba pour une macro globale sur mon fichier. Voilà ce que j'ai fait. J'ai juste un problème sur comment l'appliquer à la cellule. Je sais que c'est la ligne en gras qui va pas mais je ne comprends pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton7_Clic()

    Dim Formule As String
    Dim R As Integer
    Dim Model As String

 FinalRow = Sheets("Feuil2").Cells(Application.Rows.Count, 4).End(xlUp).Row
 
    For R = 9 To FinalRow
    Model = Sheets("Feuil2").Cells(R, 4).Value
    Sheets("Feuil2").ActiveCell.Offset(R, 1).Value = "=VLOOKUP(model,Feuil1!$A:$P,2,FALSE)"
    Next R
    
End Sub

[mercatog]

Code :

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

Sheets("Feuil2").ActiveCell.Offset(R, 1).Formula= "=VLOOKUP(" & model & ",Feuil1!$A:$P,2,FALSE)"

au lieu de .value tu mets .formula et tu fais sortir ta variable model des ""

[pepsister]

désolé ca ne marche pas, ca m'affiche:
propriété ou méthode non gérée par cet objet

[mercatog]

2ème problème dans model

Code :

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

Model = Sheets("Feuil2").Cells(R, 4).address