Créer une combobox avec les informations d'une LISTVIEW

Bonsoir,

En premier lieu, excusez moi si je ne fais pas bien les choses

Bénévole au sein d'une asso et malgré ma pugnacité, je ne trouve pas. Novice, mais j'apprends et je commence à me débrouiller au regard des différents tutos (mais je bute).

Donc, je souhaite remplir une combobox dans mon userform "Saisie" avec les infos d'une listview du champ "activite", puis selon le choix de l'info de ma combobox afficher dans ma listview les renseignents s'y rapportant.
Merci de votre aide
Cordialement

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

Private Sub CBdiscipline_Change()   ' LA PARTIE CI DESSOUS NE FONCTIONNE PAS NON PLUS 'Erreur de compilation' Impossible d'affecter a un tableau   'Set MonDico = CreateObject("Scripting.Dictionary") ' ReDim a(ListView1.ListItems.Count) As String ' For i = 0 To ListView1.ListItems.Count - 1 ' a = ListView1.ListItems(i).ListSubItems(8).Text ' If a(i) <> "" Then MonDico(a(i)) = "" ' Next i ' CBdiscipline.List = MonDico.keys   ' CELLE CI NON PLUS avec message d'erreur 'erreur d'execution 35600 Index out of Bounds   For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).ListSubItems(8).Text <> "" Then If CBdiscipline.ListCount > 0 Then 'Deja des items dans la liste Paspresent = True For j = 0 To CBdiscipline.ListCount - 1 If CBdiscipline.List(j) = ListView1.ListItems(i).ListSubItems(8).Text Then Paspresent = False End If Next Else 'pas encore d'item dans la liste Paspresent = True End If   If Paspresent = True Then CBdiscipline.AddItem ListView1.ListItems(i).ListSubItems(7).Text   End If Next i End Sub

---

Pièce jointe 654156

Bonjour,
Voici quelques petites réflexions :

• Ne pas ajouter de lignes vides sur vos tableaux structurés cela est contre-productif
• Donner des noms explicites à vos tableaux exemple : vt_Listing et vt_Datas.
• Un seul tableau devrait suffire donc concaténer les deux tableaux.
• A mon humble avis la colonne Nom & Prénom est inutile.

Concernant les formulaires :

• Je pense qu'un seul formulaire peut faire l'affaire
• Au vu de l'utilisation du ListView il peut être avantageusement remplacé, par une zone de liste.
• Utiliser la puissance d'Excel et des tableaux structurés dans vôtre code.

Exemples :
A l'initialisation du formulaire on rempli la zone de liste déroulante (Disciplines) avec les valeurs triées de la colonne activité du tableau vt_Listing :

Code:

---

1 2 3

Private Sub UserForm_Initialize() Disciplines.List = Evaluate("=SORT(UNIQUE(vt_Listing[Activite]))") End Sub

---

Si vous utilisez une zone de liste (DetailsMembers) en lieux et place du listView vous pouvez mettre à jour la liste sur changement de la zone de liste déroulante Disciplines :

Code:

---

1 2 3

Private Sub Disciplines_Click() DetailsMembers.List = Evaluate("=FILTER(vt_Listing,(vt_Listing[Activite]=""" & Me.Disciplines.Value & """),""Pas de données disponibles"")") End Sub

---

ce ne sont que des codes minimalistes qui demandent à être étoffés notamment au niveau de la gestion des erreurs.
NB le remplissage des listes avec la méthode Evaluate n'est pas compatible avec RowSource. Il faut donc supprimer toutes références sur les propriétés RowSource des zones de liste.