remplacer and par or dans un code

[pascal21]

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

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

 

[justine]

Re : remplacer and par or dans un code

salut le forum, pascal21
essaie de faire deux conditions imbriquées

 

[ya_v_ka]

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

 

[Raja]

Re : remplacer and par or dans un code

Bonsoir,

Si tu essaye ç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

 

[JCGL]

Re : remplacer and par or dans un code

Bonjour à tous
Salut Justine

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

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]

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

 

[pascal21]

Re : remplacer and par or dans un code

bonsoirà tous
le "or" était bien placé mais j'avais oublié les parenthèses pour imbriquer deux colonnes ensemble
merci bonne soirée