Alim. ComboBox à partir list pls dimensions

Bonjour,
Je souhaiterais alimenter une ComboBox à partir d'une zone de donnée (code - nom).
Ex: 1-Toto/2-Tata en affichant que les noms.
J'ai donc crée un type Information

Code:

---

1 2 3 4 5

Type comboInformation code As Integer label As String End Type

---

Puis le chargement du tableau

Code:

---

1 2 3 4 5 6

Dim tableau() as comboInformation tableau(1).code = 1 tableau(1).label = "Toto" tableau(2).code = 1 tableau(2).label = "Tata"

---

Puis le chargement de ma combo

Code:

---

1 2	comboBox1.List = tableau.label

---

=> Et donc c'est la que j'ai mon anomalie
=> "Erreur de compilation. qualificateur incorrect"

Merci pour votre aide:D

Tu parles d'une zone de données. J'en déduit qu'il s'agit d'un Range. Pourquoi passer par une variable tableau? Tu pourrais utiliser:

Code:

---

1 2	comboBox1.RowSource = rngMonRange.Address

---

par exemple...

Ajout:
Et salut à toi fred65200, suite à ton post suivant le mien...

bonsoir,

je n'ai pas tout compris mais voici une proposition tirée de l'aide

tu peux aussi bien évidemment utiliser la propriété RowSource comme le suggère Singular que je salue :coucou:

cordialement

Bonjour

Ne pas utiliser des mots réservés comme Label.

Starec

Merci à tous. Je vais repréciser mon souhait, car je crois ne pas avoir été sufisamment clair :cry:

Je souhaiterais donc alimenter une ComboBox à partir d'une zone de donnée (code - nom).
Ex: 1-Toto/2-Tata en affichant que les noms.
Soit un type salarie

Code:

---

1 2 3 4 5

Type salarie code As Integer nom As String End Type

---

Puis le chargement du tableau personnel

Code:

---

1 2 3 4 5 6

Dim personnel() as salarie personnel(1).code = 1 personnel(1).nom = "Toto" personnel(2).code = 2 personnel(2).nom = "Tata"

---

Puis le chargement de ma combo

Code:

---

1 2	comboBox1.List = personnel.nom

---

=> pour charger ma combo, qu'a partir des noms. Mais cela ne marche pas.

J'ai essayé de faire un tableau à 2 dimensions (cela me plait moins)
Dim personnel(1 to 2, 1 to 2) as variant
personnel(1,1) = 1
personnel(2,1) = 2
personnel(1,2) ="Toto"
personnel(2,2) ="Tata"
comboBox1.List = personnel
= Fonctionne mais comment alors lui faire afficher que la colonne 2

Merci pour votre aide. En espérant avoir été plus clair :P

bonsoir,
dans le classeur joint hier, remplace le code du UserForm_Initialize

par

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub UserForm_Initialize() ComboBox1.ColumnCount = 2 Dim tableau(1, 1) As Variant tableau(0, 0) = 1 tableau(0, 1) = "Toto" tableau(1, 0) = 2 tableau(1, 1) = "Tata" ComboBox1.List = tableau ComboBox1.ListIndex = 0 ' ' OptionButton1.Caption = "List Index" ' OptionButton2.Caption = "Column 1" ' OptionButton3.Caption = "Column 2" ' OptionButton2.Value = True ComboBox1.ColumnWidths = "0;100" End Sub

---

cordialement

bonsoir,

il faut que ton combo ai 2 col

Code:

---

1 2	UserForm1.ComboBox1.ColumnCount = 2

---

comme tu dis pathou

Citation:

---

Envoyé par fred65200

je n'ai pas tout compris mais voici une proposition tirée de l'aide

---

:f1:

cordialement

Merci fred65200 pour ta réponse.
Si quelqu'un a une piste sur ma 1ère proposition (tableau de type), je suis aussi preneur. :lol:

re

je n'ai jamais travailé avec des types mais j'apprends. :D merci

Code:

---

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 28 29 30

