Formule en vba

Bonjour
J'ai cette formule dans la colonne K2 SI(OU(J2=0;C2=0);"";(J2-C2)).
Je voudrais la mettre en vba dans le Worksheet_Change et je ne sais pas comment.
Toute aide serait appréciée.
Merci à l'avance

Bonsoir,

Met toi sur ta cellule, commence un enregistrement de macro, appuie sur F2 (pour entrer dans la formule) puis sur entré (pour la valider) stop l'enregistrement de macro et va lire la macro ainsi créée.

Tu vas y reconnaitre ta fonction mais en vb.

Antony

La réponse doit ressembler à ceci. j'aimerais la formule pour chaque ligne; la colonne entière.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Range("j2") = 0 Or Range("c2") = 0 Then Range("k2") = "" Else Range("k2") = Range("j2") - Range("c2") End If Application.EnableEvents = True End Sub

---

Merci de m'aider

Bonsoir.

Une toute petite modification devrait faire l'affaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range)   If (Target.Column = 3) Or (Target.Column = 10) Then   Application.EnableEvents = False If Range("j" & Target.Row) = 0 Or Range("c" & Target.Row) = 0 Then Range("k" & Target.Row) = "" Else Range("k" & Target.Row) = Range("j" & Target.Row) - Range("c" & Target.Row) End If Application.EnableEvents = True   End If   End Sub

---

Cordialement,

pgz

Bonjour,

Dans le même esprit depuis la proc proposé par pgz :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range)   With Target   If (.Column = 3) Or (.Column = 10) Then   Application.EnableEvents = False   Range("K" & .Row) = Range("J" & .Row) - Range("C" & .Row) If Range("K" & .Row) = 0 Then Range("K" & .Row) = ""   Application.EnableEvents = True   End If   End With   End Sub

---

Hervé.