OVH Cloud OVH Cloud

copie toute bête...

3 réponses
Avatar
Zolive
mais trop intelligente pour moi...


Bonjour à tous...

j'ai sur une feuille, mis a la queue leu leu, un doc format A4 reproduit
plusieurs dizaines de fois. c'est comme si j'avais fait un "copié-coller"
les uns en dessous des autres.

je voudrais que les 22 premières lignes de mon doc soient toutes au même
format....


par ex:

j'ai en C7 : R28 (22 lignes) ma plage de départ au bon format...

et je voudrais que les plage suivantes (ttes les 36 lignes) soir au meme
format... donc les prochaines plages seront:
C65:R86
C123:R144
C181:R202


J'ai bien regardé sur excelabo....mais sans résulat

Merci de votre aide et a bientôt,

j'espère avoir été clair.....

Zolive

3 réponses

Avatar
isabelle
bonjour Zolive,

la macro est pour une recopie de 3 il faudra adapter,
ligne différence
7
65 58
123 58
181 58


Sub Macro1()
Range("C7:R28").Copy
For i = 1 To 3
Range("C" & 7 + (58 * i)).PasteSpecial Paste:=xlPasteFormats
Next
Application.CutCopyMode = False
End Sub

isabelle


mais trop intelligente pour moi...

Bonjour à tous...

j'ai sur une feuille, mis a la queue leu leu, un doc format A4 reproduit
plusieurs dizaines de fois. c'est comme si j'avais fait un "copié-coller"
les uns en dessous des autres.

je voudrais que les 22 premières lignes de mon doc soient toutes au même
format....

par ex:

j'ai en C7 : R28 (22 lignes) ma plage de départ au bon format...

et je voudrais que les plage suivantes (ttes les 36 lignes) soir au meme
format... donc les prochaines plages seront:
C65:R86
C123:R144
C181:R202

J'ai bien regardé sur excelabo....mais sans résulat

Merci de votre aide et a bientôt,

j'espère avoir été clair.....

Zolive


Avatar
SeaCove
il faut penser également à la hauteur des lignes si besoin...
isabelle a écrit dans le message :

bonjour Zolive,

la macro est pour une recopie de 3 il faudra adapter,
ligne différence
7
65 58
123 58
181 58


Sub Macro1()
Range("C7:R28").Copy
For i = 1 To 3
Range("C" & 7 + (58 * i)).PasteSpecial Paste:=xlPasteFormats
Next
Application.CutCopyMode = False
End Sub

isabelle


mais trop intelligente pour moi...

Bonjour à tous...

j'ai sur une feuille, mis a la queue leu leu, un doc format A4 reproduit
plusieurs dizaines de fois. c'est comme si j'avais fait un
"copié-coller"


les uns en dessous des autres.

je voudrais que les 22 premières lignes de mon doc soient toutes au
même


format....

par ex:

j'ai en C7 : R28 (22 lignes) ma plage de départ au bon format...

et je voudrais que les plage suivantes (ttes les 36 lignes) soir au meme
format... donc les prochaines plages seront:
C65:R86
C123:R144
C181:R202

J'ai bien regardé sur excelabo....mais sans résulat

Merci de votre aide et a bientôt,

j'espère avoir été clair.....

Zolive




Avatar
Zolive
Bonjour Isabelle...

Merci pour votre aide, ça marche du tonnerre....

A bientôt,
Zolive

"isabelle" a écrit dans le message de
news:
bonjour Zolive,

la macro est pour une recopie de 3 il faudra adapter,
ligne différence
7
65 58
123 58
181 58


Sub Macro1()
Range("C7:R28").Copy
For i = 1 To 3
Range("C" & 7 + (58 * i)).PasteSpecial Paste:=xlPasteFormats
Next
Application.CutCopyMode = False
End Sub

isabelle


mais trop intelligente pour moi...

Bonjour à tous...

j'ai sur une feuille, mis a la queue leu leu, un doc format A4 reproduit
plusieurs dizaines de fois. c'est comme si j'avais fait un
"copié-coller"


les uns en dessous des autres.

je voudrais que les 22 premières lignes de mon doc soient toutes au
même


format....

par ex:

j'ai en C7 : R28 (22 lignes) ma plage de départ au bon format...

et je voudrais que les plage suivantes (ttes les 36 lignes) soir au meme
format... donc les prochaines plages seront:
C65:R86
C123:R144
C181:R202

J'ai bien regardé sur excelabo....mais sans résulat

Merci de votre aide et a bientôt,

j'espère avoir été clair.....

Zolive