if avec multiple condition and et or

  • Initiateur de la discussion Initiateur de la discussion kevenpom
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kevenpom

XLDnaute Junior
Bonjours forum
Bonjours tout le monde encore merci de m'aider dans mon apprentisage d'excel
J'ai une condition en 2 lignes
Code:
If VERIFJOB = 1 And ws2.Cells(LIG3, 4) <> 0 Then ws2.Cells(LIG3, 9) = 1
If VERIFJOB = 0 And ws2.Cells(LIG3, 5) <> 0 Then ws2.Cells(LIG3, 9) = 1

J'aimerai la mettre en une seule ligne du style:
Code:
 If VERIFJOB = 1 And ws2.Cells(LIG3, 4) <> 0 Or VERIFJOB = 0 And ws2.Cells(LIG3, 5) <> 0 Then ws2.Cells(LIG3, 9) = 1
Je veut savoir si je doit séparer mes conditions .....
Parceque je me demande si mon or va etre utiliser correctement.....


merci d'avance
 
Re : if avec multiple condition and et or

Bonsoir


Parceque je me demande si mon or va etre utiliser correctement.....
Cela dépends de ton conseiller financier 😀


Mais à priori cela fonctionne non (je parle de ton code)

EDITION:A tester
If VERIFJOB <= 1 And ws2.Range(Cells(LIG3, 4),Cells(LIG3,5))<> 0 Then ws2.Cells(LIG3, 9) = 1
 
Dernière édition:
Re : if avec multiple condition and et or

Bonsoir à tous,

Si j'ai bien compris, voici une solution :

Code:
If [COLOR="Red"]([/COLOR]VERIFJOB = 1 And ws2.Cells(LIG3, 4) <> 0[COLOR="red"])[/COLOR] Or [COLOR="red"]([/COLOR]VERIFJOB = 0 And ws2.Cells(LIG3, 5) <> 0[COLOR="red"])[/COLOR] Then ws2.Cells(LIG3, 9) = 1
 
Re : if avec multiple condition and et or

Bonjours forum,
Merci a tous les deux sa fonctionne a merveille...
Une autre question
est-ce posible que ma fonction .find ne prenne pas en considération les doublon.....
Parceque il execute la condition demander mais seulement au premier de ma série de doublon..

Code:
For Each c In ws2.Range("B1:B" & LIG3).SpecialCells(xlCellTypeConstants, 23)
   If ws3.Range("A1:A" & LastLigneFu).Find(c, LookIn:=xlValues) Is Nothing Then
        ws2.Rows(c.Row).Interior.ColorIndex = 2        'pieces verte
   Else
    ws2.Cells(c.Row, 9) = 0

   End If
Next
ont dirait vu que dans ma feuille ws2 colonne b il y a des doublons répétitif il n'execute la condition que au premier trouver....

Merci encore pour tout🙂
 
Re : if avec multiple condition and et or

bonsoir

pour cela il faut se servir de FindNext
essai toujours ceci car je n'ai pas testé !?
en tous les cas c'est le principe !

Code:
Dim Rang As Range, Adres As String
For Each C In ws2.Range("B1:B" & LIG3).SpecialCells(xlCellTypeConstants, 23)
   Set Rang = ws3.Range("A1:A" & LastLigneFu).Find(C, LookIn:=xlValues)
   If Not Rang Is Nothing Then
      Adres = Rang.Address
      Do
        ws2.Rows(Rang.Row).Interior.ColorIndex = 2 'pieces verte
        Set Rang = ws3.Range("A1:A" & LastLigneFu).FindNext(Rang)
      Loop While Not Rang Is Nothing And Rang.Address <> Adres
   Else
       ws2.Cells(C.Row, 9) = 0
   End If
Next


Roland
 
Dernière édition:
Re : if avec multiple condition and et or

Boujours forum,
Bonjours tout le monde,

Merci Roland mais malheureusement je n'ai pas réussi a faire fonctionner ton code. Il ne me fait que le find du premier mais pas les autre.


enfin merci encore...



Bonne journé
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
946
Réponses
3
Affichages
216
Retour