Fonction si

[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

 

[Nairolf]

Re : Fonction si

Salut duplaly, salut le forum,

Tout dépend de ce que tu souhaites obtenir et comment tu souhaites utiliser cette formule.
Dans le cas de la modification uniquement de la cellule K2 et si seule la valeur résultante t'intéresse, essayes ceci dans l'évènement Worksheet_Change :

if range("J2")=0 or range("c2")=0 then

range("K2").clear '!à vérifier : clear=effacement
else
range("K2")=range("J2")-range("C2")
endif

 

[JBARBE]

Re : Fonction si

Bonjour à tous,

Petite précision :

Avec la reponse de Nairolf il y a pour l'effacement :

range("K2").clear

clear correspond à l'effacement complet ( format et contenu) de la cellule K2

clearcontents correspond seulement à l'effacement du contenu !

bonne journée

 

[DoubleZero]

Re : Fonction si

Bonjour à toutes et à tous,

Une autre suggestion avec le code ci-après :

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

A bientôt 🙂

 

[duplaly]

Re : Fonction si

Merci pour l'aide. Si je veux que la formule s'applique pour la colonne au complet, je fais comment.

 

[JBARBE]

Re : Fonction si

Peut-être ceci en appuyant sur la touche "Suppr" pour la ligne concernée et la colonne K avec les références en colonnes J et C :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    ' Test pour la colonne K
    If Target.Column = 11 Then
        
       If ActiveCell.Offset(0, -1) = 0 Or ActiveCell.Offset(0, -8) = 0 Then
        Target = ""
    Else
        Target = ActiveCell.Offset(0, -1) - ActiveCell.Offset(0, -8)
    End If
    End If
Application.EnableEvents = True
End Sub

 

[duplaly]

Re : Fonction si

Merci, mais cela ne semble pas fonctionner.

 

[JBARBE]

Re : Fonction si

Voir le fichier ci-joint !

pour l'exemple il faut changer les valeurs des colonnes C et J avant d'appuyer sur le bouton "Suppr"

bonne nuit !

 

[DoubleZero]

Re : Fonction si

Bonjour, le Fil, le Forum,

Merci pour l'aide. Si je veux que la formule s'applique pour la colonne au complet, je fais comment.

Comme ceci ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    [c:c].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(, 8).FormulaR1C1 = _
    "=IF(OR(RC[-1]=0,RC[-8]=0),"""",(RC[-1]-RC[-8]))"
    [j:j].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(, 1).FormulaR1C1 = _
    "=IF(OR(RC[-1]=0,RC[-8]=0),"""",(RC[-1]-RC[-8]))"
    Application.EnableEvents = True
End Sub

A bientôt 🙂