remplacer macro par formule

[Domi]

Bonjour,
Peut-on remplacer cette macro par une formule :

If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('C3') = Empty
Range('F3') = Range('B2')
ElseIf Not Intersect(Target, Range('C3')) Is Nothing Then
Range('C3') = 3
Range('C2') = Empty
Range('F3') = Range('B3')
End If

Traduction de cette macro :
Si je clic sur C2, le chiffre '3' apparait en C2, C3 reste vide et le contenu de F3 devient celui de B2.
A l'inverse, si je clic sur C3, le chiffre '3' apparait en C3, C2 reste vide et le contenu de F3 devient celui de B3.

Merci d'avance pour votre aide.

 

[andré]

Salut,

Ce n'est pas faisable, ceci pour deux raisons :

Déclencher une action par un clic sur une cellule ne peut être provoqué par une formule.
Une cellule ne peut contenir que soit une formule, soit une valeur, pas les deux.

Â+