Récupérer valeur , la modifier, la renvoyer ailleurs

[Neptune]

Bonjour,

Je reviens vers vous car je bloque une nouvelle fois...

Cette fois-ci je souhaiterai que lorsque je clique 1 fois sur une cellule de la colonne AG (entre les lignes 8 et 731) que son résultat soit multiplier par 5 et que la nouvelle valeur soit mise en cellule AD5.
A chaque fois que je reclique sur une nouvelle cellule de la colonne je voudrais que le résultat écrase le dernier.

Merci de votre aide une fois de plus

 

[SergiO]

Re : Récupérer valeur , la modifier, la renvoyer ailleurs

Bonjour Neptune,

Voici un code à tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AG8:AG731")) Is Nothing Then Range("AD5") = Target.Value * 5
End Sub

@+

 

[Neptune]

Re : Récupérer valeur , la modifier, la renvoyer ailleurs

Ah MERCI , j'étais pas loin tout compte fait...