Discussion :

[clairev]

Bonjour,
j'ai ce code pour copier des colonnes de différents fichiers sorties sur une meme feuille, mais il y a une erreur (erreur définie par l'application ou l'objet) au niveau de range (cells...)
Que faudrait il que je change? merci

Code :

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

1
2
3
4
5
6
7
Dim i, j As Integer
For i = 1 To 5
j = i + 1
Workbooks.Open "C:\A" & i & ".csv"
Workbooks("A" & i & ".csv").Sheets("A" & i).Range("AS2:AS366").Copy (Workbooks("RESULTAT.xls").Sheets("Resultat").Range(Cells(3, j), Cells(367, j)))
Workbooks("A" & i & ".csv").Close
Next i

[discus23]

Hello,

récemment, j'ai eu à faire quelque chose de semblable à ce que tu dois chercher à faire.

Et j'ai fait comme suit:

Code :

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

1
2
3
4
5
6
 
Set A = Worksheets("*.csv")
Set B = Worksheets("*.csv")
 
 
A.Range(A.Range("B1:G1"), A.Range("B1:G1").End(xlDown)).Copy B.Range("C2")

En adaptant, je pense que tu devrais t'en sortir

[clairev]

En fait mon probleme vient du fait que je voudrais que a chaque fois ca decale la copie d'une colonne. c'est ce que j'essaie de faire avec cells mais qui ne marche pas. Si a la place je mets une plage fixe, par ex "B3" la ca marche.

[discus23]

Tu veux décaler pour coller une fois dans la colonne A, la fois d'après dans la colonne B, etc etc ?

Il te faut donc incrémenter sur le nom de la colonne. Pour se faire, passe par le code ASCII pour indiquer ta colonne.
De mémoire, utilise la fonction Ctr.
Par exemple, la colonne "A1" devient Ctr(66) & 1
donc pour B1: Ctr(66+I) & 1

Creuse de ce côté là

[ouskel'n'or]

Un conseil ? Ne te lance pas à utiliser Chr (non ctr) pour nommer tes colonnes
Il y a suffisemment de méthodes pour ne pas ajouter de complexité au code
Que veux-tu faire ? Copier certaines colonnes de feuilles de calculs différentes dans une feuille unique, en ajoutant les colonnes les unes à la suite des autres...
Est-ce bien ça ?
A+

Désolé discus, mais autant utiliser les outils qui existent

[Krovax]

plus amusant pour avoir la lettre et qui a l'avantage de fonction au dela de 2 colonne

Code :

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

1
2
3
4
5
6
7
8
 
dim lettre as string
dim i as byte
i=28 'le numero de colonne
lettre=Split(Cells(1, i).Address, "$")(1)
msgbox lettre
'et ensuite 
range(lettre & 1)

Mais pour copier une colonne on fait plus simple

Code :

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

Columns(1).Copy Columns(2)

Code :

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

1
2
3
4
5
6
7
Dim i, j As Integer
For i = 1 To 5
j = i + 1
Workbooks.Open "C:\A" & i & ".csv"
Workbooks("A" & i & ".csv").Sheets("A" & i).columns(1).Copy  Workbooks("RESULTAT.xls").Sheets("Resultat").columns(j)
Workbooks("A" & i & ".csv").Close
Next i

Edit : la première méthode pour avoir la lettre est amusante mais compliqué passer par le numéro de colonne est bien plus simple

[clairev]

Un conseil ? Ne te lance pas à utiliser Chr (non ctr) pour nommer tes colonnes
Il y a suffisemment de méthodes pour ne pas ajouter de complexité au code
Que veux-tu faire ? Copier certaines colonnes de feuilles de calculs différentes dans une feuille unique, en ajoutant les colonnes les unes à la suite des autres...
Est-ce bien ça ?
A+

Désolé discus, mais autant utiliser les outils qui existent

oui c'est ca je veux copier des colonnes de différents fichiers a la suite dans un seul fichier

plus amusant pour avoir la lettre et qui a l'avantage de fonction au dela de 2 colonne

Code :

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

1
2
3
4
5
6
7
8
 
dim lettre as string
dim i as byte
i=28 'le numero de colonne
lettre=Split(Cells(1, i).Address, "$")(1)
msgbox lettre
'et ensuite 
range(lettre & 1)

Mais pour copier une colonne on fait plus simple

Code :

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

Columns(1).Copy Columns(2)

Code :

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

1
2
3
4
5
6
7
Dim i, j As Integer
For i = 1 To 5
j = i + 1
Workbooks.Open "C:\A" & i & ".csv"
Workbooks("A" & i & ".csv").Sheets("A" & i).columns(1).Copy  Workbooks("RESULTAT.xls").Sheets("Resultat").columns(j)
Workbooks("A" & i & ".csv").Close
Next i

Edit : la première méthode pour avoir la lettre est amusante mais compliqué passer par le numéro de colonne est bien plus simple

merci bcp! je pense qu'avec les colonnes ca devrait etre bon