ListBox.list et nommage tableau Excel 2007

bonsoir à tous,

je souhaite remplir une zone de liste à deux colonnes en utilisant la propriété ".List" de la ZdL et le nom des colonnes format XL2007 ex : "TabAdresse[[CP]]" et "TabAdresse[[Ville]]"

Cela fonctionne bien pour une colonne :

Code:

---

1 2	TabArray = Range("TabAdresse[[CP]]") ZdL.List = TabArray

---

Mais impossible de spécifier correctement la seconde colonne. La virgule entre les adresses dans "Range" ne fonctionne pas.

Quelle est la synthaxe ?

Merci.

ESVBA

Bonjour,

Pas sûr de comprendre, mais si tu veux remplir une variable tableau avec une référence directe à un range, il va te créer un tableau à 2 dimensions automatiquement.

Mais pour ce faire, il faut que tu lui fournisses un range "continu" et non pas une Union de range.

Si tes colonnes sont accolées, tu lui donne direct les 2 extrémités, si elles ne sont pas accolées, tu ne pourra pas faire une assignation directe.

A tester, le plus rapide peut être de créer 2 variables tableaux distinctes et de créer une variable tableau finale en réunissant les deux... ou de copier la feuille, de supprimer les colonnes non voulues et d'affecter une variable tableau avec le reste.

Reste selon le contexte et la volonté d'optimisation de construire la variable tableau avec une boucle.

vois ici si besoin : http://didier-gonard.developpez.com/...vba/#LVIII-B-2

cordialement,

Didier

Citation:

---

que tu lui fournisses un range "continu" et [...]
Si tes colonnes sont accolées, tu lui donne direct les 2 extrémités

---

justement mon problème est la manière de lui écrire un range continu avec les appelations utilisées avec les références tableaux Excel 2007 (pas de problème d'ajout, pas de plage nommée supplémentaire, pas de référence, pas de gestion de cellules et d'emplacement, l'idéal).

Je souhaitais une affectation directe sans passer par une boucle pour un code rapide, simple et propre (un peu à la Access).
Puisqu'il y a des nouveautés dans Excel 2007...
Nouveautés mais limitées à l'usage !

Enfin s'il y a une solution...

ESVBA

ne piste pour la lecture ici

Merci à toi Ormonth mais on reste dans la déclaration de plages nommées et ses inconvénients.

Je ne comprends pas comment mettre deux colonnes (contigües) d'un tableau excel 2007 dans une ListBox à deux colonnes (placée sur une UserForm).

C'est un problème d'affectation à la "ListBox".

J'ai résolu le problème par le code ci-dessous mais j'espérais qu'il y ait un moyen sans boucle et simplement en déclarant seulement le tableau (entêtes fixes).

Code:

---

1 2 3 4 5 6 7 8

Cpte = 0 For Each v in Range("TabVille"). LstAJout.Additem LstAjout.List(Cpte, 0) = v.Offset(0,-1).Value LstAjout.List(Cpte, 1) = v.Value Cpte =Cpte +1 Next v

---

Si quelqu'un connait la solution... un message MP serait le bien venu.

Ca ressemble à un manque dans Excel 2007 et +.


ESVBA

je ne comprends pas :koi:

ce que tu veux, c'est alimenter une listbox avec 2 colonnes contiguës

Code:

---

1 2 3

Private Sub UserForm_Initialize() ListBox1.RowSource = "A2:B998" End Sub

---

fonctionne sans souci normalement ?

cordialement,

Didier

oui exactement.

Mais je veux me détacher des références type "A1:B200" en utilisant les références de tableau sous 2007.

:oops:, je n'ai pas dit que c'était l'objet "ListObject" que je souhaitais utiliser. Plus de problème d'ajout de références, toutes les données sont nommées par le nom du tableau et de l'entête de la colonne automatiquement.

Code:

---

Lst.RowSource = Range("Tab[Villes]")

---

fonctionne mais je n'ai pas trouvé de solution pour mettre deux colonnes contiguës (ou non) du tableau dans deux colonnes de ma zone de liste.

ESVBA

Bonjour,

Le souci est qu’il faut bien comprendre que dans ce que tu évoques, seul le nom du tableau « intelligent » (référence 2007) est un nom.
Le reste (entre crochets) sont des références structurées et ne peuvent donc être invoquées comme des noms.

Citation:

---

Ca ressemble à un manque dans Excel 2007 et +.

---

donc, si on analyse la chose, 2007 n'est pas en cause...

Ensuite, comme toujours sous Office, il y a les ambiguïtés dues à sa puissance d’interprétation et aux possibilités d’instructions implicites dans le code.


La Propriété RowSource doit-être, par ailleurs, un String.

quand tu écris ceci :

Code:

---

Lst.RowSource = Range("Tab[Villes]")

---

Je ne vois pas pourquoi ça fonctionne ?

En conclusion avec pour exemple :
« Tableau 1 » est un tableau 2007.
Commune, Codepostaux, Departement, INSEE, Ville, Population ses en-têtes de colonnes.

Code:

---

ListBox1.RowSource = Range("Tableau1[[Commune]:[INSEE]]")

---

(soit 4 colonnes) plantera, on lui passe en effet un objet Range alors que RowSource veut un String (une adresse).

Si on fait ainsi :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize()   ListBox1.RowSource = Range("Tableau1[[Commune]:[INSEE]]").Address   End Sub

---

Ça sera OK sans problème !

cordialement,

Didier

Bonsoir Ormonth et le forum,


effectivement, j'écris n'importe quoi :lol:
Mon code est bien sans le "RANGE"

Code:

---

Lst.RowSource = "Tab[Villes]")

