Discussion :

[zaza62000]

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 :

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

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

Récompenses Ufo.xlsm

[Valtrase]

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 :

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

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 :

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

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.