XL 2016 Conditionnelle multiple dans VBA

julien6337 · 2 Septembre 2020

Bonjour,
je cherche à faire une conditionnelle multiple dans VBA mais lorsque je rajoute le Or ça ne fonctionne plus. Auriez vous une idée, le OR s'applique en fait uniquement aux 2 dernières conditions mais je n'arrive pas à coder pour appliquer correctement les conditions :

Je voudrais :
If (cellule ne contient chaîne de caractère"LTV") et (le fond de la cellule est soit Blanc (RVB=2) soit non rempli) alors....

J'ai codé :
If Not UCase(Cells(i, 6).Value) Like "*LTV*" And Cells(i, j).Value = "" And Cells(i, j).Interior.ColorIndex = 2 Or Cells(i, j).Interior.ColorIndex <> xlColorIndexNone Then Cells(i, j + 238) = "A completer"

Pour avis SVP

julien6337 · 2 Septembre 2020

Petite Correction Je voudrais :
Si (la cellule ne contient chaîne de caractère"LTV") et (la cellule est vide) et (le fond de la cellule est soit Blanc (RVB=2) soit non rempli) alors....

sylvanu · 2 Septembre 2020

Bonjour Julien,
Vous auriez un petit fichier exemple ?
Déjà, est ce que cela fonctionne ? :

VB:

If Not UCase(Cells(i, 6).Value) Like "*LTV*" And Cells(i, j).Value = ""  Then Cells(i, j + 238) = "A completer"

( je pensais à un problème de détection couleur )
Ensuite ce NOT qui semblerait vouloir dire si la cellule NE contient PAS LTV.

julien6337 · 2 Septembre 2020

Bonjour

merci pour le retour, effectivement je voulais que la cellule en question ne contienne pas LTV, c'est donc OK. J'ai réussi à faire cec que je voulais, en fait c'était tout simple, j'avais oublié que je pouvais mettre entre parenthèse les 2 conditions liées au "Or", mais en fait ça fonctionne ainsi
If Not UCase(Cells(i, 6).Value) Like "*LTV*" And (Cells(i, j).Interior.ColorIndex <> xlColorIndexNone And Cells(i, j).Interior.ColorIndex <> 2) And Cells(i, j).Value = "" Then Cells(i, j + 238) = "A compléter"
merci

XL 2016 Conditionnelle multiple dans VBA

julien6337

XLDnaute Nouveau

julien6337

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

julien6337

XLDnaute Nouveau

Discussions similaires