Bonjour à tous    
Je voudrais savoir si il existe un petit bout de code simple  
pour éliminer les doublons dons une liste pour en faire une listbox.
Merci d'avance.

On va imaginer que ta liste est la colonne A et qu'elle commence à la ligne 1
 

Il ne faut pas d'espace dans la liste avant insertion (sinon l'espace arrête la boucle).
 
Voilà.

C'est génial ce truc    mais j'ai un petit souci car sur une feuille simple avec une colonne simple c'est simple    mais moi c'est sur une page bien precise(elle s'appelle PROG) et la colonne à dédoublonner est un groupe de cellules(nommé TRNST2) qui démarre de f2 à f131.  
 
Merci pour le premier code!

ben ca va donner :

Je spécifie à quel endroit que c'est la page "PROG"  
 
(Je débute... )

"Me" correspond à mon Userform?  
"List1" correspond à ma Listbox?  
Je mets Worksheets("PROG" ). devant Range?  
 
                 

bonsoir,
bien que je ne sois pas un adepte du userform je pense que c'est celà.
Tu mets ce code dans la macro initialize de ton USF, éventuellement tu modifies en fonction du nom de ton Listbox et tu rajoutes ton
worksheets("PROG" ) devant tous les "range" et ça devrait être bon.
 
Chez moi ça donne ça :

Ok ?

Je vais essayer ça, merci!

J'ai fais ça:
 
Private Sub ValZik_Click()
' POUR L'EXPORT DU RESULTAT DES FILTRES VERS LA ZONE DE TEXTE
' EN PASSANT PAR UNE ZONE DE TRANSITION
 
    Application.Goto Reference:="Artiste"
    Selection.Copy
    Application.Goto Reference:="TRNST2"
    Sheets("PROG" ).Select
    Range("F1" ).Select
    ActiveSheet.Paste
 
      For i = 2 To 132
          If ZIKOS.KZartiste.ListCount = 0 Then ZIKOS.KZartiste.AddItem Worksheets("PROG" ).Range("F" & i).Value
          m = 0
          For j = 0 To ZIKOS.KZartiste.ListCount - 1
    If Worksheets("PROG" ).Range("F" & i).Value = ZIKOS.KZartiste.List(j) Then
              m = 1
End If
          Next
          If m = 0 Then ZIKOS.KZartiste.AddItem Worksheets("PROG" ).Range("F" & i).Value
      Next
 
    ZIKOS.KZartiste.RowSource = "TRNST2"
End Sub
 
Et ça marche PAS!!!        
Où me suis-je trompé?

On reprend un peu avant :
 
PROG est le nom d'un classeur ou d'une feuille ?
Si c'est un classeur, c'est Workbooks, si c'est une feuille c'est Sheets ...

Bonsoir,
Ben, là t'as tout faux...
La Proc que je t'ai donné tu la colles intégralement dans le module de Code de TonUSF (en double-cliquant sur l'USF)
Tu fais ton ValZik_Click d'un coté...
à la fin tu écris
MonUSF.Load
MonUsF.Show
End Sub
...et ça devrait faire.
Ok ?
 
Tout sur les USF et VBA ici
A+

J'ai fais ça...
--> ZIKOS est mon userform
--> KZartiste est ma listbox
--> Worksheets("PROG" ).Range("F" ) est la liste à dedoublonner (son vrai nom est TRNST2)
 
 
Private Sub UserForm_Initialize()
' pour initialiser la KZartiste sans doublons pourrave
 
 
        For i = 2 To 132
    If ZIKOS.KZartiste.ListCount = 0 Then ZIKOS.KZartiste.AddItem Worksheets("PROG" ).Range("F" & i).Value
        m = 0
        For j = 0 To ZIKOS.KZartiste.ListCount - 1
    If Worksheets("PROG" ).Range("F" & i).Value = ZIKOS.KZartiste.List(j) Then
        m = 1
    End If
    Next
        If m = 0 Then ZIKOS.KZartiste.AddItem Worksheets("PROG" ).Range("F" & i).Value
    Next
End Sub
 
ET CA MARCHE PAS  

La il va falloir que tu m'expliques.    
 
Je l'ai testé deux fois chez moi et ca passe nikel.    
 
Il n'y a aucun doublon en plus (testé).
 

--> Peut être si tu nous donnais quelques infos ??    

bonsoir,
ci joint un 'tit classeur démo ici
Ok ?

Bonsoir galopin01,
Tu vas rire (j'espère) mais j'arrive pas...  
 
Comment puis-je t'envoyer mon fichier pour que tu puisses y jeter un oeil si tu as le temps?

Du coup j'ai trouvé et adapté ça, provenant du site d'une gentile Cathy :
 
Private Sub ValZik_Click()
' POUR L'EXPORT DU RESULTAT DES FILTRES VERS LA ZONE DE TEXTE
' EN PASSANT PAR UNE ZONE DE TRANSITION
 
    Application.Goto Reference:="Artiste"
    Selection.Copy
    Application.Goto Reference:="TRNST2"
    Sheets("PROG" ).Select
    Range("F1" ).Select
    ActiveSheet.Paste
     
    Dim flleNouv As Worksheet, PROG2 As Worksheet
    Dim rDoublon As Range
 
      Set PROG2 = ActiveSheet
      Set rDoublon = Selection
      'exécute un filtre élaboré sans critère et sans doublon
      rDoublon.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
      'ajoute une feuille
      Set flleNouv = Worksheets.Add
      'sélectionne uniquement les cellules visibles
      rDoublon.SpecialCells(xlCellTypeVisible).Copy
      ' on colle ces cellules dans la nouvelle feuille
      flleNouv.Range("A1" ).PasteSpecial xlPasteAll
      'on affiche tout pour annuler le filtre
      PROG2.ShowAllData
      'on efface tous le contenu de la plage
      rDoublon.ClearContents
      ' on copie les données de la nouvelle feuille et on les colle dans la sélection
      flleNouv.Range("A1" ).CurrentRegion.Copy rDoublon.Cells(1)
      'on supprime la nouvelle feuille
      Application.DisplayAlerts = False
      flleNouv.Delete
      Application.DisplayAlerts = False
       
       
       
    ZIKOS.KZartiste.RowSource = "TRNST2"
End Sub
 
C'est lent c'est lourd mais ça marche .
 
Merci encore à tous.