XL 2010 Répéter une macro

[Cerisaie]

Bonjour,
je cherche à faire la macro que j'ai enregistrée pour chaque étiquettes (en tout il y en a 30 pages).
Mais je fais CTRL d sur la case G2 il me ramène à la case d'origine.
Comment faire pour qu'il l'applique au fur et mesure des cases que je sélectionne.
J'ai cherché et vu qu'il y a une méthode qui permet de le faire en faisant des "sauts" réguliers,
en ce qui me concerne je dois pouvoir le reprendre sur une autre page où les renseignements sur les lignes en dessous sont différents (5 lignes au lieu de 8).
La macro que j'ai créé et je cherche à ce que au lieu de
"Range("A2:C2").Select " on aient
"Range("la case que je choisi").Select"
Merci.

Sub Cases()
'
' Cases Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
Range("A2:C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Rows("2:2").EntireRow.AutoFit
End Sub

 

[Dranreb]

Bonjour.
Alors, si vous voulez qu'il traite la sélection en cours, enlevez simplement le Range("A2:C2").Select

 

[Robert]

Bonjour Cerisaie, bonjour le forum,

Supprime la ligne : Range("A2:C2").Select
Sélectionne la plage que tu désires puis lance ta macro...

 

[Cerisaie]

Merci et surtout pour ta rapidité.
Ça fonctionne comme ça et c'est bon à savoir mais c'est vrai qu'a l'usage ça reste long.
Comment procéder si je l'appliquer sur une feuille entière quitte à refaire une macro pour les autres feuilles.
pour le moment je vais m'avancer sur les "petites" feuilles".