copier-coller des colonnes séparées-excel 2010

[olivowitch]

Bonjour,

Dans une feuille, j'ai des colonnes (certaines collées d'autres non) que je souhaite copier en même temps.
Ceci en fonction du nombre de cellules pleines dans la colonne A.
Voici le code où le problème est "nombre d'arguments incorrect"

Sub test()
LastRow = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Feuil1").Select
Range("D2😀" & LastRow, "F2:F" & LastRow, "I2:i" & LastRow & ":K2:K" & LastRow).Select
Selection.Copy
End Sub

Si je fais pour une seule colonne, ça fonctionne ( expl colonne D : Range("D2😀" & LastRow).select)
Si je le fais pour uniquement l'ensemble de colonne I->K ça fonctionne aussi :
Range("I2:i" & LastRow & ":K2:K" & LastRow).Select

Veuillez trouver un doc excel en pièce jointe
(La macro est dans le module 1).

N'hésitez pas si je ne suis pas très clair.

Merci et bonne journée à Tous,

Olivowitch

 

[olivowitch]

Re : copier-coller des colonnes séparées-excel 2010

😀 correspond à :d

 

[DoubleZero]

Re : copier-coller des colonnes séparées-excel 2010

Bonjour, Olivowitch, le Forum,

Peut-être ainsi :

Sub Toto()
Dim plage As Range
Sheets("Feuil2").Range("a1").Cells.Clear
For i = 2 To Range("a65536").End(xlUp).Row
    Set plage1 = Range("a2").CurrentRegion.Offset(, 3)
    Set plage2 = Range("a2").CurrentRegion.Offset(, 5)
    Set plage3 = Range("a2").CurrentRegion.Offset(, 8)
    Set plage4 = Range("a2").CurrentRegion.Offset(, 10)
    Set plage5 = Union(plage1, plage2, plage3, plage4)
Next
plage5.Copy Destination:=Sheets("Feuil2").Range("a1")
End Sub

A bientôt 🙂

 

[olivowitch]

Re : copier-coller des colonnes séparées-excel 2010

Bonjour DoubleZero,

Je ne connaissais pas "Union".
Merci beaucoup de ton aide, ça fonctionne parfaitement.

Bonne journée

Olivowitch