Affichage combobox plusieurs colonnes [Résolu]

[jerem1]

Bonjour à tous,

Etant débutant sous excel, je souhaite pouvoir afficher à l'aide d'une combobox les données comprises sur les colonnes B et C

J'ai tapé le code suivant

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Activate()
Dim ListeDeroulante As ComboBox
Dim vAdresseDernierPoisson
vAdresseDernierPoisson = Sheets("feuil1").Range("C100").End(xlUp).Address
With ForComboBox
.RowSource = "B2:" & vAdresseDernierPoisson
.ListIndex = 0
 
End With
End Sub

Dans ce cas j'affiche le contenu choisi de ma colonne B et C dans la liste déroulante(ce qui semble logique)

Mais je n'arrive pas a afficher en même temps le contenu de ma colonne B ET C lorsque l'utilisateur à sélectionné la ligne voulu

Pouvez vous m'aider ?

Merci

[Theze]

Bonjour,

Utilise plutôt une ListBox :

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
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(2, 3), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    With ListBox1
 
        .ColumnCount = Plage.Columns.Count
        .RowSource = Plage.Address
 
    End With
 
End Sub
 
Private Sub ListBox1_Click()
 
    With ListBox1
 
        MsgBox .Column(0, .ListIndex) & " - " & .Column(1, .ListIndex)
 
    End With
 
End Sub

Hervé.

[jerem1]

Et je ne peux vraiment pas effectuer cela avec une combobox (pour avoir une liste déroulante => Plus pratique)

Merci d'avance

[Theze]

Bonjour,

Tu peux en forcer l'affichage :

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
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(2, 3), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    With ComboBox1
 
        .ColumnCount = Plage.Columns.Count
        .RowSource = Plage.Address
 
    End With
 
End Sub
 
Private Sub ComboBox1_Click()
 
    With ComboBox1
 
        .Text = .Column(0, .ListIndex) & " - " & .Column(1, .ListIndex)
 
    End With
 
End Sub

Hervé.