Discussion :

[cigaremoods]

Bonjour,

Lecteur assidu du forum et des tutos, j'ai toujours trouvé LA solution à mes problèmes.

Mais cette fois je n'ai malheureusement pas réussi à trouver cette solution.

J'expose la problématique :

Une userform1 avec une listbox1, cette listbox1 est complétée à l'ouverture de la Userform1 dans Userform1_Initialize(), donc tout se passe bien!

La listbox1 est une liste de services : service 01, service 02, service 03 ...

Chacun de ces services comportent une liste d'agents (le nombre d'agents varie selon le service).

A coté de la listbox1 une combobox1 pour le moment VIDE. La combobox1 n'est donc pas initialisée à l'ouverture de la Userform1 puisque je ne connais pas encore le service qui sera choisi par l'utilisateur.

Au click sur un des services dans la listbox1 je veux afficher dans la combobox la liste des agents du service sélectionné.

Je récupère bien l'index de la listbox1 et connais bien le service choisi mais ensuite je ne vois pas comment enregistrer la liste des agents dans la combobox1 après l’événement click dans la listbox1.

Feuille où se trouve la liste des services/liste des agents :

Colonne A Colonne B
Service 01 Service 02
agent01 agent01
agent02 agent02
agent03

Merci si vous pouvez m'orienter vers une solution

Cigaremoods

[a_diard]

Bonjour

http://boisgontierjacques.free.fr/pa...es_cascade.htm

Le lien vers un travail réalisé par Jacques Boisgontier .

Je pense que ceci peut t'aider.

[joe.levrai]

Bonjour,

utilisant Excel 2010, je te conseille vivement de transformer ton tableau d'équipe en tableau structuré (menu INSERTION >> TABLEAU), qui est l'objet ListObject en VBA

ainsi, en quelques lignes de codes, tu peux récupérer :

- la liste des équipes pour remplir ListBox
- la liste des agents de l'équipe pour remplir Combobox à chaque changement de choix dans ListBox

Soit Feuil1, la feuille qui porte ton tableau structuré

remplissage de ListBox avec les équipes (qui sont les en-têtes de ton tableau structuré)

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
                                                ' la feuille     ' le tableau    ' les titres
    Me.ListBox1.List = Application.Transpose(Worksheets("Feuil1").ListObjects(1).HeaderRowRange.Value)
End Sub

remplissage de Combobox lors d'un choix dans ListBox

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox1_Click()
    With Me
        .ComboBox1.Clear
                          ' la feuille         ' le tableau   ' la colonne  ' l'équipe     ' les agents
        .ComboBox1.List = Worksheets("Feuil1").ListObjects(1).ListColumns(.ListBox1.Value).DataBodyRange.Value
    End With
End Sub

Simple et concis

[cigaremoods]

Bonjour,

Avec le lien d'a_diard et l'exemple de joe.levrai je suis arrivé au résultat escompté.

Un grand merci pour votre aide et surement à une prochaine fois

Bonne journée

[boisgontierjacques]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Me.ListBox1.List = Application.Transpose(Range(f.[a1], f.[iv1].End(xlToLeft)))
End Sub
 
Private Sub ListBox1_Click()
  col = Me.ListBox1.ListIndex + 1
  Me.ListBox2.List = f.Cells(2, 1).Offset(, col - 1).Resize(Application.CountA(f.Columns(col))).Value
End Sub
 
Boisgontier

[cigaremoods]

Bonjour,

Merci, beaucoup plus sophistiqué que mon code.

Je vois que j'ai encore pas mal de chemin à faire pour synthétiser et optimiser mes programmes.

Cigaremmoods