Discussion :

[duplaly]

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

[antonysansh]

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

[duplaly]

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

Code :

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

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

[pgz]

Bonsoir.

Une toute petite modification devrait faire l'affaire :

Code :

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

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

[Theze]

Bonjour,

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

Code :

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

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é.