Renseigner une ListBox

[Alex03]

Bonsoir à tous,

Étant novice en VBA je me permet de faire appel à vos lumières,

Tout d'abord je souhaiterais obtenir dans la ComboBox1 les Types de poste de la feuille1 (sans Doublons) et ensuite dans la ComboBox2 les Numéros de poste correspondant au nom de la ComboBox1

Puis j'aimerais renseigner la ListBox1 dans laquelle je voudrais retrouver les Noms et Prénoms des personnes ayant le type de poste de la ComboBox1 et le Numéro de poste de la ComboBox2.

J'espère avoir été suffisamment clair dans mes explications...

Merci d'avance

P.S.: Ci-joint le fichier .xls

 

[PascalXLD]

Re : Renseigner une ListBox

Bonjour

Déjà une partie de la réponse ici

https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/
https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

 

[Alex03]

Re : Renseigner une ListBox

Rebonsoir,

Merci PascalXLD, j'ai essayé d'utiliser les codes que tu m'a indiqué en les adaptant à mon application, j'arrive a alimenter mes Combo et ma ListBox mais pas vraiment comme je le souhaite:

1 - Je ne réussi pas à supprimer les doublons de la ComboBox1

2 - Je voudrais ensuite que la ComboBox2 affiche les numéros de poste correspondant au type de poste sélectionné dans la ComboBox1

3 - Pour finir, se serait génial s'il été possible d'afficher les Noms et Prénoms correspondant au résultat de ComboBox1 et
ComboBox2 dans la ListBox1

Par Exemple:
ComboBox1 = cde
ComboBox2 = 6540

ListBox1 devient: CCCCCC cccccc
FFFFFF ffffff


Je le répète, je suis pas un as du VBA mais je me soigne............

Encore Merci,

 

[Alex03]

Re : Renseigner une ListBox

🙁 🙄

 

[PascalXLD]

Re : Renseigner une ListBox

Re

Pour supprimer les doublons le deuxième lien le faisait

Pour remplir la combo2 en fonction de la combo 1 il faut sur le changement de valeur remplir ta combo avec les liens données avec la méthode add item

Là je pars en réunion je regarderai plus tard si personne n'est passé

 

[Dull]

Re : Renseigner une ListBox

Salut Alex03, Pascal🙂, le Forum

Un essai en pièce jointe
Seul Bémol il faut passer tes références en Texte avec un ' avant le chiffre sinon ça ne prend pas en considération.
(Si quelqu'un a une explication ...suis preneur😱)

Bonne Journée et Bonne Réunion Pascal 😉

 

[Alex03]

Re : Renseigner une ListBox

Merci Dull pour ton aide c est exactement ce que je recherchais à faire
😱

 

[laetitia90]

Re : Renseigner une ListBox

bonjour tous🙂🙂🙂🙂🙂
pour l' ami Dull🙂
il faut ecrire comme cela dans ce cas text a la place de value

Private Sub ComboBox2_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
 For i = 1 To Range("Nom").Count
    If Range("Poste")(i) = ComboBox2.Text And Range("Type")(i) = ComboBox1 Then
      temp = Range("Nom")(i) & " " & Range("Prenom")(i)
      If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
    With Me.ListBox1
        .Clear
        .List = MonDico.Items
        .ListIndex = -1
    End With
End Sub

autrement sans utiliser de listeS on peu peut être ecrire comme cela ???

Dim c As Range, m As Object
Private Sub UserForm_Initialize()
 Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("e3", Cells(Rows.Count, "e").End(xlUp))
 m(c.Value) = m(c.Value) + 1
 Next c
 ComboBox1.List = m.keys
 End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear: ListBox1.Clear
Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("e3", Cells(Rows.Count, "e").End(xlUp))
 If c = ComboBox1 Then m(c.Offset(, 1).Value) = m(c.Offset(, 1).Value) + 1
 Next c
 ComboBox2.List = m.keys
End Sub
Private Sub ComboBox2_Change()
Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("f3", Cells(Rows.Count, "f").End(xlUp))
 If c.Value = ComboBox2.Text And c.Offset(, -1).Value = ComboBox1.Text Then m(c.Offset(, -3).Text _
 & " " & c.Offset(, -2).Text) = m(c.Offset(, -3).Text & " " & c.Offset(, -2).Text) + 1
 Next c
 ListBox1.List = m.keys
End Sub

 

[Dull]

Re : Renseigner une ListBox

Salut Leti 🙂, le Fil

il faut ecrire comme cela dans ce cas text a la place de value

Oui j'ai percuté bien après la bataille 😱

Merci pour le retour🙂

Bonne Journée à toutes et à tous