supprimer les doublons d'une listbox

[brux40]

Bonjour,

J'ai actuellenment un problème. Je n'arrive pas enlever les doublons d'une listbox dans un userform. Je débute avec VBA.
J'ai déjà réussi en supprimer toutes les lignes vides dans la userform.

Mais la je sèche

Private Sub UserForm_Initialize()

'choix du moteur
Dim i As Range

'efface le contenu de la listbox
ListBoxmodmot.Clear
'avec la feuille base de donnée.
With Sheets("base de donnee")
'ne pas oublié le "." devant range sinon il prend les valeurs de la feuille active
For Each i In .Range("B3:B5000")
If i <> "" Then ListBoxmodmot.AddItem i

Next i
End With

End Sub



Merci d'avance de votre aide

 

[Guest]

Re : supprimer les doublons d'une listbox

Bonjour,

voir au bas de cette page dans 'discussions similaires' ou faire une recherche sur le forum 'doublons listbox'

A+

 

[brux40]

Re : supprimer les doublons d'une listbox

Bonjour,

J'ai déjà regardé mais je n'arrive pas à l'adapter à mon cas en fait.

 

[Guest]

Re : supprimer les doublons d'une listbox

Re,

Dans ces cas là, il faut donner tes tentatives de codes(adaptation de ce que tu as trouvé), pour qu'on puisse te montrer ce qui ne va pas.

Private Sub UserForm_Initialize()
'choix du moteur
    Dim i As Integer
    Dim Valeurs As Variant
    Dim sDic As Object
    Set sDic = CreateObject("Scripting.Dictionary")
    'efface le contenu de la listbox
    ListBoxmodmot.Clear
    'avec la feuille base de donnée.
    With Sheets("base de donnee")
        'Pour aller plus vite on charge les valeurs dans un tableau
        Valeurs = .Range("B3:B5000").Value
        For i = LBound(Valeurs) To UBound(Valeurs)
            If Not IsEmpty(Valeurs(i, 1)) Then sDic(Valeurs) = ""
        Next i
    End With
    If IsArray(Valeurs) Then ListBoxmodmot.List = Valeurs
End Sub

A+

 

[Pierrot93]

Re : supprimer les doublons d'une listbox

Re,
bonjour Hasco, meilleurs voeux...

pourquoi rouvrir une discussion...
https://www.excel-downloads.com/thr...tbox-a-partir-dune-feuille-non-active.175739/

 

[Guest]

Re : supprimer les doublons d'une listbox

Re,

Hello Pierrot Meilleurs voeux à toi et aux tiens.

J'avais pas vu qu'il avait déjà une discussion d'ouverte!

A+

 

[brux40]

Re : supprimer les doublons d'une listbox

Merci beaucoup de votre aide je vai tester ça.

 

[brux40]

Re : supprimer les doublons d'une listbox

Avec ce programme tel quel, le logiciel me mets " erreur d'exécution 5 : Argument ou appel de procédure incorrect" sa peut venir d'où?


Désolé de vous embeter encore

 

[Guest]

Re : supprimer les doublons d'une listbox

Re,

Comment ceux-tu que je le sache sans un fichier exemple.
J'ai du faire une erreur de synthaxe mais comme je n'ai pas pu tester....

A+

 

[brux40]

Re : supprimer les doublons d'une listbox

Dim i As Integer
Dim Valeurs As Variant
Dim sDic As Object
Set sDic = CreateObject("Scripting.Dictionary")
'efface le contenu de la listbox
ListBoxmodmot.Clear
'avec la feuille base de donnée.
With Sheets("base de donnee")
'Pour aller plus vite on charge les valeurs dans un tableau
Valeurs = .Range("B3:B5000").Value
For i = LBound(Valeurs) To UBound(Valeurs)
If Not IsEmpty(Valeurs(i, 1)) Then sDic(Valeurs) = ""
Next i
End With
If IsArray(Valeurs) Then ListBoxmodmot.List = Valeurs

 

[Guest]

Re : supprimer les doublons d'une listbox

Re,

Je te suggère d'aller faire un Lien supprimé

A+

 

[brux40]

Re : supprimer les doublons d'une listbox

Re,

Désolé si je n'ai pas été poli.
Mille excuse
Merci de ton aide

A+

 

[Guest]

Re : supprimer les doublons d'une listbox

Re,

voici qui est corrigé, mais tu n'as pas du lire la charte du forum correctement, sinon tu aurais joint un fichier exemple représentant ton problème. Cela nous aurait évité de tourner en rond. J'ai du créer moi-même l'exemple pour me rendre compte de l'erreur!!!!!

Private Sub UserForm_Initialize()
 'choix du moteur
     Dim i As Integer
     Dim Valeurs As Variant
     Dim sDic As Object
     Set sDic = CreateObject("Scripting.Dictionary")
     'efface le contenu de la listbox
     ListBoxmodmot.Clear
     'avec la feuille base de donnée.
     With Sheets("base de donnee")
         'Pour aller plus vite on charge les valeurs dans un tableau
         Valeurs = .Range("B3:B5000").Value
         For i = LBound(Valeurs) To UBound(Valeurs)
             If Not IsEmpty(Valeurs(i, 1)) Then sDic(Valeurs(i, 1)) = ""
         Next i
     End With
     If IsArray(Valeurs) Then ListBoxmodmot.List = sDic.keys
 End Sub

A+

 

[brux40]

Re : supprimer les doublons d'une listbox

Re,


Merci beaucoup pour ton aide.

Et désolé de t'avoir déranger

Merci beaucoup
Bonne continuation

A+