T77XDD
XLDnaute Occasionnel
Bonjour,
je cherche à automatisé des modifications d'un ensemble de cellules
Ce que je cherche à faire est dans le fichier joint: à répéter 200 fois pour 200 groupes de celulles sur la même page.
Merci
je cherche à automatisé des modifications d'un ensemble de cellules
Code:
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("C8").Select
Application.CutCopyMode = False
Selection.Cut
Range("C7").Select
ActiveSheet.Paste
Range("B8:C8").Select
Selection.Delete Shift:=xlUp
Range("B7:C7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 56
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 56
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 56
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 56
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
Merci
Pièces jointes
Dernière édition: