XL 2019 Inclure une condition choix multiple en VBA

[lovelife.coeur]

Bonjour,

Je souhaite réalisé une macro qui me permettrait de colorer une ligne en gris si la date et antérieur au jour actuelle ET si une cellule affiche "Oui".

Problème cette cellule est une liste à choix multiple, mon code détecte qu'il y a une condition supplémentaire pour colorer la ligne mais il n'a pas l'air de comprendre que cette condition est rempli.

Quelqu'un pourrait m'aider?
Voici mon code

Sub peremption2()
Dim i As Integer
'jeté à la poubelle
For e = 2 To 9999
If Cells(e, 3) < Cells(15, 8) And Cells(e, 5) = "Oui" Then
Range(Cells(e, 1), Cells(e, 6)).Interior.ColorIndex = 15
End If
Next e
End Sub

Si j'enlève la condition AND mon code fonctionne il y a donc un problème dans ce morceau de code mais je ne trouve pas lequel..

 

[sylvanu]

Bonsoir Lovelife,
Pourquoi passer par du VBA alors qu'XL le fait très bien ? C'est plus simple et ça marche à la perfection. Sauf si un détail m'a échappé.

 

[job75]

Bonsoir lovelife.coeur, bienvenue sur XLD, salut sylvanu,

Il faut quand même régler le problème du VBA.

En général en VBA pour que la condition Cells(e, 5) = "Oui" soit VRAI il faut que la cellule soit exactement égale à "Oui" (casse respectée).

Pour éviter tout souci on écrira donc UCase(Cells(e, 5)) = "OUI"

Et s'il risque d'y avoir des espaces superflus on écrira Trim(UCase(Cells(e, 5))) = "OUI"

A+