répéter macro sur différente lignes

[iaKem]

Bonjour à tous,

je suis totalement novice sur ce sujet. J'ai bien vu qu'il existait d'autres sujets sur le forum abordant le même problème que moi mais je ne vois pas comment utiliser les réponses déjà données.

voici mon problème:

je cherche à copier automatiquement une mise en forme des lignes d'un premier tableau pour la recopier sur les lignes du deuxième tableau en dessous.

pour l'instant, j'en suis la...

Sub macrosub()

Range("A16:C17").Select
Selection.Copy
Range("A152:C153").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range("A18:C19").Select
Selection.Copy
Range("A154:C155").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


.
.
.
.
.

Range("A132:C133").Select
Selection.Copy
Range("A268:C269").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


End Sub



vous l'aurai compris, au vu du nombre de lignes, c'est long et fastidieux de procéder ainsi...

y'a - t- il un moyen de la répéter ??

merci d'avance

 

[vgendron]

bonjour
et pourquoi pas simplement ?

Sub macrosub()

Range("A16:C133").Select
Selection.Copy
Range("A152:C269").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[iaKem]

Bonsoir,
merci de votre réponse...
simplement, ca marche aussi!! merci

et savez vous pourquoi quand je veux recopier cette mise en forme dans un 3ème tableau, le 2ème n'est pas pris en compte?

Sub macrosub()

Range("A16:C35").Select
Selection.Copy
Range("A152:C171").Select
Range("A182:C193").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False



End Sub

de toute évidence je dois oublier quelque chose...