Occurrence différentes classée

Bonjour,

Je fais appel à vous car je cherche une macro qui pourrait compter le nombre d'occurence différente de la Feuille2 et les mettre dans la Feuille1 dans l'ordre alphabétique. est ce possible ?

ps: fichier joint

Merci par avance

Bonjour,

Essaie ceci :

Sub Occurrences()
    Dim d As Object, T, occ, c As Range, i%, j%
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In Worksheets("Feuil2").UsedRange
        If c.Value <> "" Then d(c.Value) = ""
    Next c
    T = d.keys
    For i = LBound(T) To UBound(T) - 1
        For j = i + 1 To UBound(T)
            If T(j) < T(i) Then
                occ = T(j): T(j) = T(i): T(i) = occ
            End If
        Next j
    Next i
    With Worksheets("Feuil1")
        .Range("A1").Resize(d.Count).Value = WorksheetFunction.Transpose(T)
        .Activate
    End With
End Sub

Cordialement.

Bonjour @ tous,

avec une formule matricielle.

Voir PJ

@ + +

Bonjour,

merci à vous deux. Je penche plus vers la solution de MFerrand. Cependant en voulant adapter à ma situation je me heurte à un nouveau probleme. En effet, comment peut on faire si le tableau de la feuille 2 contient plusieurs colonnes. en effet, l'execution de la macro genere une erreur que je n'arrive pas à résoudre.

mon but est de retranscrire dans la feuille1 chaque occurrence différente classée par ordre alphabétique et aussi de compter combien de ko et ok pour chacune. Je suis en difficulté je n'arrive pas à avancer. Merci pour votre aide.

Fichier en PJ

Cdt

Problème à redéfinir. C'est une autre question que la précédente !

Ok je le rédige ailleurs de suite ! merci pour ta réponse !