Choix unique dans combobox multi colonnes Résolu

Question

Bonjour, 
Bonjour,
Dans une combobox multicolonnes 
je souhaite pouvoir faire un choix en ligne et en colonnes 
par exemple: je choisir 75009

Nom Ville      CP
Dupont Paris      75008
Durand Boulogne    92100
Martin Paris      75009
Dupond Boulogne    92100
Bisson Paris      75005

merci d'avance


Configuration: Windows / Chrome 63.0.3239.132

cs_Le Pivert · Answer

Bonjour,

Pour ce que tu veux faire une ListBox multicolonne serait plus indiqué.
Voir ceci:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G 

Je t'ai fait le code pour la Combox, il suffit simplement de changer le nom du control.
Là tu as les 2 manières, tu verras qu'avec la ListBox la visualisation est meilleure:

Option Explicit
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
'If ListBox1.ListIndex = -1 Then Exit Sub
MsgBox ComboBox1.List(ComboBox1.ListIndex, 2)
'MsgBox ListBox1.List(ListBox1.ListIndex, 2)
End Sub
Private Sub UserForm_Initialize()
    Dim i As Byte, j As Byte
    
    'Définit le nombre de colonnes dans la ListBox
    ListBox1.ColumnCount = 4
    
    '---
    'Définit la largeur des colonnes d'une ListBox:
    'Par défaut, la largeur des colonnes est de 72 points
    '(72 points = 1 pouce)
    ListBox1.ColumnWidths = "50;50;50;50"
        '---
        'Il est aussi possible de définir la dimension des colonnes en centimètres
        'ListBox1.ColumnWidths = "2 cm; 1,5 cm ......"
        '---
    '---
    
    For i = 1 To 20
        'Ajoute une ligne et insère une donnée dans la colonne de gauche
        ListBox1.AddItem "Ligne" & i
        
        'Ajoute des données dans les colonnes de droite
        For j = 1 To 7
        ListBox1.List(ListBox1.ListCount - 1, j) = i & j
        Next j
        
    Next i
    
    '*************************************************************************
    
    '*****************************************************************************
    'Définit le nombre de colonnes dans la  ComboBox
    ComboBox1.ColumnCount = 4
    
    '---
    'Définit la largeur des colonnes d'une  ComboBox:
    'Par défaut, la largeur des colonnes est de 72 points
    '(72 points = 1 pouce)
    ComboBox1.ColumnWidths = "50;50;50;50"
        '---
        'Il est aussi possible de définir la dimension des colonnes en centimètres
        'ListBox1.ColumnWidths = "2 cm; 1,5 cm ......"
        '---
    '---
    
    For i = 1 To 20
        'Ajoute une ligne et insère une donnée dans la colonne de gauche
        ComboBox1.AddItem "Ligne" & i
        
        'Ajoute des données dans les colonnes de droite
        For j = 1 To 7
        ComboBox1.List(ComboBox1.ListCount - 1, j) = i & j
        Next j
        
    Next i
End Sub

cs_Le Pivert · Answer

Quel est ton code pour charger la ComboBox?

Choix unique dans combobox multi colonnes

2 réponses

Discussions similaires

Newsletters