Macro Excel AutoFill

Bonjour
Je dois remplir 64 colonnes d'une feuille Excel avec pour chaque colonne une formule differente sachant par ailleurs que les 64 colonnes à remplir ne sont pas cote à cote. Ci dessous un exemple du problème simplifié avec en rouge les colonnes à remplir:
__A B C D E ... GG GH GI
1
2
3
4
5

J ai vu que pour remplir par exemple la colonne A et B de la ligne 1 à 5 avec une macro il suffisait d ecrire:

Code:

---

1 2 3

Range("A1:B1").Select Selection.AutoFill Destination:=Range("A1:B5") Range("A1:B5").Select

---

Il me semble plus judicieux dans mon cas d utiliser des "Cells(i,j)" et des boucles for comme ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

For j=1 to 64 Cells( 1 , 3*j - 2 ).Select Cells( 1 , 3*j - 1 ).Select Next j     For i =1 to 5 For j=1 to 64 Selection.AutoFill Destination:=Cells( i , 3*j - 2 ) Selection.AutoFill Destination:=Cells( i , 3*j - 1 ) Next j Next i   For i =1 to 5 For j=1 to 64 Cells( i , 3*j - 2 ).Select Cells( i , 3*j - 1 ).Select Next j Next i

---

Mais bien sur ca ne fonctionne pas.
Donc au final, j aimerais savoir si vous avez une idee pour utiliser des "Cells(i,j)" pour faire des AutoFill.

Merci

Bonjour,

Voici un exemple qui va faire un Autofill de la ligne 1 à 5, sur 64 colonnes.
Cela devrait te permettre de comprendre le mécanisme et de l'adapter à ton cas

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim i As Byte   For i = 1 To 64 Cells(1, i).AutoFill Destination:=Range(Cells(1, i), Cells(5, i)) Next   End Sub

---

Merci, c est exactement ce dont j avais besoin !!!