Discussion :

[nyto35]

Bonjour à tous,

Après avoir cherché sur plusieurs forum, je n'arrive pas à résoudre mon problème.

Je dois réaliser un boucle If dans laquelle je dois faire un test en utilisant les mots "and" et "or". Cependant, cela ne fonctionne pas (l'erreur doit venir du positionnement des 2 mots).

Voici ce que je dois tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Cells(i, 13) = 1 And Cells(i, 15) <> 0) Or (Cells(i, 13) = 1 And Cells(i, 15) <> 5) Then

.

Quelqu'un aurait la solution à mon petit problème ?

Cordialement,

Tony Hedan

[jfontaine]

Bonjour,

Essais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i, 13) = 1 And  (Cells(i, 15) <> 0 Or Cells(i, 15) <> 5) Then

[Ashireon]

Hello,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (Cells(i, 13) = 1) And ((Cells(i, 15) <> 0) Or ( Cells(i, 15) <> 5)) Then

[Invité]

Bonjour,
Une petite astuce :
Les Et (AND) sont comparable à
0 *1=0 | 1*1=1
Les ou (OR) sont comparable à
0+1=1
Reprenons ta formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If (Cells(i, 13) = 1 And Cells(i, 15) <> 0) Or (Cells(i, 13) = 1 And Cells(i, 15) <> 5) Then
‘Cells(i, 13)=1  -> Cells(i, 15)=0
‘If (Cells(i, 13) = 1 And Cells(i, 15) <> 0)
‘Cells(i, 13) * Cells(i, 15) =0
‘Cells(i, 13) = 1 And Cells(i, 15) <> 5  Si nous regardons l’équation précédant on  voie bien que ce n’est ‘pas la même chose !
'Puisque  ce n’est pas la même chose le ou (or) =1
If Cells(i, 13 = 1 And  Cells(i, 15) <> 0 AND Cells(i, 15) <> 5 Then

[Soraphiroth]

Ce que je lis :
Si Cellule1 est égale à 1 et Cellule2 n'est pas égale à 0
OU
Si Cellule1 est égale à 1 et Cellule2 n'est pas égale à 5

Es-tu sûr que tes cellules respectent ces conditions ? Une condition ne bug jamais, ce sont toujours les variables qui ne sont pas bonnes. Sinon tu peux raccourcir un peu la condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i, 13) = 1 And Not (Cells(i, 15) = 0 Or Cells(i, 15) = 5) Then

Elle signifie exactement la même chose que la tienne, elle vérifie si Cellule1 vaut bien 1 et si Cellule2 ne vaut pas 0 ou 5.

[nyto35]

Merci à vous tous, vous êtes top !!