Macro Excel AutoFill divers VBA

Résolu
cs_Gegeleblond Messages postés 41 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 2 août 2010 - 28 mai 2008 à 17:44
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 29 mai 2008 à 12:40
Hello !

Je dois remplir 64 colonnes d'une feuille Excel avec pour chaque colonne une formule differente sachant par ailleurs que les 64 colonnes 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:
Range("A1:B1").Select
Selection.AutoFill Destination:=Range("A1:B5")
Range("A1:B5").Select

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

 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 l on peut utiliser ou non des "Cells(i,j)" pour faire des AutoFill et si oui comment.

Merci

a506920

1 réponse

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
29 mai 2008 à 12:40
3
Rejoignez-nous