Bonjour,
J'essaye de réalisé un code qui devra :
- colorer une lige en rouge si la date afficher et antérieur à celle du jour
- colorer une lige en gris si la date afficher et antérieur à celle du jour et qu'une cellule affiche le mot "oui"
Le problème est que ce mot provient d'une liste à choix multiple et on dirait que le logiciel comprend qu'il y a une condition manquante (quand j'execute uniquement la seconde partie, rien ne se colore) mais qu'il ne comprend pas que ce oui est afficher dans certaines cellules.
Voici mon code :
Sub peremption2()
'jeté à la poubelle
Dim e As Integer
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
'date de péremption dépassée
Dim i As Integer
For i = 2 To 9999
If Cells(i, 3) < Cells(15, 8) Then
Range(Cells(i, 1), Cells(i, 6)).Interior.ColorIndex = 3
End If
Next i
End Sub
J'ai tester en enlevant la condition ET, tout fonctionne. En revanche, si je demande uniquement de colorer en gris si la cellule affiche oui, rien ne se passe.
Quelqu'un aurait la solution ? Merci