Colorer les cellules en fonction de leur valeur

Bonjour,

Je cherche à colorer des cellules d’une plage donnée avec la couleur Orange (255,192,0) ou la couleur jaune (255,255,0), qui sont dans les couleurs de remplissage standard, en fonction de leur valeur grâce à une macro vba.
Jaune si valeur = 11 ou 22
Orange si valeur = 13 ou14 ou 15 ou 16 ou 18 ou 19 ou 26 ou 33.
Le range à tester est (« A39:AX71 »)
Avec la mfc je sais faire, mais ça ne fonctionne pas lorsque je veut utiliser ensuite la couleur pour trier avec une autre macro.
Il faut que l’arrière plan de la cellule soit coloré, ce qui n’est pas le cas avec la mfc

Merci de votre aide

Colorer cellules en fonction valeur 1.xlsm (43,6 Ko)

Bonjour
Ci-joint ma proposition
Onglet « Feuil1 » cellule « I38 » cliques sur le bouton « Couleur »
Le traitement mets toutes les cellule de « A39 à AX71 » avec la couleur gris claire puis mets pour chaque cellule qui correspond à la condition en rapport ci-aprés sa couleur :

Jaune si valeur = 11 ou 22
Orange si valeur = 13 ou14 ou 15 ou 16 ou 18 ou 19 ou 26 ou 33.

Testes et dis moi

Colorer cellules en fonction valeur 1.xlsm (49,4 Ko)

1 « J'aime »

avec les couleurs demandés (toute petite différence)

Sub Traitement2()
     With Sheets("feuil1").Range("A39:AX71")
          .Interior.Color = xlNone
          For Each c In .Cells
               Select Case c.Value
                    Case 11, 22: c.Interior.Color = RGB(255, 255, 0)
                    Case 13, 14, 15, 16, 18, 19, 26, 33: c.Interior.Color = RGB(255, 192, 0)
               End Select
          Next
     End With
End Sub
1 « J'aime »

Bonjour,

Merci beaucoup FFO et Cow18, les 2 solutions fonctionnent impeccablement !
Du coup j’aurai en plus appris 2 manières différentes et efficaces de faire une boucle qui pourront me servir pour d’autres projets :+1: :+1:

Encore merci

1 « J'aime »

Merci pour ce retour positif
Ravi que cela te convienne
Au plaisir de t’aider une prochaine fois

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.