Contenu d'une Cellule en fonction de la couleur d'une autre cellule

Bonjour,

Je ne sais pas comment m'y prendre pour écrire la macro suivante :

Pour la plage de cellule (B4;F16), suivant la couleur de chaque cellule, j'aimerai écrire un mot dans une autre plage de cellule de taille identique évidement (H4;L17) :

Si la couleur de la cellule est ROUGE (255;255;0) Alors Contenu Cellule = OUI
Si la couleur de la cellule est JAUNE (255;0;0) Alors Contenu Cellule = OK
Si la couleur de la cellule est BLANC (255;255;255) Alors Contenu Cellule = NON

Ci-joint mon fichier.

Pouvez vous m'aider ?

Merci Beaucoup

Bonjour,

Deux macros fonctionnelles ci-contre

Sub COLORIAGE()
For i = 4 To 16
    For j = 2 To 6
        Select Case Cells(i, j).Interior.Color
            Case Is = RGB(255, 255, 0)
            Cells(i, j + 6).Value = "OUI"
            Case Is = RGB(255, 0, 0)
            Cells(i, j + 6).Value = "OK"
            Case Is = RGB(255, 255, 255)
            Cells(i, j + 6).Value = "NON"
        End Select
    Next j
Next i
End Sub

Sub COLORIAGE_2()
For i = 4 To 16
    For j = 2 To 6
        If Cells(i, j).Interior.Color = RGB(255, 255, 0) Then
        Cells(i, j + 6).Value = "OUI"
        ElseIf Cells(i, j).Interior.Color = RGB(255, 0, 0) Then
        Cells(i, j + 6).Value = "OK"
        ElseIf Cells(i, j).Interior.Color = RGB(255, 255, 255) Then
        Cells(i, j + 6).Value = "NON"
        End If
    Next j
Next i
End Sub

Bonne soirée !

TOP :)

Merci beaucoup

Hello

J'aimerai faire évoluer la macro suivante pour épaissir le bordure des cellules en rouge mais mon code ne fonctionne pas

Sub XXX()

For i = 1 To 13
    For j = 1 To 13
        Select Case Cells(i, j).Interior.Color

            Case Is = RGB(242, 46, 0)
            Cells(i + 13, j).Value = "cellule.Borders.Weight.xlMedium"

            Case Is = RGB(252, 228, 214)
            Cells(i + 13, j).Value = "cellule.Borders.Weight.xlThick"

            Case Is = RGB(242, 242, 242)
            Cells(i + 13, j).Value = "cellule.Borders.Weight.xlThick"

             Case Is = RGB(189, 215, 238)
            Cells(i + 13, j).Value = "cellule.Borders.Weight.xlThick"

        End Select
    Next j
Next i

End Sub

Pouvez vous m'aider ?

merci

Bonjour,

Remplace

Cells(i + 13, j).Value = "cellule.Borders.Weight.xlMedium"

par

Cells(i + 13, j).Borders.Weight = xlMedium

Tu ne peux pas coder en l'état comme tu le fais.

Bon dimanche

oui en effet apres reflexion, j'avais revu mon code.

Merci pour ta reponse