Mois courant selon couleur de cellule

Bonjour à tous

je sollicite votre aide pour obtenir le mois courant dans la cellule E6 si C6 est en jaune. 'AVRIL'

si j'ouvre ce fichier en mois de MAI et que je colorie la cellule C7 je dois avoir le mois de MAI en C7. et ainsi de suite....

voici mon fichier exemple :

et merci pour votre soutien.

Bonjour,

solution via une macro

Sub selcel()
    For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        If Cells(i, 3).Interior.Color = vbYellow Then
            Range("E6") = Month(Cells(i, 1)): Exit Sub
        End If
    Next i
End Sub

merci, je vais tester pour confirmer...

c'est pas ce que je cherche, les autres lignes une fois coloriées les lignes E 7 ou 8 ou 9 ..... doivent afficher le mois ( en lettres pas en chiffres ). merci pour l’intérêt que tu apporte à mon poste.

re-bonjour,

Sub selcel()
    For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        If Cells(i, 3).Interior.Color <> xlNone Then
            cells(i,"E") = Format(Cells(i, 1), "mmmm")
        End If
    Next i
End Sub

je crois que tu ne m'as pas compris, le résultat doit apparaître en E6 pour la ligne 6, en E7 pour la ligne 7 et ainsi de suite .

re-bonjour,

c'est ce que je pensais avoir fait

Sub selcel()
    For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        If Cells(i, 3).Interior.Color <> xlNone Then
            cells(i,"E") = Format(Cells(i, 1), "mmmm")
        End If
    Next i
End Sub

(

ça donne pas le bon résultat,

le mois courant doit apparaître automatiquement dans la colonne E en fonction de la cellule C coloriée. la condition c'est la coloration de cette cellule en jaune.

tu parles initialement d'une cellule en jaune, tu parles ensuite de plusieurs cellules coloriées, je ne peux pas deviner ce que tu veux si tu n'es pas précis, la probabilité est donc grande que cela ne fonctionne pas comme tu le souhaites. J'espère que cette fois-ci c'est bon.

la macro met en colonne "E" le mois (en toutes lettres) pour les cellules de la colonne C dont le fond est jaune.

Sub selcel()
    For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        If Cells(i, 3).Interior.Color =vbyellow Then
            cells(i,"E") = Format(Cells(i, 1), "mmmm")
        End If
    Next i
End Sub

ps de rien pour tes remerciements

c'est parfait et c'est résolu, merci encore pour ta patience à +