Discussion :

[luko6]

Bonjour à tous,
j'utilise ce code qui marche tres bien

Code :

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

1
2
3
4
5
Range("J3").Select
        ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-9],'Régie en dép. Planif'!R1C9:R1573C7,17,FALSE)"
                Range("J3").Select
    Selection.AutoFill Destination:=Range("J3:J" & Range("A3").End(xlDown).Row), Type:=xlFillDefaul

Mais maintenant dans ma nouvelle recherchev, ma table matrice est aussi variable
j'aimerais donc dans ma formule, selectionner toutes mes lignes et pas seulement les 1573 lignes dans mon code ci dessus, car mon tableau est de table variable chaque mois
J'aie ssayé de transformer les "RC" en range sans grand succes
Merci de votre aide

voila mon test
qui ne marche pas

Code :

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

Range("j3").Value = WorksheetFunction.VLookup(Range("a3").Value, Régieendép.Planif!Range("A3:Q" & Range("A3").End(xlDown).Row), 17, False)

[mercatog]

supposons que ta matrice commence en colonne A, ligne ligdeb de ta feuille Régie en dép. Planif et se termine en colonne AC, ligne ligfin

Code :

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

Range("J3").Formula = "=VLOOKUP(A3," & Sheets("Régie en dép. Planif").Name & "!" & Range("A" & ligdeb).Address & ":" & Range("AC" & ligfin).Address & ",17,FALSE)"

Ou pour ton exemple:

Code :

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

Range("J3").Formula = "=VLOOKUP(A3," & Sheets("Régie en dép. Planif").Name & "!$A$3:" & Range("Q" & ligfin).Address & ",16,FALSE)"

16 au lieu de 17

[luko6]

merci pour ta réponse
toutefois j'ai un message d'erreur pour ce code la

Code :

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

Range("J3").Formula = "=VLOOKUP(A3," & Sheets("Régie en dép. Planif").Name & "!$A$3:" & Range("Q" & ligfin).Address & ",16,FALSE)"

"méthode range de l'objet global a échoué"

dois je avant le code lister les variables?

[mercatog]

Oui, avant ta dernière ligne doit être déclarée

Code :

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

1
2
3
Dim ligfin as long
ligfin=range("A65000").end(xlup).row
Range("J3").Formula = "=VLOOKUP(A3,'" & Sheets("Régie en dép. Planif").Name & "'!$A$3:" & Range("Q" & ligfin).Address & ",16,FALSE)"

il y a des espaces dans ton nom de feuille, j'ai ajouté une apostrophe

[luko6]

Merci c'est ça
mais avec 17 au lieu de 16
Encore merci

[mercatog]

Code :

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

ligfin = Sheets("Régie en dép. Planif").Cells(Sheets("Régie en dép. Planif").Columns(1).Cells.Count, 1).End(xlUp).Row

tu es en 2007
Edit, c'est 17