XL 2013 (resolut par DoubleZero ) colorier plage de cellules selon la valeur d'une cellule

[bahnini mohamed]

salut les amis
j'aimerai colorier plage de cellules en fonction de la valeur d'une cellule
si la valeur de la cellule B4 et C les plage de cellules de D3 a D59 et gris et si égale a B les plages de D3 a D59 et de E3 a E59 sont gris si non les cellules les plages seront vide et ainsi de suite
merci de votre coopération
voici un exemple de fichier

 

[Modeste geedee]

Re : colorier plage de cellules selon la valeur d'une cellule

Bonsour®
MEFC ...

 

[DoubleZero]

Re : colorier plage de cellules selon la valeur d'une cellule

Bonjour, bahnini mohamed, Modeste geedee , le Forum,

Espérant avoir compris le besoin (code dans le module de l'onglet "Feuil1") :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$B$4" Then
        [d3:e59].Interior.ColorIndex = xlNone
        Select Case c.Value
        Case "A", "D", "E"
            [d3:e59].Interior.ColorIndex = xlNone: [d3:e59] = ""
        Case "B", "C"
            [d3:e59].Interior.ColorIndex = 15
        End Select
    End If
End Sub

A bientôt

 

[bahnini mohamed]

Re : colorier plage de cellules selon la valeur d'une cellule

merci DoubleZero ça marche très très bien