Trouver la ligne du premier doublon consécutif

[GALPAMORT]

Bonjour,

J'ai une suite de 0 et de 1 dans une colonne :

0
0
1
1
0
1
1
0
1
0
...

J'aimerai qu'en dessous de la colonne s'affiche le numéro de ligne du premier doublon de "1". Ici il devrait m'afficher "4" car c'est la première fois que le doublon de 1 est détecté en ligne 4.
De préférence par formule plutôt que par VBA.

Merci pour votre aide.

 

[sylvanu]

Bonsoir Galpamort,
Un essai en PJ avec une fonction perso :

Function PremierDoublon(Plage As Range, X)
ValeurDoublon = X
Taille = Application.Count(Plage, "*")
Pointeur = 0
For i = 1 To Taille
    If Plage.Cells(i, 1) = ValeurDoublon Then
        Pointeur = Pointeur + 1
        If Pointeur = 2 Then
            PremierDoublon = i
            Exit Function
        End If
    End If
Next i
PremierDoublon = "Non trouvé"
End Function

 

[djidji59430]

Bonjour à tous,

Avec une formule

 

[sylvanu]

Re,
Oups ! j'ai lu l'inverse. Sorry.

 

[GALPAMORT]

Merci Djidji.
Ca a l'air pourtant facile comme ça alors que ça fait 3 jour que je m'arrache les cheveux !!!

Encore merci.

Et merci Sylvanu pour la solution VBA

 

[djidji59430]

re
la formule est facile, ce qui l'est moins, c'est pourquoi et comment on va l'utiliser dans ce cas !

Crdlmt