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
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