vlookup version courte ?

bonsoir
je bute sur 1 petit probleme
a vrai dire je ne sais pas si cela est realisable
F1 la feuille de travail
F2 la matrice (100 lignes,30colonnes)
est-il possible de copier avec vlookup les formules dans F1 sans passer
par

Code:

---

1 2 3 4 5 6 7 8 9

Sub testvlookup() Dim i As Integer Dim DerLigi As Long DerLigi = Sheets("F1").Cells(Sheets("F1").Rows.Count, "A").End(xlUp).Row For i = 1 To DerLigi Range("B" & i).Formula = "=VLOOKUP( A:a ,f2!A1:AD130,2,FALSE)" Range("C" & i).Formula = "=VLOOKUP( A:a ,f2!A1:AD130,3,FALSE)" 'ect... Next End Sub

---

un code du genre :oops:

Code:

---

'Range("B:AE" & i).Formula = "=VLOOKUP( A:a ,f2!A1:AD130,2,3,....,FALSE)"

---

qui permettrai une ecriture plus courte
juste une question de confort!!!
merci pour votre aide
cordialement
dalo02

Pour ce cas précis, utilise Colonne()
ci-joint code

Code:

---

1 2 3 4 5 6 7 8

Sub Testvlookup() Dim DerLigi As Long   With Sheets("F1") DerLigi = .Cells(.Rows.Count, "A").End(xlUp).Row Range("B1:AE" & DerLigi).Formula = "=VLOOKUP($A1,F2!$A$1:$AD$130,COLUMN(),FALSE)" End With End Sub

---

bonsoir mercatog
ca fonctionne super
merci 1000 fois pour ton aide:merci:
bonne soiree
cordialement
dalo02