Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Raja

XLDnaute Accro
Re : remplacer and par or dans un code

Bonsoir,

Si tu essaye ça :

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 Or Cells(i, 8) > 0) Then
 

JCGL

XLDnaute Barbatruc
Re : remplacer and par or dans un code

Bonjour à tous
Salut Justine


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:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…