selection avec range et tableaux structurés

R

richert90

XLDnaute Occasionnel

• 1 Mars 2014

• #2

Re : selection avec range et tableaux structurés

Bonjour,

Peut-être:

sub test2()
sheets("Feuil1").select
Columns("B:B").select
end sub

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 1 Mars 2014

• #3

Re : selection avec range et tableaux structurés

merci mais je cherche à travailler avec les noms de colonnes...

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 2 Mars 2014

• #4

Re : selection avec range et tableaux structurés

Bonsoir
Peux-tu mettre un extrait de ton fichier
ce code marche :

Code:

Sub Macro1()
    Range("Tableau1[PRENOM]").Select
End Sub

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #5

Re : selection avec range et tableaux structurés

Bonjour à tous

rafi93
Juste une question: pourquoi veux-tu sélectionner ?
Car il est rarement utile de le faire en VBA.
(et il est même souvent ici (et ailleurs) conseillé d'éviter les Select et Activate)

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #6

Re : selection avec range et tableaux structurés

c'est bien ce que j'ai écrit, mais impossible de comprendre pourquoi ça ne marche pas dans mon cas
voir le code "test2()" dans fichier ci joint

merci !

 

Pièces jointes

• test vba.xlsm

  18.3 KB · Affichages: 60
• test vba.xlsm

  18.3 KB · Affichages: 45
• test vba.xlsm

  18.3 KB · Affichages: 45

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #7

Re : selection avec range et tableaux structurés

en fait, je cherchais à lire/ecrire dans une colonne du tableau
comme je n'arrivais pas à adresser la zone, j'ai simplifié mon probleme en cherchant juste à le selectionner...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #8

Re : selection avec range et tableaux structurés

Re


Utilises les possibilités offertes par ListObject
(ci-dessous quelques exemples d'utilisation et on n'utilise pas de Selection)

Code:

Sub b()
With Sheets("Feuil1").ListObjects("Tableau1")
    MsgBox .DataBodyRange.Columns(2).Address
    MsgBox .DataBodyRange.Columns(2).Range("A1").Address
    MsgBox .DataBodyRange.Columns(2).Range("A3").Address
End With
End Sub

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #9

Re : selection avec range et tableaux structurés

ok merci
mais est ce que je peux utiliser les noms des colonnes plutôt que "columns(2) ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #10

Re : selection avec range et tableaux structurés

Re

Il suffit d'essayer pour le savoir 😉
ou ne pas oublier ce que t'avais déjà suggéré Reguiero à minuit vingt cinq. 😉

Code:

Sub c()
MsgBox Range("Tableau1[colC]").Address
End Sub

 

Dernière édition: 2 Mars 2014

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #11

Re : selection avec range et tableaux structurés

voici ce que j'obtiens, toujours le même probleme
je ne comprends pas pourquoi

precision : j'ai joué Sub(C) càd

Sub c()
MsgBox Range("Tableau[colC]").Address
MsgBox Worksheets("Feuil1").Range("Tableau[colC]").Address

End Sub

aussi bien la 1ere que la 2eme ligne plante idem

 

Pièces jointes

• ScreenShot001.jpg

  64 KB · Affichages: 104
• ScreenShot001.jpg

  64 KB · Affichages: 83
• ScreenShot001.jpg

  64 KB · Affichages: 86

Dernière édition: 2 Mars 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #12

Re : selection avec range et tableaux structurés

Re


Dans ton fichier exemple testvba.xlsm, c'est Tableau1 et non pas tableau !
(comme le montraient mes précédents exemples)

Testes ceci pour t'en convaincre

Code:

Sub d()
MsgBox Sheets("Feuil1").ListObjects.Count
x = Sheets("Feuil1").ListObjects.Count
MsgBox Sheets("Feuil1").ListObjects(x).Name
End Sub

 

Dernière édition: 2 Mars 2014

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #13

Re : selection avec range et tableaux structurés

en fait je viens de comprendre le pb

j'ai donné "manuellement" le nom "Tableau" à la plage qui inclut la ligne d'en tête (colA, etc), et que j'adresse dans mon code; ce qui me génère l'erreur

mais j'ai aussi par ailleurs selectionné la même plage puis "inserer>tableau" qui m'a créé automatiquement le nom "Tableau1", mais qui correspond à la plage sans les lignes d'en-tête.

j'apprends donc que le code VB travaille sur la plage sans les en-tête, et que je faisais une erreur en donnant manuellement le nom "Tableau" à l'ensemble de la plage.

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 2 Mars 2014

• #14

Re : selection avec range et tableaux structurés

Bonsoir à Tous, rafi93

Ta référence "Tableau" = Plage Nommée

Tableau1 = Une collection Listobjects
Si tu veux sélectionner tableau1 depuis n'importe ou dans ton classeur
Il est nécessaire de préciser la feuille contenant l'objet.

Ce lien n'existe plus

A+

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 2 Mars 2014

• #15

Re : selection avec range et tableaux structurés

merci pour ce lien, que je mets en Favoris !

une question : quand j'adresse un tableau (au sens Inserer>Tableau), je dois calculer son offset par rapport à la 1ere ligne de la feuille, avant de pouvoir lire ou écrire dans une cellule.

D = [Tableau[ColB]].Row - 1
For Each C In [Tableau1[ColB]]
Range("Tableau[ColB]").Cells(C.Row - D, 1).Value = "toto"

ce qui est assez lourd

comment faire pour que l'adresse de la cellule soit simplement relative, peu importe où se trouve le tableau ?
j'ai l'impression que Listobjects le permet, mais je n'en suis pas sur

 

Vote positif 0 Vote négatif