[Formule ou VBA]Mois sur plusieurs cellules contiguës

[TheLio]

Bonjour tous, bonjour le forum,
Ça fait un bail
Me voici avec une question pour les lignes 7 19 31 43 de l'onglet Planning base du fichier joint.
Je cherche à avoir la visibilité du mois en cours sur ces lignes, mais ma formule (invisible si répétition) ne permet pas cette possibilité...
Auriez-vous un bout de piste ?
Je pense que par formule c'est impossible, mais peut-être un vébéiste averti saura me trouver un miracle centré sur plusieurs colonnes

Merci d'avance à tous
@++
Lio

 

[TheLio]

Hello job75,
Je suis en déplacement jusqu'à vendredi...
Je regarde tout ça. Mais d'ores et déjà, je t'envoie toute ma reconnaissance.
@++

 

[TheLio]

Bonjour job75, le forum,

Merci beaucoup pour ton code, il exécute parfaitement ce que j'imaginais.

Pour ceux que ça pourrait intéresser, j'ai modifié le code avec des "plages nommées" ceci permet de modifier le nombres de lignes. (ce sera mon cas suivant le nombre de classes et d'ateliers, qui est variable selon les années)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Range, c As Range
If Intersect(Target, [B3:C3]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
[LIGNE_MOIS_1,LIGNE_MOIS_2,LIGNE_MOIS_3,LIGNE_MOIS_4] = "=IF(TEXT(R[2]C[-1],""MMMM"")=TEXT(R[2]C,""MMMM""),"""","" ""&PROPER(TEXT(R[2]C,""MMMM"")))"
[LIGNE_MOIS_11,LIGNE_MOIS_22,LIGNE_MOIS_33,LIGNE_MOIS_44].Borders(xlInsideVertical).LineStyle = xlNone
For Each a In [LIGNE_MOIS_1,LIGNE_MOIS_2,LIGNE_MOIS_3,LIGNE_MOIS_4].Areas
    a = a.Value 'supprime les formules
    For Each c In a
        If c <> "" Then c.Borders(xlEdgeLeft).Weight = xlThin 'bordure gauche
Next c, a
End Sub

Merci encore à vous job75 et Modeste geedee
@++
Lio