Colorier cellule sous vba

[Homer75]

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

 

[Minick]

Re : Colorier cellule sous vba

Salut,

Essaies comme ca:

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]

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!!

 

[Homer75]

Re : Colorier cellule sous vba

c'est impec !!!!!!

Merci beaucoup !!!!!!