Discussion :

[hantran]

Bonjour,

Y-a-t-il un moyen pour copier plusieurs colonnes non consécutive en utilisant leur numéros ?
Par ex :
pour la propriété Range on peut le faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A:A, C:C, AZ:AZ, DP:DP...etc").Copy

mais avec .Columns je ne sais pas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(1).Copy

marche, mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(1,2, 6, 10, 100).Copy

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(1:1, 3:3, 7:7, ..etc).Copy

ne marchent pas

Merci

[larryj]

Il faut faire un range de plusieurs colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MySheet.range(MySheet.columns(1),MySheet.columns(3)).Copy

[Tempas]

Pas testé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sel
Set sel = Range(Columns(3), Columns(6))

[hantran]

Merci à vous, les deux solutions marchent.

[mercatog]

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Feuil1")
    Union(.Columns(1), .Columns(3), .Columns(5), .Columns(24)).Copy Sheets("Feuil2").Range("A1")
End With

[hantran]

Est-ce la méthode Union a un nombre limité de paramètres ?

Car j'ai une erreur "Wrong number of arguments or invalid property assignment" avec ce morceau de code

Et quand j'enlève 1 paramètre, n'importe lequel, ça passe.

Pareil pour les deux autres solutions au dessus.

note: les colxxx sont les numéro de colonnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Sheets(tmp)
            Union(.Columns(colquote_num), .Columns(colopp_num), .Columns(colacc_name), .Columns(colyea), .Columns(colq), .Columns(colfw), .Columns(colpole), .Columns(colregion), .Columns(colpays), _
                  .Columns(colge_mod), .Columns(colcp), .Columns(colqty), .Columns(coltot_equip_lp), .Columns(colaop), .Columns(colsp_net), .Columns(colTI), .Columns(colNESP), .Columns(colicv), .Columns(colNLs), .Columns(colinstall), .Columns(colwty), _
                  .Columns(colFMI), .Columns(colApps), .Columns(colSales_com), .Columns(colAgent_com), .Columns(colTot_com), .Columns(colTot_transp), .Columns(colOther), .Columns(colCM), .Columns(colCM_pct), .Columns(colpct_dis)).Copy
 
       End With

[mercatog]

combien tu as de colonnes?
J'ai fais le test ci-joint, je n'ai rencontré pas de limite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
Dim plage As Range
Dim tablo
 
tablo = Array(1, 3, 5, 7, 8, 9, 11, 13, 15, 17, 18, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 42, 43, 45, 47, 48, 49, 50, 52, 54, 56, 57, 59, 61, 63, 65, 67, 69, 71, 76, 78, 79, 83, 84, 87, 99, 111, 120, 122, 124, 126, 128, 130, 132, 134, 136, 137, 139, 141)
Set plage = Columns(tablo(0))
For i = 1 To UBound(tablo)
    Set plage = Union(plage, Columns(tablo(i)))
Next i
plage.Select

et même avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim i As Integer
Dim plage As Range
Set plage = Columns(1)
For i = 2 To 255
    Set plage = Union(plage, Columns(i))
Next i
plage.Select

les 255 colonnes sont prises en compte