Discussion :

[emi3113]

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 :

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

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 :

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

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

[fring]

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 :

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

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

[emi3113]

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