Copier des cellules dans toutes les feuilles

ChTi160

XLDnaute Barbatruc

• 8 Juillet 2007

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 8 Juillet 2007

• #3

Re : Copier des cellules dans toutes les feuilles

Bonsoir Francis,
Bonsoir Jean-Marie

Je dirais même plus :

Code:

 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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 8 Juillet 2007

• #4

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 9 Juillet 2007

• #5

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 9 Juillet 2007

• #6

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 9 Juillet 2007

• #7

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 9 Juillet 2007

• #8

Re : Copier des cellules dans toutes les feuilles

Re,

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Si oui :

Code:

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 9 Juillet 2007

• #9

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

 

Vote positif 0 Vote négatif