Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

linebich

XLDnaute Junior
Bonjour les gens
jqui peut amelioer ce code qui a pour objectif
d'alimenter un dictionnaire par les valeurs qui corespond au contenu de notre combox et afficher ces modalité sans doublon dans une listebox
Private Sub ListBox1_Click()

Set D = CreateObject("Scripting.Dictionary")

Sheets("Base ").Activate
If Range("I" & (8 + I)).Value = liste_8.Value Then
L1 = Range("H" & (8 + I)).Row
Me.ListBox1 = L1

Next I
Me.ListBox1 = D.keys
End If


End Sub

l
 
re
alors soit tu t'exprime très mal soit ton fichier en exemple n'est pas SUFFISAMMENT représentatif de ta demande
il faut faire un peu d'effort dans les demandes si l'on veut des réponses concrètes!!
autant textuellement dans l'expression de celle ci que dans les exemples fournis 😉
en l'etat au regard de ton tableau on sait toujours pas ce que tu veux vraiment 😉
 
La macro ListBox1_Click ne peut pas fonctionner quand ListBox1 est vide, utilisez plutôt :
VB:
Private Sub liste_8_Change()
If liste_8.ListIndex = -1 Then ListBox1.Clear: Exit Sub
Dim x$, d As Object, tablo, i&
x = LCase(liste_8)
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
tablo = Sheets("Base").[B8].CurrentRegion.Resize(, 8) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If LCase(tablo(i, 8)) = x Then d(tablo(i, 7)) = ""
Next
If d.Count Then ListBox1.List = d.keys Else ListBox1.Clear
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
8
Affichages
233
Réponses
4
Affichages
177
Réponses
3
Affichages
665
Réponses
2
Affichages
153
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
40
Affichages
3 K
Réponses
4
Affichages
505
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour