Utiliser une adresse dans une formule

bonsoir

J'ai le code suivant:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim adresse

adresse = ActiveCell.Address

Range("e4") = adresse

End Sub

ma question:

Comment utiliser la valeur de la cellule e4 dans cette formule: SIERREUR(CHERCHE(valeur de la cellule;E11;1);0)

?

exemple:

si je clique sur la cellule I5, le résultat en E4 sera $I$5

merci

Jean-Yves

Bonjour Jean-Yves,

à tester,

=SIERREUR(CHERCHE(INDIRECT(E4);E11;1);0)

Bonjour

Merci pour ton aide i201100.

J'ai tester avec INDIRECT(), le résultat n'est pas très convainquant....

Et comme la nuit porte conseil, j'ai modifier mon code, pour copier non pas l'adresse de ma cellule active mais la valeur

et la ça fonctionne....

Comme je ne suis pas au top en VBA, y à t'il un moyen pour mettre à jour ma cellule E4 en temps réel, c'est à dire dès que la frappe est réaliser au clavier. Car pour l'instant il faut valider la cellule pour que ça fonctionne

Voici mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur
    If Not Intersect(Target, Range("Tableau12[Article]")) Is Nothing Then
        Valeur = ActiveCell.Value
    End If
    Range("e4") = Valeur
End Sub

merci

Jean Yves