[Toutes versions] IF avec deux conditions [Résolu]

[iliesss]

Bonjour
SVP comment ajouter à ce code

Code :

1
2
3
4
5
6
7
Sub test()
If Range("b1").Value = Range("a1").Value + Range("a2").Value Then
   Range("a1:a5").ClearContents
Else
   MsgBox "Déséquilibre dans la pièce", vbOKOnly + vbQuestion, "ATTENTION"
End If
End Sub

Cette deuxième condition

Code :

Range("b2").Value = Range("a4").Value + Range("a5").Value

J’ai essayé avec AND mes ça marche pas.
Merci beaucoup

[gFZT82]

Bonjour,

Essaie avec

Code :

1
2
3
4
5
6
7
8
9
Sub test()
If Range("b1").Value = Range("a1").Value + Range("a2").Value Then
    If Range("b2").Value = Range("a4").Value + Range("a5").Value Then
       Range("a1:a5").ClearContents
    Else
        MsgBox "Déséquilibre dans la pièce", vbOKOnly + vbQuestion, "ATTENTION"
    End If
End If
End Sub

Cordialement.

[iliesss]

merci pour votre réponse
mais ton code marche uniquement avec la deuxième condition c-a-d si la première condition est fausse le code fait rien.
merci

[gFZT82]

Effectivement, j’avais compris que tu souhaites effacer les données si la condition 1 ET la condition 2 sont vérifiées.

Pour résoudre ton problème, il faut que tu indiques clairement les points suivants :
Si condition1 non vérifiée et condition 2 non vérifiée, alors … résultat ? (ex : message déséquilibre).
Si condition1 non vérifiée et condition 2 vérifiée, alors … résultat ? (ex : effacement données).
Si condition1 vérifiée et condition 2 non vérifiée, alors … résultat ? (ex : effacement données).
Si condition1 vérifiée et condition 2 vérifiée, alors … résultat ? (ex : effacement données).

Cordialement.

[iliesss]

Bonjour
Je vous indique clairement les points suivants :
Si condition1 non vérifiée et condition 2 non vérifiée, alors … résultat ? (ex : message déséquilibre).
Si condition1 non vérifiée et condition 2 vérifiée, alors … résultat ? (ex : message déséquilibre).
Si condition1 vérifiée et condition 2 non vérifiée, alors … résultat ? (ex : message déséquilibre).
Si condition1 vérifiée et condition 2 vérifiée, alors … résultat ? (ex : effacement données).
Merci

[gFZT82]

Essaie avec

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Condition1 As Boolean
Dim Condition2 As Boolean
 
    Condition1 = (Range("B1") = Range("A1") + Range("A2"))
    Condition2 = (Range("B2") = Range("A4") + Range("A5"))
 
    If Condition1 And Condition2 Then
       Range("A1:A5").ClearContents
    Else
        MsgBox "Déséquilibre dans la pièce", vbOKOnly + vbQuestion, "ATTENTION"
    End If
End Sub

Cordialement.

[iliesss]

Bonjour mr
Merci beaucoup c'est exacte ce que je cherche merci encore une fois et bonne journée