---

puisqu'il faut une chaine .


:ccool: la syntaxe cherchée est le ":" entre les noms des colonnes :

Code:

---

ListBox1.RowSource = Range("Tableau1[[Commune]:[INSEE]]").Address

---

Jamais vu avant.


J'ai simplifié en :

Code:

---

ListBox1.RowSource = "Tableau1[[Commune]:[INSEE]]"

---

qui fonctionne très bien aussi.


Merci Ormonth.:ccool::ccool:


ESVBA

Citation:

---

Envoyé par ESVBA

J'ai simplifié en :

Code:

---

ListBox1.RowSource = "Tableau1[[Commune]:[INSEE]]"

---

qui fonctionne très bien aussi.

---

Mieux, c'est la bonne syntaxe ! ;)

En effet l'autre n'est pas une syntaxe plus explicite, mais lourde, elle n'a d'avantage que de bien décrire ce qu'on veut faire comprendre.
Pour preuve, tu peux mettre direct

Code:

---

Tableau1[[Commune]:[INSEE]]

---

dans la case RowSource de la fenêtre propriété du listbox de l'éditeur, c'est OK.

Quand aux ":" , on les rencontre couramment dans les notations de plages genre :

Code:

---

columns ("A:D").select

---

Code:

---

Range("C5:D9,G9:H16,B14:D18").ClearContents

---

cordialement,

Didier

et lorsque les champs ne sont pas contigüs ?

Pas le point-virgule.

Exemple qui fonctionne :

Code:

---

Application.Union(Range("Tableau1[[Nom]]"), Range("Tableau1[[Ville]]")).Clear

---

Ou puis-je trouver des informations VBA/Tableau Excel 2007 ?
Le tutoriel des tableaux 2007 de SilkyRoad ne parle pas du VBA.

ESVBA

Bonjour,

Rien n'a fondamentalement changé, par contre la syntaxe est toujours exigeante et il faut la décrypter pour bien l'employer.

Dans l'aide vba 2007 vois à Areas, collection et "faire référence à plusieurs plages" (idem à 2003).

par contre la notion de plages, d'adresses ou de noms change l'approche.

vois ici si besoin :

Utilisation de références structurées avec des tableaux Excel

Ce n'est pas du vba, mais il suffit de faire le parallèle avec ce que tu connais et les aides citées ci-dessus pour en déduire l'approche syntaxique correcte.

Sachant qu'au niveau VBA, sauf application bi-partite (feuille-vba), l'utilisation des tableaux intelligents n'est peut-être pas le plus simple ?

cordialement,

Didier

bonjour Ormonth et le forum,


cette fois, j'ai tout en main. A moi, de grandir.


Rq: je n'ai pas le déclic du site http://office.microsoft.com/fr-fr/excel-help/

Merci encore.


Cette fois, c'est clos définitivemennt pour moi.
ESVBA