Simplifier macro

phlaurent55 à dit:

Bonjour mcj,

avec ce code:

Code:

Sub figerjour()
For i = 5 To 17 Step 4
Range(Cells(4, i), Cells(130, i)).Copy Destination:=Cells(4, i - 1)
Next i
End Sub

à+
Philippe

Cliquez pour agrandir...

Sub figerjour()
For i = 5 To 17 Step 4
Range(Cells(4, i), Cells(9, i)).Copy
Cells(4, i - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub

kingfadhel à dit:

Bonjour, phlaurent55, mcj1997 et le forum

phlaurent55: la simplification du code est géniale, mais une petite remarque:

dans le code de mcj1997 il met : xlpastevalues donc les cellules à copier contiennent des formules ou des références ou autre choses

donc je m'excuse d'utilisé ton code et lui ajouter un bout de code pour remédier au truc de xlpastevalues.

Code:

Sub figerjour()
For i = 5 To 17 Step 4
Range(Cells(4, i), Cells(9, i)).Copy
Cells(4, i - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub

A+

Cliquez pour agrandir...

pour comprendre à quoi correspond le chiffre 17

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour à tous


La lettre Q est la 17ème de l'alphabet.
Et dans ton code, tu t'intéresses à la colonne Q, non ?

Cliquez pour agrandir...