Discussion :

[Bonero]

Bonjour tout le monde,

Quelqu’un aurait il l’amabilité de m’expliquer pourqoui je n’arrive pas selectionner la colonne ENTIERE (cad y compris l’etiquette) de mon tabeau par le deuxieme moyen ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub TableSelectionnerColonneEntiere()
'jai un tableau 6lignes*2colonnes qui contient de valeurs numeriques.
'la 1ere colonne a pour etiquette x, et la 2è colonne a pour etiquette y.
 
        Worksheets("table").Activate
        Dim aFeuil As Worksheet
        Set aFeuil = Worksheets("table")
 
        Dim Plage As Range
        Set Plage = aFeuil.Range("A11:B16") 'la plage qui contient mon tableau.
 
'creation de mon tableau.
        aFeuil.ListObjects.Add(xlSrcRange, Plage, , xlYes).Name = "Familia"
 
'le 1er moeyen de selectionner TOUTE la colonne x marche bien.
        Dim T1 As ListObject
        Set T1 = aFeuil.ListObjects("Familia")
        T1.ListColumns(1).Range.Select  'selectionne la colonne AVEC son etiquette.
 
'2è moyen de selectionner la TOUTE la colonnne x:
    'la colonne x est selectionnée SANS son etiquette.
     aFeuil.Range("Familia[x]").Select
     'je veux maintenant selectionner la colonne x AVEC son etiquette mais l'instruction suivante produite une erreur.
     'SVP aidez moi a comprendre pourquoi cette intruction echoue.
     aFeuil.Range("Familia[[#all],[x]]").Select
 
End Sub

[Pierre Fauconnier]

Bonjour.

Ton tableau contient des entêtes => la colonne est considérée SANS l'entête.

Pour sélectionner les données ET l'entête, tu peux utiliser

Code :

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

union(afeuil.Range("familia[x]"),afeuil.Range("familia[x]")(0)).Select

* J'ai considéré que l'entête de ta colonne était "x"

[Bonero]

merci pour l'astuce.
j'ai essayé le meme code apres , et à ma plus surprise, cela a marché.