Private Type salarie code As Integer nom As String End Type Private Personnel() As salarie   Private Sub UserForm_Initialize() ReDim Personnel(2) Personnel(0).code = 0 Personnel(0).nom = "Toto" Personnel(1).code = 1 Personnel(1).nom = "Tata" Personnel(2).code = 2 Personnel(2).nom = "Titi" 'nombre de colonnes ComboBox1.ColumnCount = 2 'remplissage du combobox For i = LBound(Personnel) To UBound(Personnel) ' première colonne ComboBox1.AddItem Personnel(i).code ' seconde colonne ComboBox1.List(i, 1) = Personnel(i).nom Next 'colonne des données récupérées ComboBox1.BoundColumn = 1 'largeur des colonnes ComboBox1.ColumnWidths = "0;100" 'affichage ComboBox1.ListIndex = 0 End Sub

---

OK?
cordialement

Hello Fred6520,
En fait ce que je voulais c'était d'éviter de faire une boucle.
De charger mon vecteur une fois (code - nom) puis d'alimenter directement ma combo
=> comboBox.list= personnel.nom
Tu vois mieux ?8O

Hello Fred65200,
J'ai peut être trouvé une piste. Ce n'ai pas éxactement ce que je voulais faire mais ça y ressemble.
Voila, avant j'étais partie dans l'idée de creér un type personne avec 2 propriétés codes et libellé. Mais je penses que ce n'ai pas possible, car la liste attend un tableau.
Je suis donc partie sur un type liste avec 2 vecteurs

Code:

---

1 2 3 4 5

Type personneListe code() As Long libelle() As String End Type

---

puis déclaration

Code:

---

1 2 3 4

Dim liste As personneListe ReDim liste.code(1 To 2) ReDim liste.libelle(1 To 2)

---

puis alimentation

Code:

---

1 2 3 4 5

liste.code(1) = 1 listecode(2) = 2 liste.libelle(1) = "toto" liste.libelle(2) = "tata"

---

Et enfin chargement de la combo

Code:

---

1 2	comboBox4.List = liste.libelle

---

Voila. Le seul truc c'est que je n'ai pas de type unitaire personne. Mais bon :lol: Si quelqu'un a mieux je suis preneur.
Autrement, il y a une chose que je n'ai pas compris, c'est pourquoi je ne dois oas faire de Set Liste = new personneListe
Bonne soirée :P

Tu ne peux pas utiliser Set car personneListe est un Type et non un Objet. Un Type peut ëtre vu comme une variable à plusieurs dimensions (sans être un tableau) dans laquelle chaque partie de la variable porte un nom d'accès.

Pour éviter de travailler avec des Types, tu pourrais te créer un feuille de données invisible à l'utilisateur dans laquelle tu gardes un tableau de cellules concernant ce que tu veux charger dans la ComboBox.

Ainsi, tu n'aurais qu'à écrire :

Code:

---

1 2 3 4 5 6 7 8 9

' Ls ligne suivante assume que les données sont contenues dans les cellules ' "A2:B12" d'une feuille nommée "Personnel" dans le libellé de l'onglet. ComboBox1.RowSource = "Personnel!A2:B12" ComboBox1.ColumnHeads = False ' Mettre à True si l'entête de colonne doit ' être affichée dans la liste, en ' spécifiant A1 plutôt que A2 pour x ' RowSource. ComboBox1.ColumnCount = 2 ComboBox1.ColumnWidths = "2 cm;6 cm" ' Voir l'aide en ligne de la propriété.

---

Si je te comprends bien, on ne peut donc pas faire de get ou de let sur un type.
L'intérêt en serait très limité. En gros un type ne serait à utilisé que pour des types simples. Dis moi, si j'ai bien tout saisi.
Je vais faire un essai en transformant mon type en classe pour voir.
:lol:

En effet, l'intérêt en est limité mais très utile pour, par exemple, extraire ou enregistrer des données dans un fichier.

Merci beaucoup pour tes précisions. Car j'étais un peu perdu et je n'avais vu grand chose la dessus.

:lol: