Discussion :

[dough29]

Bonjour !

Voilà j'ai créé une ComboBox avec les "Microsoft Forms 2.0 Object Library (FM20.DLL)" dans lequel j'ai une liste à 3 colonnes.

Code :

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

ComboBox1.ColumnWidths = 0 pt;50 pt;50 pt

Ici je masque la première colonne que je ne désire pas à l'affichage

Pour afficher dans ma ComboBox j'utilise la boucle suivante:

Code :

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

1
2
3
4
5
    For i = 1 To 9
        Call ComboBox1.AddItem(i, Index)
            ComboBox1.List(Index, 1) = "R" & i & "C2"
            ComboBox1.List(Index, 2) = "R" & i & "C3"
    Next i

J'obtient donc le Form qui se trouve à gauche de l'image suivante:



et j'aimerai obtenir un affichage comme jobtient (par retouche de l'image) sur le Form de droite.

Le but est d'afficher deux des colonnes dans la valeur du ComboBox au lieu d'une seule des colonnes.

Merci à ceux qui pourraient m'éclairer sur ce sujet ![/quote]

[leroissejp]

Bonjour,
Je voudrais bien t'aider, mais ton code n'affiche que des erreurs ?
Comment parviens-tu à remplir to combo avec ce code là ???

jpleroisse

[dough29]

Salut et merci pour ton intérêt dans mon problème.

Hé bien en gros j'ai l'interface suivante:



Et ma ComboBox (Microsoft Forms 2.0 Object Library) a les attributs suivants:



J'ai aussi le ocde suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    If ComboBox1.ListIndex > -1 Then
        MsgBox (ComboBox1.Column(0) & vbCrLf & ComboBox1.Text)
    End If
End Sub
Private Sub Form_Load()
    Dim Index As Long
    Index = ComboBox1.ListCount
    For i = 1 To 9
        Call ComboBox1.AddItem(i, Index)
            ComboBox1.List(Index, 1) = "R" & i & "C2"
            ComboBox1.List(Index, 2) = "R" & i & "C3"
    Next i
End Sub

Tout cela me permet d'avoir une ComboBox avec 3 colonnes (dont une masquée (cf ColumnWidths))

[SfJ5Rpw8]

Je pense pas que cela soit possible, voir la propriété : TextColumn
qui est à -1 par défaut

Valeurs

Les valeurs de la propriété TextColumn sont comprises entre –1 et le nombre de colonnes de la liste. La valeur de la propriété TextColumn pour la première colonne est 1, la valeur de la deuxième colonne est 2, et ainsi de suite. La définition de la propriété TextColumn sur 0 affiche les valeurs de la propriété ListIndex. La définition de la propriété TextColumn sur –1 affiche la première colonne ayant une valeur de la propriété ColumnWidths supérieure à 0.

.. à la limite tu peu créer une colonne cachée.. conteant le texte à afficher..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load() 
    Dim Index As Long
    Index = ComboBox1.ListCount
    ComboBox1.ColumnCount = 4
    ComboBox1.ColumnWidths = "0 pt;49,95 pt;49,95 pt;0"
    ComboBox1.TextColumn = 4
    For i = 1 To 9
        Call ComboBox1.AddItem(i, Index)
            ComboBox1.List(Index, 1) = "R" & i & "C2"
            ComboBox1.List(Index, 2) = "R" & i & "C3"
            ComboBox1.List(Index, 3) = ComboBox1.List(Index, 1) & vbTab & ComboBox1.List(Index, 2)
    Next i
End Sub

[dough29]

Salut !

Tu viens de m'ouvrir les yeux

En fait mes 3 colonnes sont NumPersonne, NomPersonne et PrénomPersonne.

Et le Nom et le Prénom dans mon Combo... ben c'est que de la donnée à afficher ! La donnée utile et indispensable est bien le champ Num !!

Donc je me cassais la tête pour rien

Je vais donc faire comme tu me l'a indqué: ma première colonne masquée contenant les Num puis la 2ème avec la concaténation de mes deux champs Nom et Prénom !

Merci beaucoup 8)