Comparaison entre des valeurs [Résolu/Fermé]

Signaler
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
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

Messages postés
7095
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 novembre 2020
579
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


Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

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")
Messages postés
15432
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 novembre 2020
1 407
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
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

Bonjour

effictivement ca marche tres bien
merci
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
588
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
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

bonjour

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