Couleur forme en fonction cellule

bonjour,

j'ai un petit problème, j'ai deux feuille sur un même classeur une qui s'appelle "numéro" et une couleur_associé.

sur ma feuulle "numéro" j'aimerais qu'en fonction de ce qui est marqué sur la cellule G32 par exemple, affecter une couleur à ma forme qui ce nome "rectangle 20" sur la feuille couleur_associé

code couleur 3 niveau

  • si la cellule G32 de ma feuille numéro contient "vide"=couleur vert pour ma forme "rectangle 32" de la feuille couleur_associé
  • si la cellule G32 de ma feuille numéro contient "1,2,3,4,5"= couleur blanc pour la forme "rectangle 32" de la feuille couleur_associé
  • si la cellule G32 de ma feuille numéro contient autre chose que "vide" et "1,2,3,4,5"=couleur rouge pour la forme "rectangle 32" de la feuille couleur_associé.

bonne journée et merci d'avance.

Bonjour,

Bonjour,

Une première proposition à adapter.

Cdlt.

Bonjour,

tu utilise l'événement change de ta feuille "numéro"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G32")) Is Nothing Then 'Si la cellule "G32" change
    With ThisWorkbook.Worksheets("couleur_associé").Shapes("rectangle 32").Fill.ForeColor 'A adapter en fonction de l'objet rectangle utilisé
        Select Case LCase(Range("G32"))
            Case "vide"
                .RGB = vbGreen
            Case 1, 2, 3, 4, 5
                .RGB = vbWhite
            Case Else
               .RGB = vbRed
        End Select
     End With
    End If

End Sub
Rechercher des sujets similaires à "couleur forme fonction"