remplacer and par or dans un code

pascal21

XLDnaute Barbatruc
Code:
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1 [COLOR=Red]And [/COLOR]Cells(i, 8) > 0 Then
bonsoir
comment écrire ce code pour que and (en rouge) soit remplacé par "ou"
un peu comme ceci
Code:
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 [COLOR=Red]And Cells(i, 7) = 1  or Cells(i, 8) > 0[/COLOR] Then
ça ne fonctionne pas bien sur, il doit manquer quelque chose
donc cells (i,7)=1 ou cells(i,8)>0
merci
 

ya_v_ka

XLDnaute Impliqué
Re : remplacer and par or dans un code

Salut

Chez moi ça fonctionne...

Dim i As Byte
Sub go()
i = 1
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1 Or Cells(i, 8) > 0 Then
Cells(2, 1) = "X"
End If
End Sub

Maintenant il faudrait savoir ce que tu attends comme test ?

Ya'v
 

JCGL

XLDnaute Barbatruc
Re : remplacer and par or dans un code

Bonjour à tous
Salut Justine :)

Code:
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1 [COLOR=Red]And [/COLOR]Cells(i, 8) > 0 Then
bonsoir
comment écrire ce code pour que and (en rouge) soit remplacé par "ou"
un peu comme ceci
Code:
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 [COLOR=Red]And Cells(i, 7) = 1  or Cells(i, 8) > 0[/COLOR] Then
ça ne fonctionne pas bien sur, il doit manquer quelque chose
donc cells (i,7)=1 ou cells(i,8)>0
merci

Pour ton "ou", je mettrais "Or" mais je n'ai pas testé...

Bises à Justine
A+ à tous
 

TooFatBoy

XLDnaute Barbatruc
Re : remplacer and par or dans un code

Salut à tous,

Tout dépend comment tu veux que le OU fonctionne... ;)

ça peut donner :

If (Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1) Or Cells(i, 8) > 0 Then
mais les parenthèses sont ici facultatives et donc on se retrouve avec ta deuxième formule donc ça ne doit pas être ce que tu veux

ou alors ça peut donner ça :
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And (Cells(i, 7) = 1 Or Cells(i, 8) > 0) Then
 
Dernière édition:

Statistiques des forums

Discussions
312 836
Messages
2 092 616
Membres
105 466
dernier inscrit
Jsquare