Colorer/Ecrire cellule en fonction couleur de sa voisine

Bonjour, tout est dans le titre.

J'aimerais colorer et écrire un sigle dans B1 en fonction de la couleur de A1, et je n'y arrive pas.

Un petit exemple m'aiderait à démarrer.

(plutot en VBA qu'en MFC )

Merci !!

Voici un extrait de code, mais je souhaite modifier "Macellule + 1" .....

    Private Sub Worksheet_Activate()
    Dim MaCellule As Range
    For Each MaCellule In Range("A1:A10")
        If MaCellule.Interior.ColorIndex = 43 Then
            MaCellule.Interior.ColorIndex = 42
            MaCellule = "OK"
        End If
    Next MaCellule
    End Sub

Bonjour,

Si j'ai bien compris

A adapter avec le 'Worksheet_Activate()'

Option Explicit
Public Sub test()
Dim Sh As Worksheet
Dim Plage As Range, Cel As Range
    Set Sh = Worksheets("Feuil1")
    Application.ScreenUpdating = False
    With Sh
        Set Plage = .Range("A1:A10")
        For Each Cel In Plage
            If Cel.Interior.ColorIndex = 43 Then
                With Cel.Offset(0, 1)
                    .Interior.ColorIndex = 42
                    .Value = "OK"
                End With
            End If
        Next Cel
    End With
    Set Sh = Nothing: Set Plage = Nothing
End Sub

Merci ,

j'ai trouvé ça aussi (tout seul !!).

Private Sub Worksheet_Activate()
    Dim MaCellule As Range
    For Each MaCellule In Range("E1:E354")
        Select Case MaCellule.Interior.ColorIndex
            Case 43
                MaCellule.Offset(0, 1) = "A"
                MaCellule.Offset(0, 1).Interior.ColorIndex = 43
            Case 33
                MaCellule.Offset(0, 1) = "B"
                MaCellule.Offset(0, 1).Interior.ColorIndex = 33
            Case 6
                MaCellule.Offset(0, 1) = "C"
                MaCellule.Offset(0, 1).Interior.ColorIndex = 6
            Case 12
                MaCellule.Offset(0, 1) = "D"
                MaCellule.Offset(0, 1).Interior.ColorIndex = 12
        End Select
    Next MaCellule
End Sub

Re,

Et quel le rapport à la question posée

Cdlt

Jean-Eric a écrit :

Re,

Et quel le rapport à la question posée

Cdlt

Question:

J'aimerais colorer et écrire un sigle dans B1 en fonction de la couleur de A1, et je n'y arrive pas.

Dans le code que j'ai posté, si E1 est verte (43), je colore F1 en vert, et j'y écris "A"

Exactement ce que je cherchais.

Et exactement ce que tu m'as proposé aussi

Merci encore