Simplification d' une macro

nice · 16 Septembre 2010

Bonsoir,
Je cherche à simplifier la macro ci dessous
Merci infiniment pour votre aide

Feuil14.Range("B4:B19").Copy
With Feuil27.Range("B2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("D4😀19").Copy
With Feuil27.Range("D2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("F4:F19,H4:H19,J4:J19,L4:L19").Copy Feuil27.Range("F2")
End With

Feuil14.Range("P4😛19").Copy
With Feuil27.Range("B18")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("R4:R19").Copy
With Feuil27.Range("D18")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("T4:T19,V4:V19,X4:X19,Z4:Z19").Copy Feuil27.Range("F18")
End With

Feuil14.Range("AD4:AD19").Copy
With Feuil27.Range("B34")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("AF4:AF19").Copy
With Feuil27.Range("D34")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("AH4:AH19,AJ4:AJ19,AL4:AL19,AN4:AN19").Copy Feuil27.Range("F34")
End With

Staple1600 · 16 Septembre 2010

Re : Simplification d' une macro

Bonsoir nice, le fil, le forum

Une possibilité de simplification

Code:

Sub nnn()
Dim t, tt, i&

t = Split("D419/B4:B19/P4:P19/R4:R19/AD4:AD19/AF4:AF19", "/")
tt = Split("d2/b2/b18/d18/b34/d34", "/")

With Feuil2
    For i = 0 To UBound(t)
        .Range(CStr(t(i))).Copy Feuil3.Range(CStr(tt(i)))
    Next i
        .Range("F4:F19,H4:H19,J4:J19,L4:L19").Copy Feuil3.Range("F2")
        .Range("T4:T19,V4:V19,X4:X19,Z4:Z19").Copy Feuil3.Range("F18")
        .Range("AH4:AH19,AJ4:AJ19,AL4:AL19,AN4:AN19").Copy Feuil3.Range("F34")
End With
End Sub

PS: adapter les noms des feuilles
que j'ai changé chez moi en vue de tester mon code

nice · 17 Septembre 2010

Re : Simplification d' une macro

Bonjour,
Je viens d'adapter le code et cela fonctionne parfaitement
Merci infiniment

Simplification d' une macro

nice

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

nice

XLDnaute Nouveau

Discussions similaires

Simplification d' une macro

nice

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

nice

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency