Discussion :

[mouftie]

Bonjour,
je sais copier une colonne :

Code :

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

1
2
Set C = LoSce.ListColumns(1)
C.DataBodyRange.Copy

mais comment copier les colonnes 1 et 2 ?
j'ai essayé

Code :

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

Range(LoSce.ListColumns(1).Range, LoSce.ListColumns(2).Range).copy

Mais j'ai un message Méthode Range a échoué...
Bien sur je peux le faire en 2 fois, mais il doit bien y avoir une solution plus propre ?
Merci pour votre aide

[RyuAutodidacte]

Bonjour,

Des exemples en sélection (montre le résultat visuellement) a adapter pour la copie … :

Code :

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

1
2
3
4
5
6
7
Sub Exemple1()
    ActiveSheet.ListObjects("Table1").ListColumns(1).Range.Resize(, 2).Select
End Sub
 
Sub Exemple2()
    ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange.Resize(, 2).Select
End Sub

[mouftie]

Un grand merci Ryu, je n'avais pas penser à faire un resize...
pour info des visiteurs
Exemple 1 = sélection avec titre
Exemple 2 = sélection des données.

Dans le même ordre d'idée, est-ce tu saurais comment on sélectionne une ligne de total, sauf la 1ère colonne ; je connais

Code :

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

    Set Total = Tb.TotalsRowRange   'affecte ligne des totaux

mais comment ne pas prendre la 1ère cellule ?

Aujourd'hui, j'utilise qqch comme ça

Code :

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

Range("TbRecapAgt[[#Totals],[VolProd]:[TbxStatuSo]]").Copy

mais si on touche à la 1ère ou la dernière colonne de données, ça ne sera plus juste...

Merci encore pour ton aide.

[RyuAutodidacte]

Bonjour,

Tu as répondu toi même a ta question avec l’une des solutions dans ton 2ème code :

Code :

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

Range("TbRecapAgt[[#Totals],[VolProd]:[TbxStatuSo]]").Copy

C’est comme avec les adresses d’une plage :

Code :

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

Range("A1:E1").Copy

Sauf que la il faut juste spécifier de quel nom de colonne tu veux commencer et le nom de colonne de fin de plage.

Code :

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

Range("TbRecapAgt[[#Totals],[NomDeColonneDeDebut]:[NomDeColonneDeFin]]").Copy