Occurence dans une colonne

Le 08/03/2018 à 13:52

Bonjour,

J'ai un fichier qui comporte une colonne de postes qui sont représentés par une série de chiffre et j'aimerais savoir si c'était possible de créer une colonne juste à côté avec le nombre d’occurrence de ces séries comme dans le fichier joint?

Merci.

Cordialement,

9occurence.xlsx (98.19 Ko)

Le 08/03/2018 à 14:22

Bonjour misen01,

créer une colonne juste à côté avec le nombre d’occurrence

Un TCD (tableau croisé dynamique ) devrait répondre à ta demande

Cordialement,

2copie-de-occurence-2.xlsx (860.59 Ko)

Le 08/03/2018 à 14:31

xorsankukai a écrit :
Bonjour misen01,
créer une colonne juste à côté avec le nombre d’occurrence
Un TCD (tableau croisé dynamique ) devrait répondre à ta demande
Cordialement,

Bonjour,

Merci pour votre aide!

Je cherche cependant quelque chose en VBA.

Quelque chose comme ça...

Sub compter_occurrence()
    Dim ws As Worksheet
    Dim lastRow As Long, x As Long
    Dim items As Object

    Application.ScreenUpdating = False

    Set ws = Feuil1

    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

    Set items = CreateObject("Scripting.Dictionary")
    For x = 1 To lastRow
        If Not items.exists(ws.Range("A" & x).Value) Then
            items.Add ws.Range("A" & x).Value, 1

        Else
            items(ws.Range("A" & x).Value) = items(ws.Range("A" & x).Value) + 1

        End If

            ws.Range("C" & x).Value = items(ws.Range("A" & x).Value)

    Next x

End Sub

mais cela n'est pas exactement ce que je recherche, car c'est séquentielle.

Cordialement.

Le 08/03/2018 à 14:41

bonjour

tout simplement