Comparaison entre des valeurs

Résolu
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -  
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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


0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
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")
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour

effictivement ca marche tres bien
merci
0
Réponse 2 / 2
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour

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

Discussions similaires

Problème de restrictions
SuperAmbi -
Pat -

5 réponses
Première connexion
Merlin -
Merlin -

3 réponses
additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses
qui veut c'echanger sont savoire
raggasonic -
raggasonic -

2 réponses
Cette valeur ne correspond pas aux restrictions
Sulphide -
Coolmaster -

3 réponses