Alim. ComboBox à partir list pls dimensions

[koolWak]

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

Type comboInformation
code As Integer
label As String
End Type

Puis le chargement du tableau

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

comboBox1.List = tableau.label

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

Merci pour votre aide🙂

 

[Spitnolan08]

Re : Alim. ComboBox à partir list pls dimensions

Bonsoir,

Je n'ai pas bien compris ce que tu voulais faire : tu indiques vouloir charger ton combo avec une liste figurant dans un champ mais dans le code que tu produits, tu veux charger le combo en dur dans le code 😕

Par ailleurs : L'instruction Type est utilisée au niveau module uniquement. Si elle apparaît dans un module de classe, une instruction Type doit être précédée du mot clé Private. Il ne semble donc pas être possible de l'utiliser au niveau d'un UF...

Cordialement

 

[Hervé]

Re : Alim. ComboBox à partir list pls dimensions

bonsoir

pas sur d'avoir compris ce que tu cherchais a faire 🙂

je vais faire référence à mes maigres connaissances concernant les types de variables.

l'utilisation de variable tableau se déclare lors de lors de la déclaration du type (attention : option base 0) :

Type comboInformation
code(1) As Integer
label(1) As String
End Type

Dim tableau As comboInformation

tableau.code(0) = 1
tableau.label(0) = "Toto"
tableau.code(1) = 1
tableau.label(1) = "Tata"

ComboBox1.List = tableau.label

par contre je ne sais pas comment tu va gerer de nouvelle entrée plus loin dans ton code.

si ton objectif est de simplifier l'initialisation d'une combobox, regarde du coté des dictionnary.

en espérant avoir été utile, salut 🙂

 

[Hervé]

Re : Alim. ComboBox à partir list pls dimensions

re, salut sptinolan08

un exemple avec un dictionnary :

Dim data

Set data = CreateObject("Scripting.Dictionary")

data.Add "toto", 1
data.Add "tata", 2

ComboBox1.List = data.Keys

attention, les dictionnary n'acceptent pas de doublons pour les clées (premier argument de la méthode add).

re salut

 

[Spitnolan08]

Re : Alim. ComboBox à partir list pls dimensions

Re,
Bonsoir Hervé,

Juste une précision à propos de ce que j'ai écrit sur la déclaration : apparemment ça fonctionne à condition d'utiliser :
Dans le module de l'UF :

Private Type comboInformation
code(1) As Integer
label(1) As String
End Type

ou alors dans un module standard :

Type comboInformation
code(1) As Integer
label(1) As String
End Type

Cordialement