Comparaison entre des valeurs

Résolu

blalaa Messages postés 171 Statut Membre -
blalaa Messages postés 171 Statut Membre - 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

Afficher la suite

A voir également:

Comparaison entre des valeurs
Comparaison million milliard - Accueil - Technologies
Comparaison prix amazon - Accueil - Commerce
Excel liste de valeurs - Guide
Comparaison pdf - Télécharger - PDF
Prix Amazon : comment suivre les évolutions de tarifs - Guide

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
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
1. blalaa Messages postés 171 Statut Membre
  
  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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
3. blalaa Messages postés 171 Statut Membre
  
  Bonjour
  
  effictivement ca marche tres bien
  merci
  
  0
Réponse 2 / 2
pilas31 Messages postés 1878 Statut Contributeur 648
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
1. blalaa Messages postés 171 Statut Membre
  
  bonjour
  
  merci pour votre reponse
  c bon le probleme est résolu par Mr f894009
  
  0

Comparaison entre des valeurs

2 réponses

Discussions similaires

Newsletters