Simplifier macro

[mcj1997]

Bonjour,

Je cherche à simplifier la macro ci-dessous afin d'éviter les répétitions identiques.

Merci d'avance



Sub figerjour()

Range("E4:E130").Select
Selection.Copy
Range("D4😀130").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I4:I130").Select
Selection.Copy
Range("H4:H130").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("m4:m130").Select
Selection.Copy
Range("l4:l130").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("q4:q130").Select
Selection.Copy
Range("p4😛130").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End sub

 

[phlaurent55]

Re : Simplifier macro

Bonjour mcj,

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

 

[kingfadhel]

Re : Simplifier macro

Bonjour mcj,

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

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.

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+

 

[mcj1997]

Re : Simplifier macro

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.

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+

Bonjour,

Merci pour la réponse pour l'adapter à d'autres fichiers et pour comprendre à quoi correspond le chiffre 17 sur la ligne for i = 5 to 17 step 4 ?

Merci d'avance,

 

[Staple1600]

Re : Simplifier macro

Bonjour à tous

pour comprendre à quoi correspond le chiffre 17

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

 

[mcj1997]

Re : Simplifier macro

Bonjour à tous


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

Oui c'est bien cela
Merci