XL 2019 Simplifier des conditions formulées avec is then

MP59

XLDnaute Occasionnel

• 17 Mars 2021

• #2

Bonjour donpopo,

à tester, il y aura surement mieux.

VB:

If (TextBox202.Value = "" And TextBox200 <> "") Or (TextBox202.Value <> "" And TextBox200 = "") Then
        MsgBox "Données erronées"
        Exit Sub
    End If
    If (TextBox203.Value = "" And TextBox201 <> "") Or (TextBox203.Value <> "" And TextBox201 = "") <> "" Then
        MsgBox "Données erronées"
        Exit Sub
    End If

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 17 Mars 2021

• #3

Bonjour, MP59,
Si je comprends bien, les parenthèses changent l'ordre des priorités. J'avais essayé, mais sans parenthèses et cela ne donnait rein de concret.
Merci, je vais tester.
A+

 

Vote positif 0 Vote négatif

MP59

XLDnaute Occasionnel

• 17 Mars 2021

• #4

normalement oui

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #5

Bonsoir le fil,

Si j'ai bien compris
NB: Renseignez les propriétés Tag au préalable
2 et 4 pour TextBox1 et TextBox2
3 et 5 pour TextBox3 et TextBox4

VB:

Private Sub CommandButton1_Click()
Dim c As Control, i%, j%
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
    Select Case c.Tag * 1 Mod 2
    Case 0
    a = Len(c) > 0: i = i + a
    Case 1
    b = Len(c) > 0: j = j + b
    End Select
End If
Next
If i = -1 Or j = -1 Then MsgBox "Données erronées", vbCritical, "Erreur!"
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Mars 2021

• #6

Bonsoir.
Simplement :

VB:

If (TextBox202.Value = "" Xor TextBox200.Value = "") Or _
   (TextBox203.Value = "" Xor TextBox201.Value = "") Then
        MsgBox "Données erronées"
        Exit Sub: End If

 

Vote positif 0 Vote négatif

Solution

donpopo

XLDnaute Occasionnel

• 18 Mars 2021

• #7

Bonjour et merci tous deux,
le proposition de Dranreb me plait assez par sa simplicité. Je ne connaissais pas Xor.
Bonne journée,

 

Vote positif 0 Vote négatif