Comparaison entre des valeurs

Résolu
Bonjour,

je voudrais créer un code qui colore la case v7 en rouge ou en vert, mais ca fonctionne pas

If Sheets("Feuil2").Range("E4") < Range("V7") < Sheets("Feuil2").Range("F4") Then
Range("V7").Interior.Color = [/contents/1214-le-codage-rgb-rvb RGB](0, 255, 0) 'vert
Else
Range("V7").Interior.Color = RGB(200, 0, 0) 'Rouge
End If

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,

    ton code fonctionne très bien!

    If Sheets("Feuil2").Range("E4") < Range("V7") < Sheets("Feuil2").Range("F4") Then
    Range("V7").Interior.Color = RGB(0, 255, 0)  'vert
    Else
    Range("V7").Interior.Color = RGB(255, 0, 0) 'Rouge
    End If
    


    1. bonjour

      je ne crois pas quil fonctionne !!
      je ne sasi aps ou est l'erreur mais ca fonctionne pas !

      exemple

      Sheets("Feuil2").Range("E4") = -1
      Sheets("Feuil2").Range("F4")=1
      Range("V7")=2

      LA case v7 se colore en vert alors que elle doit etre colorer en rouge puisque v7> Sheets("Feuil2").Range("F4")
    2. Bonjour,

        If (Sheets("Feuil2").Range("E4") < Range("V7")) And (Range("V7") < Sheets("Feuil2").Range("F4")) Then
              Range("V7").Interior.Color = RGB(0, 255, 0)  'vert
          Else
              Range("V7").Interior.Color = RGB(255, 0, 0) 'Rouge
          End If
    3. Bonjour

      effictivement ca marche tres bien
      merci
  2. Contributeur
    Bonjour,

    Le double test < :
    If Sheets("Feuil2").Range("E4") < Range("V7") < Sheets("Feuil2").Range("F4") Then


    est surement une erreur il faut sans doute écrire :

    If Sheets("Feuil2").Range("E4")  < Sheets("Feuil2").Range("F4") Then
    1. bonjour

      merci pour votre reponse
      c bon le probleme est résolu par Mr f894009