Comment retrouver des valeur dans ne colonne

bonjour,

je cherche a retrouver les 8 premières valeurs differentes dans une colonne en vba

merci pour vos reponse

je vous transmet mon fichier

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonsoir,

Sub Extract8Val()
    Dim TbV, i%, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet.Columns("D")
        Do
            i = i + 1
            d(.Cells(i, 1).Value) = ""
            If d.Count = 8 Then Exit Do
        Loop While .Cells(i + 1, 1) <> ""
        TbV = d.keys
        .Cells(4, 5).Resize(, UBound(TbV) + 1).Value = TbV
    End With
End Sub

Nb- Les valeurs extraites sont affectées ligne 4 (à partir de H) : à adapter le cas échéant.

Nb2- .Cells(4, 5) est un adressage relatif par rapport à la colonne D mise sous bloc With : H4 est en position ligne 4, colonne 5 par rapport à D1...

Cordialement.

Salut gmb !

J'ai pas copié ! Je t'assure !

merci pour vos réponses ca fonctionne a merveille merci encore