Bonjour a tous,
J'ai un soucis de "Selec Case", Je voudrais l'appliquer sur 2 colonnes D'un ListView pour déterminer si une les deux cellules sont vides; auquel cas je met une couleur orange sur toute la ligne, sinon une couleur verte. Et bien sûr je n'y arrive pas !
quelqu'un peut-il m'aider ?
Merci par avance. Voici mon code
'On définit le critere sur lequel la couleur sera appliquée (ici les montant)
MonCritere = Format(Feuil1.Cells(i, 12), "X")
MonCritere2 = Format(Feuil1.Cells(i, 13), "X")
' On teste les cas et on applique les couleurs de police de caractère
Select Case MonCritere
Case Is = "X" 'Si la cellule contient un "X" on met du vert
Couleur = &HFF00&
Select Case MonCritere2
Case Is = "X" 'Si la cellule contient un "X" on met du vert
Couleur = &HFF00&
Case Is <> "X" 'Si la cellule ne contient contient pas un "X" on met du orange
Couleur = &H80FF&
Case Is = Cells.Offset(0, 1) <> "X" 'Si la cellule adjacente ne contient contient pas un "X" on met du orange
Couleur = &H80FF&
End Select
End Select