coller dans un colonne

bonjour,
voici mon petit souci

j'ai deux classeurs,

un classeur A (plusieurs feuilles) depuis lequel je copie des données dans deux colonnes et x lignes

un classeur B (une seule feuille ) vers lequel je copie ces données

A chaque feuille du classeur A, doit correspondre une colonne de la feuille du classeur B

je commence donc par lire le nom de la feuille active du classeur A

Code:

---

1 2 3 4

For i = 1 To nbfeuil Windows("Boursorama - Mars.xlsb").Activate val = Worksheets(i).Name ...

---

ensuite sur le classeur B, je me positionne sur la derniere cellule de la ligne 1 pour y ecrire ce nom

Code:

---

1 2 3 4 5

...Windows("base.xlsx").Activate With Workbooks("base").Worksheets("Résultat").Range("a1").End(xlToRight).Select ActiveCell.Offset(0, 1).Activate ActiveCell.Value = val ...

---

et c'est là qu'intervient mon souci, j'ai besoin de
recuperer l'indice ou la position de cette colonne ou la rendre active de facon a ce que toutes les données que je vais copier dans la feuille active du classeur A soit collées uniquement dans cette colonne.

et là je vois pas trop comment faire ....

Ecrit tout ton code dans un seul des deux classeurs et quand tu veux copier dans l'autre classeur ou avoir des infos dessus organise ton code comme ceci

enlève tes windows activate pas beau
pour avoir l'indice de ta colonne tu fais

Code:

---

val = Workbooks("base").Worksheets("Résultat").Range("IV1").End(xlToleft).column +1

---

et tu auras ton indice de la première case de la ligne 1 vide

merci de ta réponse


Pourquoi virer mes windows activate ?? (parce que je l'avoue, j'en ai mis une palanquée....:aie:)

C'est surtout que j'en aie besoin sinon comment je fais pour copier mes données de mon classeur A ( sans l'activer ?) et pour les coller dans mon classeur B ( sans l'activer ???)

eh bien tu fais un

Code:

---

1 2 3

workbooks("nomduA").sheets("nomfeuille").range(tarange).copy workbooks("nomduB").sheets("nomfeuille").range(tarange).pastespecial xlpastevalues

---

ou un truc du genre ...

Sinon en une seule ligne:

Code:

---

workbooks("nomduA").sheets("nomfeuille").range(tarange).copy workbooks("nomduB").sheets("nomfeuille").range(tarange)

---

Sinon tu as essayé de faire un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim WbkB as Workbook, WbkA as workbook F as Worksheet, Fcible as Worksheet dim nom as string   set WbkA = Workbook("A") set WbkB = Workbook("B") set Fcible as WbkB.Worksheets("Feuil1")   For each F in WbkA.Worksheets nom = F.name Dercol=WbkB.Fcible.range("IV1").end(xltoleft).column WbkB.Fcible.Cells(1,Dercol).Value=nom F.range("A1","A100").copy WbkB.Fcible.cells(2,Dercol) next F

---

merci à vous deux :ccool:

De rien:
met un petit résolu si tu as ta réponse
;)