XL 2016 Mise en forme conditionne selon couleur plage de cellules

anis4010

XLDnaute Nouveau
Bonjour ,

J'aimerais que I33 soit Vert Rouge ou Orange selon ma plage de cellule (A91:I140)
Dans (A91:I140) si il y'a une case verte , rouge ou orange j'aimerai que mon I33 soit coloriée en fonction
Avec comme priorité
Rouge en 1 er
Orange en 2 eme
Vert en 3 eme

Je n'arrive j'ai essayer les fonction si et ou mais je reste totalement bloqué

Je vous remercie par avance de votre aide
 

anis4010

XLDnaute Nouveau
Bonjour

J'ai refait une macro ,
Avec pour but suivant :
- Detecter la couleur case est de G92 a G140
Si les cellule contiennent les couleur Rouge , Orange et Vert
La cellule I33 est colorié en priorité par la couleur rouge, si il n'ya pas de rouge par du orange , si il n'ya pas de orange ni du rouge par du vert
Dans G92 a G140 il est possible qu'il y'ai plusieurs couleurs mais je veux que meme si il voit une cellule rouge il , la prenne en priorité pour remplir I33 en rouge , si ya du orange et du vert , prendre le orange en second , et si ya que du vert prendre le vert .

C'est super complexe , j'ai fait un code de principe mais je n'arrive pas l'adapter , ce code ne gere pas la detection des couleurs , j'utilise les valeurs pour combler cela

VB:
Sub Macro1()
'
' Macro1 Macro
'
If Cells(13, 1) = "A" Then
Cells(13, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(13, 1) = "B" Then
Cells(13, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(13, 1) = "C" Then
Cells(13, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(13, 2).Interior.Color = RGB(0, 0, 0)
End If
'

If Cells(14, 1) = "A" Then
Cells(14, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(14, 1) = "B" Then
Cells(14, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(14, 1) = "C" Then
Cells(14, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(14, 2).Interior.Color = RGB(0, 0, 0)
End If

If Cells(15, 1) = "A" Then
Cells(15, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(15, 1) = "B" Then
Cells(15, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(15, 1) = "C" Then
Cells(15, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(15, 2).Interior.Color = RGB(0, 0, 0)
End If


If Cells(13, 1) = "A" Or Cells(14, 1) = "A" Or Cells(15, 1) = "A" Then
Cells(14, 3).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(13, 1) = "B" Or Cells(14, 1) = "B" Or Cells(15, 1) = "B" Then
Cells(14, 3).Interior.Color = RGB(0, 255, 0)
Else
Cells(14, 3).Interior.Color = RGB(0, 0, 255)
End If



End Sub
merci de votre aide
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Comme vous ne joignez pas de classeur, juste une question :
Les couleurs de G92 a G140 ne sont pas déterminées, j'espère, par des mises en forme conditionnelles ?
Si c'est ça il ne faut plus raisonner en terme de couleurs parce que les MeFC ne modifient pas les propriétés Interior.Color: mettez en aussi pour I33 avec des formules MAX ou MIN se basant sur les mêmes cellules que celles ci.
 
Dernière édition:

anis4010

XLDnaute Nouveau
Bonjour ,

Oui il y'a de la mise en forme conditionnelle , le tableau excel represente un état des lieux .
J'ai mis les valeurs telle que mauvais en rouge , vétuste en orange et correct en vert .
Et bien d'autres
Et si une valeur s'affiche en rouge , je voulais qu'une pastille apparaisse sur ma page de garde en fonction de la couleur des mise en forme conditionnelle si il y'a une seul case rouge qu'une pastille rouge apparaisse en priorité meme si le reste est vert ou orange , puis orange en second , puis vert en derniere priorité .
 

Dranreb

XLDnaute Barbatruc
Bonjour.
À votre place je prévoirais une colonne portant une valeur de note numérique et je baserais tout dessus: une formule =INDEX({"Correct";"Vétuste";"Mauvais"};LaNote) et les mise en formes conditionnelles, y compris pour la =MAX(LesNotes).
 

Discussions similaires


Haut Bas