copier plusieurs colonnes non consécutive avec .Columns()

Version imprimable

10/05/2010, 16h40
hantran

copier plusieurs colonnes non consécutive avec .Columns()

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:

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

mais avec .Columns je ne sais pas,

Code:

Columns(1).Copy

marche, mais

Code:

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

ou

Code:

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

ne marchent pas

Merci
10/05/2010, 16h48
larryj

Il faut faire un range de plusieurs colonnes

Code:

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

Pas testé !

Code:

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

10/05/2010, 17h08
hantran

Merci à vous, les deux solutions marchent. :ccool:

Ou encore

Code:

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

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:

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

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

Code:

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:

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

11/05/2010, 14h57
hantran

là pour l'instant j'en ai une trentaine, mais j'ai toujours cet erreur, je ne comprends plus, dès que j'enlève 1 paramètre ça passe 8O

peut être que je vais écrire le code autrement pour voir

merci

Dans mon premier exemple, essaie d'utiliser un tablo
Code:

1 2 3 4 5 6 7 dim tablo tablo=array(colquote_num,colopp_num,...)' l'ensemble de tes variables Set plage = Columns(tablo(0)) For i = 1 To UBound(tablo) Set plage = Union(plage, Columns(tablo(i))) Next i plage.Copy
Union a une limite d'écriture de 30 arguments Union(Arg1,...,Arg30)
pour détourner cette limite, passe par le code cité ci-dessus (qui revient à faire, union(union(union...(union(X,Y))))))

Maintenant j'ai une erreur "Cannot change part of a merged cells" sur la ligne plage.Copy

il paraît qu'il essaie de copier une colonne où il y a des merged cells (mails il n'en a pas dans mes colonnes)

sinon le tableau a l'air de fonctionner, merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
tablo = Array(colquote_num, colopp_num, colacc_name, colyea, colq, colfw, colpole, colregion, colpays, _
                      colge_mod, colcp, colqty, coltot_equip_lp, colaop, colsp_net, colTI, colNESP, _
                      colicv, colNLs, colinstall, colwty, colFMI, colApps, colSales_com, colAgent_com, _
                      colTot_com, colTot_transp, colOther, colCM, colCM_pct, colpct_dis)
 
Set plage = Columns(tablo(0))
 
For i = 1 To UBound(tablo)
            Set plage = Union(plage, Columns(tablo(i)))
Next i
            plage.Copy

11/05/2010, 15h50
mercatog

à la place de plage.copy
met plage.select pour vérifier que tes colonnes sont sélectionnées
en plus, vu tes post précédents, tu écris:

Citation:

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

les message d'erreur est explicite
11/05/2010, 15h58
hantran

Merci mercatog pour ton temps, je penses que je ne vais pas continuer à te déranger, je vais faire deux fois le copier/coller, chaque fois 15 colonnes avec Union, comme ça on est tranquille. ;)

Merci beaucoup
11/05/2010, 18h35
mercatog

La question reste pour autant étrange.
Pour profiter à tous, si tu donne le résultat si à la place de plage.copy, tu mettais plage.select.
j'ai fais plusieurs test, le message apparait quand des cellules sont fusionnées horizontalement.

J'ai erreur "Selection of Range class failed" sur plage.Select

Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
tablo = Array(colquote_num, colopp_num, colacc_name, colyea, colq, colfw, colpole, colregion, colpays, _
                      colge_mod, colcp, colqty, coltot_equip_lp, colaop, colsp_net, colTI, colNESP, _
                      colicv, colNLs, colinstall, colwty, colFMI, colApps, colSales_com, colAgent_com, _
                      colTot_com, colTot_transp, colOther, colCM, colCM_pct, colpct_dis, colEquip, colmmcmimpact, colservice_flag, _
                      colservice_price, colservice_name, colcnt_warr, colSeg)
 
       Set plage = Columns(tablo(0))
 
       For i = 1 To UBound(tablo)
            Set plage = Union(plage, Columns(tablo(i)))
       Next i
            plage.Select
            Selection.Copy

11/06/2018, 12h42
tidi77

re

Bonjour Mercatog ;

J'ai besoin d'aide , je suis partir de ton code avec l'union pour qu'il me donne les 6 colonnes de ma feuille " CalculN" mais j'aimerai élargir le code pour qu'il me également les colonnes de mes feuilles CalculN+1..................CalculN+50 , sachant que les 4 premières colonnes sont identiques à tous les autres CalculN............CalculN+50 , j'aimerai qu'il me copie pour CalculN+1..........CalculN+50 les deux autres colonnes différentes .
Merci d'avance pour ton aide :aie: