Cliquer et afficher le resultat excel

Salut,

Clic droit sur de ta feuille, ce qui va t'ouvrir les propriétés de la feuille, colles y ce code

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target.FormulaR1C1 = "=R[-1]C*RC[-1]"
End If
End Sub

en B1 tu as une valeur en A2 l'autre et lorsque tu clic droit sur B2 tu obtiens le résultat

ou ce code si tu ne souhaites pas avoir la formule en B2

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target = [B1] * [A2]
End If
End Sub

Merci de ta réponse Mike mais pourrais-tu expliciter davantage s'il te plait

Pour coller le code je dois aller dans "enregistrer une macro" c'est ça ?
Et pour l'application ?

Et j'ai plusieurs calcul du même type à faire, je dois juste changer la cellule de destination ou existe-t-il un moyen plus rapide ?

Merci

Re,

Non clic droit sur l'onglet de la feuille concernée et VISUALISER LE CODE et colles mon code VBA dans la feuille blanche qui s'est ouverte

Super ça marche ! un grand merci mike 2 jours que je cherche la prochaine jviendrais ici directement
Dernière question après j'arrête de t'embeter :) est ce que c'est possible pour l'effacer de faire de même juste en un clic ?

Mike j'ai encore besoin de ton aide

Le code que tu ma donné marche que pour une seule cellule, si je le remet pour une autre, il m'indique "nom ambigüe détecté : Worksheet_BeforeRightClick"
As tu une solution ?

Re,

Si tu veux appliquer cette macro aux lignes suivantes, il serait judicieux de mettre les valeurs en colonneA à partir de la première ligne et idem en colonne B, un clic sur C de la ligne et la multiplication s'opère avec ce code

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target = Target Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub

Mais je pense qu'il serait souhaitable de limiter le déclenchement à une colonne exemple la C
avec ce code pour la plage C1 à C25

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C1:C25]) Is Nothing Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub