Discussion :

[__fabrice]

salut à tous,

J'ai probleme simple :

Dans une ComboBox, je fais un AddItem et j'aimerai que le 2 eme parametre, le 'Index' ne commence pas par 0. Je voudrai lui donner les valeurs dont j'ai besoin. Par exemple :

Code :

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

1
2
3
cboAnnee.AddItem "Nouvelles rubriques", 5
cboAnnee.AddItem "Transport", 2
cboAnnee.AddItem "Itinéraire", 22

Cela ne marche pas car VB veut que le 'Index' commence par 0. Comment faire pour que chaque element index de la combo est une valeur différente et pas forcement ordonnée ?

Merci à tous,
Fabrice

[ouskel'n'or]

Tu ajoutes

Code :

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

cboAnnee.AddItem ""

avant de faire :

Code :

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

1
2
3
cboAnnee.AddItem "Nouvelles rubriques", 5 
cboAnnee.AddItem "Transport", 2 
cboAnnee.AddItem "Itinéraire", 22

A+

[__fabrice]

çà ne marche pas

J'ai toujours la meme erreur.

Fabrice

[ouskel'n'or]

J'ai toujours la meme erreur

Erreur ? Tu ne parlais pas d'erreur... Tu peux préciser ?

A+

[Peltchag]

utilises plutot une autre propriete, telle que le tag, pour faire ca, car l'index est exactement a l'oppose de ce que tu veux en faire : il liste les éléments dans leur ordre !

ainsi, je pense que tu t'embeteras moins avec le tag, qui est fait pour recevoir tout et n'importe quoi

[__fabrice]

Il me semble que le Tag est lié au controle lui meme mais pas à chaque élément de la liste déroulante.

Du coup, lors du AddItem, on ne peux pas assigner, avec le Tag, une valeur à chaque élément.

Fabrice

[__fabrice]

Oui, l'erreur c'est :

Code :

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

Argument ou appel de procédure incorrect

Fabrice

[ouskel'n'or]

Ok, j'ai vu,

Pour un combo, la syntaxe est (extrait de l'aide)

Code :

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

1
2
3
4
5
6
7
8
    For i = 0 To 5
        MyArray(i, 0) = i
        MyArray(i, 1) = Rnd
        MyArray(i, 2) = Rnd
    Next i
 
    'Chargez le contrôle ComboBox1
    ListBox1.List() = MyArray

ou

Code :

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

1
2
3
ListBox1.AddItem "Ligne 2, col. 1"
ListBox1.List(1, 1) = "Ligne 2, col. 2"
ListBox1.List(1, 2) = "Ligne 2, col. 3"

Dans lesquels le 2 de List(1, 2) désigne la colonne

ou, si tu préfères un exemple concret :

NoCol = 1 'N° colonne des noms

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 1 To DernièreLigne - 1 '(-1) Dernière ligne vide
    MaForm.ComboAideLoyers.AddItem Cells(i + 1, NoCol).Value  
    '(+1 pour passer la ligne de titre dans la feuille de calcul)
Next i
 
'Ensuite, je remplis les colonnes suivante
     For NoCol = 2 To NbreColonnes   'Dans cet exemple, les noms se trouvent sur la colonne 1, donc, je lis les suivantes
          For NoLigne = 2 To DernièreLigne - 1
                MaForm.ComboAideLoyers.List(NoLigne - 1, NoCol) = Cells(NoLigne, NoCol).Value
          Next NoLigne
     Next NoCol

A+



A

[__fabrice]

Je comprends pas tout .. le Cells c'est pas du VB, mais du VBA.

Cela ne marche pas trop non plus avec mon exemple simple.

Fabrice

[ouskel'n'or]

Ça ne marche pas non plus avec le code de l'exemple de l'aide ?

A+

[__fabrice]

non

[Xo]

En VB, la liste des index d'un combo n'est pas accessible, elle dépend de l'ordre des éléments de ton combo. par contre, pour associer tes éléments de List avec une valeur numérique, procède ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
With monCombo
     .AddItem "Nouvelles rubriques"
     .ItemData(.NewIndex) = 5
 
     .AddItem "Transport"
     .ItemData(.NewIndex) = 2
 
    '...
End With

Pour lire cette clé (Si monCombo.ListIndex > -1, sinon erreur à gérer) :

Code :

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

1
2
maCle = monCombo.ItemData(monCombo.ListIndex)
maChaine = monCombo.List(monCombo.ListIndex)

[ouskel'n'or]

Salut Xo, c'est maintenant que tu arrives ?

Adieu fabrice, tu es sauvé !

[__fabrice]

Merci à tous !, çà marche impec.


Fabrice