Bonjour,
J'ai un petit souci : j'ai une feuille "Compilation", dans laquelle se trouve en colonne 25 une donnée "caractère" (exemple : "2017 - Janvier"). J'ai 30 feuilles (de "2015 - Janvier" à "2017 - Juin").
je cherche à prendre les données se trouvant dans "Compilation" et de les répartir dans chacune des feuilles.
J'ai fait :
"Fe" me permettant d'aller à la ligne suivante pour chaque feuille.....mais...cela ne fonctionne pas....et je pense que cela vient du format....j'ai essayé avec "Fe$()", mais idem, marche pas....
Une idée et/ou autre solution ?
En vous remerciant pour votre aide,
J'ai un petit souci : j'ai une feuille "Compilation", dans laquelle se trouve en colonne 25 une donnée "caractère" (exemple : "2017 - Janvier"). J'ai 30 feuilles (de "2015 - Janvier" à "2017 - Juin").
je cherche à prendre les données se trouvant dans "Compilation" et de les répartir dans chacune des feuilles.
J'ai fait :
Code:
Dim fe(100)
'identification et écriture des données par feuilles
'Lecture
For i = 2 To Sheets("Compilation").Range("A" & Rows.Count).End(xlUp).Row
'idexation des lignes par référence feuille
fe(Sheets("Compilation").Cells(i, 25).Value) = fe(Sheets("Compilation").Cells(i, 25).Value) + 1
'recopie de la colonne 1 à 25 des données Compilation dans Feuille concernée
For j = 1 To 25
Sheets(Sheets("Compilation").Cells(i, 25)).Cells(fe(Sheets("Compilation").Cells(i, 25)), j) = Sheets("Compilation").Cells(i, j)
Next
Next
Une idée et/ou autre solution ?
En vous remerciant pour votre aide,
Dernière édition: