Discussion :

[nabil23]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Inclue dans la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[a_diard]

par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nabil23]

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.