Discussion :

[dalo02]

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 :

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

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

Code :

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

'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

[mercatog]

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

Code :

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

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

[dalo02]

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