Adresse du résultat d'une fonction

Hello

Je sais que c'est tout con mais je ne trouve pas.

Voila mon problème, je crée une fonction personnalisée qui doit me faire un espece de compteur.

En fait pour être plus précis je cherche à coder l'équivalent de la formule suivante :

En B2 j'écris :

=SI(A2<>A1;1;B1 + 1)

Et j'ai besoin de connaitre la valeur de la cellule qui se trouve au dessus du résultat de ma fonction (Ce n'est pas la cellule active j'ai essayé)

Donc voila le code que j'ai écrit

Function CLE(Cellule As Range)
    CLE = 1
    If Cellule.Value = Cellule.Offset(-1, 0).Value Then
        CLE = ActiveCell.Offset(-1, 0).Value + 1 'Cette ligne est fausse j'ai besoin de connaitre la valeur de la cellule au dessus)
    End If
End Function

Si quelqu'un a une idée je suis preneur

Merci.

Bonjour,

ci-dessous code

Function CLE(Cellule As Range)
    Dim cellule_source As Range
    Set cellule_source = Range(Application.Caller.Address)

    CLE = 1
    If Cellule.Value = Cellule.Offset(-1, 0).Value Then
        CLE = cellule_source.Offset(-1, 0).Value + 1
    End If
End Fonction

Merci Thev,

Ca marche nickel