extraction d'une liste sans doublon

[Sylvain59]

Bonjour à Tous

ma question est simple, la réponse l'est surement pour les experts VBA mais moi je cale

je désire extraire d'une liste placée en colonne A avec des vides car cette liste provient d'une extraction faite avec une formule genre
si(a8=f1;"";b8)
Donc je veux placer a partir de b8 une liste sans doublon et sans vide de ce qui est placé sur le colonne A

je joins un petit fichier

Merci de m'aider

 

[Cousinhub]

Re : extraction d'une liste sans doublon

Bonjour,
tu peux essayer avec ce code :

Sub sans_doublon()
Set mondico = CreateObject("Scripting.Dictionary")
For Each cel In Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
   If Not mondico.Exists(cel.Value) And cel.Value <> "" Then
      mondico.Add cel.Value, cel.Value
   End If
Next cel
Range("B8:B" & mondico.Count + 7).Value = Application.Transpose(mondico.items)
End Sub

 

[CB60]

Re : extraction d'une liste sans doublon

Bonjour
Regarde si cela te convient?

Bonjour Bhbh

 

[Sylvain59]

Re : extraction d'une liste sans doublon

Merci à tous les deux

les deux solutions fonctionnent
Encore une preuve s'il en était besoin qu'il y a toujours plusieurs solutions à un problème

Encore merci

 

[Sylvain59]

Re : extraction d'une liste sans doublon

un petit problème avec ta solution bhbh

lorsque j'applique ta macro j'ai un message d'erreur "incompatibilité de type"

c'est du microsoft je n'y comprends rien