Couleur

bonjour à tous

j'aurai besoin d'aide pour créer une macro

j'ai 2 tableaux un des valeurs d'un teste et l'autre d'un plan de controle

et en focntion du plan de controle il faudrait mettre les valeurs en rouge orange ou vert

je peux avoir plusieur ligne de test de 1 a 25 lignes en focntion des produits

voir exemple

je vous en remercie a l'avance

Bonjour

J'essaie de comprendre la règle d'attribution des couleurs.

Peut-être serait-il utile que nous expliques, par exemple sur les 2 premières lignes?

Cordialement

bonjour

les regles sont:

en rouge ce qui n'est pas compris entre le mini max et le maxi max

en orange ce qui est compris entre le mini maxi et le mini

en orange ce qui est compris entre le maxi et le maxi max

en vert ce qui est compris entre le mini et le maxi

exemple

pour la ligne 50x50

le mini est a 50 cela signifie qui se situe entre le mini max et le mini donc orange

la moyenne en vert parce que compris entre le mini et le maxi

le maxi en orange parce que il est compris entre le maxi et le maximaxi

pour la ligne 10x10

le mini en vert parceque la veur compris entre le mini et le maxi

la moyenne en vert parce que la valeur compris en le le mini et le maxi

le maxi en rouge parce que la valeur superieur au maximaxi

Bonjour

j'ai commencé à travaillr sur mes couleurs j'ai fais une macro couleur qui fonctionne.

mais voila j'aurai besoin de vous pour faire une bloucle

actuelement j'ai fait la cellule B20 C20et D20

je voudrait continuer jusqu'a B21 B22 B23 ....jusqu'a B40 pareil pour le C20 et D20

mais je n'arrive pas a comprendre les boucles

pouvez vous m'aider

cordialment

Bonjour

Essayes cette macro : Vérifies les résultats et dis ce qui cloche

Option Explicit

Sub Couleur()
Dim J As Long
Dim I As Integer, Couleur As Integer

  For J = 20 To Range("A" & Rows.Count).End(xlUp).Row
    For I = 0 To 2
      With Cells(J, 2 + I)
        If .Value >= Range("I" & J) And .Value <= Range("K" & J) Then
          Couleur = 4       ' Vert
        ElseIf .Value >= Range("H" & J) And .Value <= Range("L" & J) Then
          Couleur = 45      ' Orange
        Else
          Couleur = 3       ' Rouge
        End If
        .Font.ColorIndex = Couleur
      End With
    Next I
  Next J
End Sub

Bonjour Banzai64

Mercie tout fonctionne comme je voulais