VLookup avec plusieurs variables

Bonjour,

J'essaye de réaliser une fonction VLookup dans VBA qui se répète toutes les trois colonnes avec des variables.

Dans mon fichier joint, j'essaye de récupérer dans ma feuille "Suivi Analyse comparative" les valeurs présentes dans les colonnes grisées pour les afficher dans la feuille "Analyse comparative". Le tout associé aux bonnes valeurs.

Les fonctions VLookup normales marchent bien. Mais en voulant les automatisées pour qu'elles marchent en fonction du nombre de colonnes affichées j'obtiens une erreur dans ma formule.

Avez-vous une solution ?

GuiGui8731

Bonjour,

Votre code modifié

Sub Suivi_Analyse_Comparative_Argenteuil()
    Application.ScreenUpdating = False
    Set f1 = Sheets("Analyse comparative")
    Set f2 = Sheets("Suivi Analyse comparative ARG")
    f2.Visible = True
    f1.Select
    For i = 3 To 24 Step 3
        DerLig_f1 = f1.Cells(2, i - 1).End(xlDown).Row
        If DerLig_f1 >= 4 Then
            With f1
                .Range(Cells(4, i), Cells(DerLig_f1, i)).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'Suivi Analyse comparative ARG'!R[-2]C[-1]:R[16]C,2,0),"""")"
                .Range(Cells(4, i), Cells(DerLig_f1, i)).Value = .Range(Cells(4, i), Cells(DerLig_f1, i)).Value
            End With
        End If
    Next i
    ActiveWindow.DisplayZeros = False 'masquer les 0
    f2.Range("A4:CC2000").ClearContents
    f1.Range("A4:BB1000").Copy f2.Range("A4")
    f2.Range("A4:ZZ1000").FormatConditions.Delete
    f2.Visible = False

    Set f1 = Nothing
    Set f2 = Nothing
End Sub

le fichier

Bonjour Arturo83,

Merci pour ton retour.

Je viens de tester ton code et il fonctionne parfaitement.

Merci pour tout.

GuiGui8731