XL 2013 If Valeur>0 mettre dans la cellule x else mettre dans une autre !

[zack]

Bonjour,

J'ai une valeur dans la cellule E7, je veux que si la valeur de E7>0 la mettre (la valeur) dans la cellule G7, si non (E7<0) la mettre dans la cellule H7.
Comment je peux programmer ceci en utilisant le IF svp ?

Merci.

 

[Pierrot93]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Bonjour,

et si = à 0 on fait quoi ?

bonne journée
@+

 

[zack]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Si = 0 on fait rien, car dans mon fichier excel ya pas de valeur = 0, c'est soit positif soit négatif.

Merci

 

[Pierrot93]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Re,

regarde ceci alors

If Range("E7") > 0 Then
    Range("G7") = Range("E7")
    ElseIf Range("E7") < 0 Then Range("H7") = Range("E7")
End If

 

[vgendron]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

hello

il te faut deux formules
en G7=si(E7>0;E7;"")
en H7=si(E7<0;E7;"")

sinon. c'est du VBA

Hello Pierrot ;-)

 

[pat01200]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Bonjour,

Je te propose de tester cette petite macro :

If Range("E7").Value > 0 Then
Range("G7").Value = Range("E7").Value

If Range("E7").Value <= 0 Then
Range("H7").Value = Range("E7").Value

Le signe "=" peut être changé de place pour être associé à ">"...

Bonne journée !

 

[gilbert_RGI]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Bonjour, bienvenue sur XLD

comme ceci peut-être

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target <> [E7] Then Exit Sub
    If [E7] > 0 Then [G7] = [E7]: [E7] = 0
    If [E7] < 0 Then [H7] = [E7]: [E7] = 0
    Application.EnableEvents = True

End Sub

 

[zack]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Bonjour,

Merci beaucoup pour vos réponses, j'ai essayé les deux versions et ça fonctionne bien.
Problème résolu.

 

[Pierrot93]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Re,
bonjour à tous,

pour un déclenchement auto lors de la modification de E7 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address = "$E$7" Then
        Application.EnableEvents = False
        If .Value > 0 Then
            Range("G7") = .Value
            ElseIf .Value < 0 Then Range("H7") = .Value
        End If
        Application.EnableEvents = True
    End If
End With
End Sub

code à placer dans le module de la feuille concernée

 

[zack]

Re : If Valeur>0 mettre dans la cellule x else mettre dans une autre !

Merci encore pour votre aide les amis.
Bonne journée à vous