Incrémenter une liste

Bonjour,

j'ai une colonne contenant plusieurs éléments et j'aimerai faire un décompte du nombre d'élements identiques.

Je m'expliue par un exemple :

Colonne A ma liste, colonne B le Décompte que je souhaite :

Colonne A Colonne B

AAA 1

AAA 2

AAA 3

BB 1

BB 2

CCC 1

CCC 2

CCC 3

CCC 4

Merci d'avance pour votre aide.

Salut caribou44,

Double-clic sur la feuille pour démarrer la macro.

Quelque chose me dit qu'il va falloir adapter...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
'
Cancel = True
tData = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value
For x = 1 To UBound(tData, 1)
    If tData(x, 2) = 0 Then
        iIdx = 0
        For y = x To UBound(tData, 1) - 1
            If tData(y, 1) = tData(x, 1) Then
                iIdx = iIdx + 1
                tData(y, 2) = iIdx
            End If
        Next
    End If
Next
Range("A1").Resize(UBound(tData, 1), 2).Value = tData
'
End Sub

A+

Merci pour ta réponse mais mon service informatique bloque les macros.

J'ai trouvé une solution "à la main) :

colonne B : =EXACT(A2;A1)

colonne C : =IF(B2=TRUE;B1+1;1)

Merci encore pour vos réponses.

Bonjour,

une autre possibilité :

=NB.SI(A$1:A1;A1)