Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Colorier cellule sous vba

Homer75

XLDnaute Junior
Bonjour à tous !!!!

voila j'ai un petit probleme a vous sousmettre.

Ne pouvant avoir que 3 mises en forme conditionnelle sous excel 2003. je souhaiterais colorier des cellules selon la couleur qui est inscrite à l'interieur.

Bleue / Verte / Orange / Rouge.

Voici un petit fichier pour y mettre vos idées.

Merci d avance
 

Pièces jointes

  • Classeur1.xls
    13.5 KB · Affichages: 389
  • Classeur1.xls
    13.5 KB · Affichages: 408
  • Classeur1.xls
    13.5 KB · Affichages: 382

Minick

XLDnaute Impliqué
Re : Colorier cellule sous vba

Salut,

Essaies comme ca:
Code:
Option Explicit

Sub Colorier()
    Dim Cellule As Range
    Dim Couleur As Integer
    
    Application.ScreenUpdating = False
    For Each Cellule In Feuil1.Range("C5:C" & Feuil1.Range("C65536").End(xlUp).Row)
        Select Case LCase(Cellule.Value)
            Case "bleue"
                Couleur = 5
            Case "orange"
                Couleur = 45
            Case "verte"
                Couleur = 4
            Case "rouge"
                Couleur = 3
            Case Else
                Couleur = xlNone
        End Select
        Cellule.Interior.ColorIndex = Couleur
    Next Cellule
    Application.ScreenUpdating = True
End Sub

++
Minick
 

alex67800

XLDnaute Impliqué
Re : Colorier cellule sous vba

Bonjour Homer75, Minick

UN maximum de 3 conditions sont possible pour les MFC, untiliser une macro pour aller au-delà.

Regarde ton fichier modifier, attention respecter les majuscules!!
 

Pièces jointes

  • homer75.xls
    22.5 KB · Affichages: 955

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…