Faire une multiselection à partir d'une comboBox?

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
Je suis nouvelle sur la programmation VBA et j'aurai besoin de votre aide svp.
J'ai fait un programme où je fais appel à des comboBox et textBox, uniquement sur une feuille excel (pas de userform)
Je renseigne mon département dans une comboBox, et j'associe le code correspondant grace à un textbox. Tout fonctionne.
Je souhaite maintenant selectionner plusieurs départements dans ma comboBox, tout en gardant quasimment le même affichage.
C'est à dire, en cliquant sur mon bouton departement, ma liste s'affiche, mes départements sont sélectionnés et mes valeurs alimentent par la suite ma comboBox. Par exemple: Hauts-de-Seine/Paris/Val-de-Marne en fonction de ce qui est sélectionné...
Je dois associer tout cela probablement à une LISTEBOX, mais je ne sais pas à quelle étape l'intégrer? Devrais je me séparer de mes comboBox???
Je m'embrouille entre les différents codes trouvés sur les forums. Surtout que ces codes sont faits pour des userforms :/
Voici un bout de code fait pour mes combobox (qui marche mais sans la multiselection):
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 30 31 32 33 34 35 36 37 38 39 40 Sub ComboBox1_Initialize() ComboBox1.Clear 'departement TextBox1.Value = "" 'code 'pour remplir ma combobox, je stocke mes donnees filtrées et triées. '(Je peux renseigner la combobox en enlevant les doublons: 'If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Feuil2").Range("A" & j)) , c'est plus simple mais lent à l'exécution.) Sheets("Feuil1").Range("b1:b65356").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Feuil2").Range( _ "b1"), Unique:=True ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("b1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Feuil2").Sort .SetRange Range("b2:b65536") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Dim departement As String Dim lastdepartement As Integer lastdepartement = Sheets("Feuil2").Range("b65536").End(xlUp).Row For i = 2 To lastdepartement departement = Sheets("Feuil2").Cells(i, 2).Value ComboBox1.AddItem departement Next i End Sub 'le code associé Sub ComboBox1_change() If ComboBox1.Value = "" Then TextBox1.Value = "" End If If ComboBox1.Value <> "" Then TextBox1.Value = WorksheetFunction.VLookup(ComboBox1.Value, Sheets("Feuil2").Range("AA1:AB65536"), 2, False) End If End Sub 'fin code
est ceque je dois refaire mon code en enlevant mes comboBox ou je peux insérer ma listBox quelque part?
Ci joint un exemple court du pgm et son affichage.

Je vous remercie par avance pour votre aide et votre patience.

24/10/2013, 09h01
illight

Dans un premier temps, ton fichier n'a pas les macros ;)

Sinon, je n'ai pas l'impression que la multi sélection soit possible dans les combobox, la seule solution que tu auras serait alors effectivement de les remplacer par des ListBox, qui sont de toute façon plus appropriées pour des multi sélection :)

Merci illight. Je n'ai pas réussi à telecharger le bon fichier avec les macro parque le format xlsm n'est pas accepté.

Sinon j'ai enfin inséré mes listBox et activer l'option fmMultiSelectMulti (pour avoir la multiselection).
quelle est l'etape à suivre ?
Quand j'ouvre mon fichier, j'appuie sur un bouton qui appelle mon userform, dans lequel apparait ma liste. Je peux selectionner plusieurs departements, mais comment charger ces valeurs svp???
Dois je avoir encore un bouton ''valider" qui chargera ces valeurs?
Code:

1 2 3 4 5 6 7 8 9 10 11 'voici le code exécuté dans mon userform: Private Sub ListBox1_Initialize() End Sub Private Sub UserForm_Initialize() With Sheets("feuil2") ListBox1.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value End With ListBox1.MultiSelect = fmMultiSelectMulti ListBox1.ListIndex = -1 End Sub
Je vous remercie par avance

charger une listBox

Rebonjour,
c'est bon j'ai trouvé. voici le code de mon userform:

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
30
31
32
33
34
35
36
 
Private Sub ListBox1_Initialize()
End Sub
 
Private Sub CommandButton1_Click()
Dim E1 As Long
Dim k As Integer
 
If ListBox1.ListIndex = -1 Then
    MsgBox "Veuillez selectionner votre departement"
    Exit Sub
End If
 
For k = 0 To ListBox1.ListCount - 1 
   If ListBox1.Selected(k) = True Then
    With Sheets("feuil2")
    E1 = Range("B65536").End(xlUp).Row + 1
    Range("B" & E1).Value = ListBox1.List(k)
    ListBox1.Selected(k) = False
    End With
End If
Next
ListBox1.ListIndex = -1
UserForm1.Hide
Unload UserForm1
 
End Sub
 
 
Private Sub UserForm_Initialize()
    With Sheets("feuil2")
        ListBox1.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
    End With
    ListBox1.MultiSelect = fmMultiSelectMulti
    ListBox1.ListIndex = -1
End Sub

Merci.