Comparaison entre des valeurs

Résolu/Fermé

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - Modifié le 6 sept. 2018 à 15:01
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 7 sept. 2018 à 13:42

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

A voir également:

Comparaison entre des valeurs
Comparaison million milliard - Accueil - Technologies
Logiciel comparaison photo gratuit - Télécharger - Photo & Graphisme
Excel liste de valeurs - Guide
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
Si valeur comprise entre x et y alors excel ✓ - Forum Excel

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 6 sept. 2018 à 15:15

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

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
Modifié le 6 sept. 2018 à 15:37

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")

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 sept. 2018 à 17:32

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

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
7 sept. 2018 à 13:41

Bonjour

effictivement ca marche tres bien
merci

Réponse 2 / 2

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
6 sept. 2018 à 17:32

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

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
7 sept. 2018 à 13:42

bonjour

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

Discussions similaires

Problème de restrictions

Première connexion

qui veut c'echanger sont savoire

Fonction SI comprise entre plusieurs valeurs

Dans une formule : condition "compris entre" 2 valeurs