Une variable nulle sur 4

Version imprimable

Bonjour,

Je pensais que cette formule posait la condition qu'un seul élément devait être nul.

Code:

CFirst = 0 Xor CSecond = 0 Xor CThird = 0 Xor CFour = 0 Xor CFive = 0

Ce n'est apparemment pas le cas.

Je crois que je dois faire ce code à la place :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 count=0 If CFirst = 0 then count +=1 end if If CSecond = 0 then count +=1 end if If CThird = 0 then count +=1 end if If CFour = 0 then count +=1 end if If CFive = 0 then count +=1 end if If count = 1 then traitement end if
Pourriez-vous m'aider à ce sujet, svp? Merci d'avance.

Première remarque : donner à une variable le nom d'une méthode ou d'une propriété comme "count", ça n'est pas une bonne idée.
Ma méthode perso : utiliser au maximum le français dans le nom de mes variables. Comme VBA est anglophone, ça évite une bonne partie des recouvrements.

Citation:

Envoyé par Arsene12

Je pensais que cette formule posait la condition qu'un seul élément devait être nul.

Code:

CFirst = 0 Xor CSecond = 0 Xor CThird = 0 Xor CFour = 0 Xor CFive = 0

Ce n'est apparemment pas le cas.

J'ai pourtant testé et ça semble fonctionne.
Quel cas ne fonctionne pas ?
Tu es sûr que le problème ne vient pas des données dans les variables ?
Citation:
Je crois que je dois faire ce code à la place :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 count=0 If CFirst = 0 then count +=1 end if If CSecond = 0 then count +=1 end if If CThird = 0 then count +=1 end if If CFour = 0 then count +=1 end if If CFive = 0 then count +=1 end if If count = 1 then traitement end if
La même chose en plus simple :
Code:

1 2 3 If IIf(CFirst = 0, 1, 0) + IIf(CSecond = 0, 1, 0) + IIf(CThird = 0, 1, 0) + IIf(CFour = 0, 1, 0) + IIf(CFive = 0, 1, 0) = 1 then traitement end if

19/03/2019, 09h41
mercatog

Ou aussi

Code:

If (cFirst = 0) + (cSecond = 0) + (cThird = 0) + (cFour = 0) + (cFive = 0) = -1 Then
19/03/2019, 10h04
MarcelG
Bonjour,

Salut mercatog,

J'ai remarqué cette différence entre le tableur et VBA

Dans le tableur

Si C2 = 0 alors la formule dan Excel =(C2= 0)*1 retourne 1

En VBA
Code:

1 2 Debug.Print (Range("C2") = 0) * 1
retourne -1

Idem pour une variable numérique pour cette discussion comme le montre la formule de mercatog.

Bizarre, cette différence :calim2:
19/03/2019, 10h08
mercatog

Bonjour Marcel

En effet, sur la feuille VRAI/ FAUX c'est 1/ 0
20/03/2019, 05h20
Arsene12

Merci pour vos réponses. Je remplacerai dorénavant count par countX par exemple, c'est préférable effectivement. J'ai testé les codes

Code:

If (cFirst = 0) + (cSecond = 0) + (cThird = 0) + (cFour = 0) + (cFive = 0) = -1 Then

Code:

If IIf(CFirst = 0, 1, 0) + IIf(CSecond = 0, 1, 0) + IIf(CThird = 0, 1, 0) + IIf(CFour = 0, 1, 0) + IIf(CFive = 0, 1, 0) = 1 Then

et ils marchent, tandis que le code

Code:

CFirst = 0 Xor CSecond = 0 Xor CThird = 0 Xor CFour = 0 Xor CFive = 0

ne donne pas le résultat escompté.

J'ai une peu de mal à comprendre ces codes car je ne suis pas expert en excel. Je n'aurais pas pu trouver la solution tout seul.
20/03/2019, 08h39
Menhir

Citation:

Envoyé par Arsene12

J'ai une peu de mal à comprendre ces codes

La fonction IIf() fonctionne exactement comme la fonction SI() de Excel.
20/03/2019, 10h04
eriiic
Bonjour à tous,

Citation:

Je pensais que cette formule posait la condition qu'un seul élément devait être nul.
CFirst = 0 Xor CSecond = 0 Xor CThird = 0 Xor CFour = 0 Xor CFive = 0
Ce n'est apparemment pas le cas.

Sauf que tu dois exécuter les XOR 1 par 1, le résultat servant le XOR suivant.
La table de vérité du XOR est : ou l'un, ou l'autre, mais pas les deux. 0 XOR 1 et 1 XOR 0 => 1, 0 XOR 0 et 1 XOR 1 => 1
Si tu prends seulement les 3 premiers :
Code:

1 2 3 CFirst = 1 CSecond = 0 CThird = 0
que VBA exécute séquentiellement les opérations de la gauche vers la droite ou de la droite vers la gauche tu fais (je met 1 pour TRUE) :
(CFirst = 0 Xor CSecond = 0) Xor CThird = 0 => (1 XOR 0) XOR 0 => (1) XOR 0 => 1
ou
CFirst = 0 Xor (CSecond = 0 Xor CThird = 0) => 1 XOR (0 XOR 0) => 1 XOR (0) => 1

Ca ne peut donc pas aller pour ton besoin.
eric