Modifier la valeur d'une cellule à partir d'une autre cellule fonction VBA Excel

Bonjour,

étant débutant en VBA Excel, l'instruction suivante ne marche pas :

Code:

---

Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = 0

---

Inclue dans la fonction :

Code:

---

1 2 3 4 5 6

Function actsI(Consommation As Single) As Double   actsI = Consommation Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = 0   End Function

---

ou bien il manque une manip à faire sous Excel.

Par avance merci.

par exemple:

Code:

---

1 2 3 4 5

Function actsI(Consommation As Single) As Double   actsI = Consommation * 2   End Function

---

après tu met dans la cellule destinataire:

=actsI(B3)

si B3 est la cellule source.

et tu modifie la formule en fonction de ton besoin.

Merci pour votre réponse,

En réalité, j'ai oublié de préciser que dans la cellule D9 il y a la formule : =SI(G5>125;125;actsI(G5)) donc qd la condition est fausse, je fais appel à la fonction qui met la cellule D9= G5 et essaye de mettre D10=0

c'est le but à atteindre.

Merci.