Copier des cellules dans toutes les feuilles

[Francis]

Bonjour le forum
J'ai vu qu'il y a déjà eu quelques posts sur ce sujet mais aucune des réponses que j'ai pu lire ne semble correspondre à mon problème.

Je désire copier chaque cellule d’une colonne (de A10 à A110) dans 100 feuilles différentes, et ce dans la cellule E5 de chaque feuille.

En somme : La cellule A10 de la feuille 1 dans E5 de la feuille 2
A11 de la feuille 1 dans E5 de la feuille 3
A12 de la feuille 1 dans E5 de la feuille 4
Etc
Si quelqu’un peut me mettre sur la voie ?
Merci
Francis

 

[ChTi160]

Re : Copier des cellules dans toutes les feuilles

Salut Francis
Bonsoir le Forum
ici on colle depuis la feuil1 les données qui se trouvent dans la plage A2:A9
dans la cellule A1 des Feuil2 ,Feuil3 ,,,,,Feuil9

Sub Test()
Dim L as Byte
For L = 2 To 9
  Worksheets("Feuil" & [COLOR=Blue]L[/COLOR]).Range("A1") = Worksheets("Feuil1").Cells([COLOR=Blue]L[/COLOR], 1)
Next
End Sub

en espèrant avoir pu t'aider
Bonne Fin de Soirée

 

[Spitnolan08]

Re : Copier des cellules dans toutes les feuilles

Bonsoir Francis,
Bonsoir Jean-Marie

Je dirais même plus :

 Sub Test()
Dim L as Byte
For L = 10 To 110
  Worksheets("Feuil" & L-8).Range("E5") = Worksheets("Feuil1").Cells(L, 1)
Next
End Sub

Ce qui nécessite quand même qu'il y ait 102 feuilles dans le fichier.

Cordialement

 

[Francis]

Re : Copier des cellules dans toutes les feuilles

Bonsoir Chti160, Spitnolan08 et le forum
Merci pour vos réponses rapides
Cela est parfait et marche très bien ( Les 102 feuilles sont dans le fichier et attendent votre application )
Cordialement Francis

 

[Francis]

Re : Copier des cellules dans toutes les feuilles

Bonjour Chti160, Spitnolan08 et le forum
Le programme que vos avez fait marche très bien sur un classeur vierge où les onglets sont sous la forme de « Feuil01 » etc.
Or mes onglets ont des noms différents et je me bagarre avec cette ligne.
'Worksheets("Feuil" & L - 8).Range("E5") = Worksheets("Feuil1").Cells(L, 1)
Je n’y arrive pas et je me permets de revenir auprès de vous
Merci Francis

 

[Spitnolan08]

Re : Copier des cellules dans toutes les feuilles

Re,

Je fais un passage en coup de vent et ne pourrais pas te répondre dans la foulée. Mais si tu souhaites une aide, il faudrait au moins savoir quelle est la structure de tes noms de feuilles...Sinon dur, dur...

Cordialement

 

[Francis]

Re : Copier des cellules dans toutes les feuilles

Bonjour spitnolan08 et le forum
Merci de me répondre
Les onglets de mes feuilles sont des noms propres ou des sigles en capitale .
Cordialement
Francis

 

[Spitnolan08]

Re : Copier des cellules dans toutes les feuilles

Re,

Les onglets de mes feuilles sont des noms propres ou des sigles en capitale .

L'information n'est pas suffisante. Il faudrait savoir s'il y a une unité d'appellation, une logique en somme... et quelle est elle ?

Mais peut être y a t il plus simple. Dans :

La cellule A10 de la feuille 1 dans E5 de la feuille 2
A11 de la feuille 1 dans E5 de la feuille 3
A12 de la feuille 1 dans E5 de la feuille 4

Comment sont placées tes feuilles ? La feuille2 est la 2ème du classeur, la feuille 3 la 3ème etc... ?

Si oui :

Sub Test()
Dim L as Byte
For L = 10 To 110
  Worksheets(L-8).Range("E5") = Worksheets("Feuil1").Cells(L, 1)
Next
End Sub

Cordialement

 

[Francis]

Re : Copier des cellules dans toutes les feuilles

Bonjour Spitnolan08 et le forum
Que c’est simple VBA quand on a la solution, j’étais parti dans les sheetcount et rien ne marchais. J'ai des progrès à faire!
Ta dernière solution marche nickel.
Merci encore
Cordialement Francis