[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

 

[job75]

Bonjour TheLio, heureux de te revoir,

"Je cherche à avoir la visibilité du mois en cours" n'est pas bien clair mais vois ce que donne une MFC sur les lignes 7 19 31 43.

A+

 

[TheLio]

Hello job75,
Je te remercie pour la piste, je vais continuer de creuser dans ce sens (et d'en d'autres :-D)
A tout bientôt

 

[TheLio]

Re tous,
Après quelques recherches sur le sujet, ceci paraît clairement impossible...
Apparemment, seul le VBA aura raison de ce défi.
Je continue de creuser, mais j'ai perdu un peu la foi
@++
@tous

 

[job75]

Quel défi ?

 

[TheLio]

Quel défi ?

Ben celui d'avoir le contenu d'une cellule qui déborde sur une cellule qui a pour valeur ""
(quand je dis défi, c'est un défi personnel, j'aime bien avoir le dessus sur la machine (humour)

 

[job75]

La MFC déborde !!! Que veux-tu faire de plus ???

 

[TheLio]

Oui, job75, je te remercie,

c'est déjà une sacré avancée ta MFC et j'admire...
Ce que je cherchais de plus, c'est que le texte puisse déborder sur les cellules se trouvant à droite...
car je suis contraint d'avoir des cellules de 34 pixels maximum

 

[job75]

Degré zéro : si la cellule se trouvant à droite contient une formule, pas de débordement.

 

[TheLio]

Degré zéro : si la cellule se trouvant à droite contient une formule, pas de débordement.

Je te remercie, pour ton aide, je vais adapter la mise en page de mon fichier en utilisant ta mfc, ça fera très bien l'affaire.
Merci encore
@++

 

[Modeste geedee]

Bonsour®

Re tous,
Après quelques recherches sur le sujet, ceci paraît clairement impossible...
Apparemment, seul le VBA aura raison de ce défi.
Je continue de creuser, mais j'ai perdu un peu la foi
@++
@tous

comme ceci sans VBA :

 

[TheLio]

Bonjour Modeste geedee,
Merci beaucoup pour ta contribution
"EST.PAIR", qui l'eût cru...
Merci beaucoup

 

[job75]

Bonsoir TheLio, Modeste geedee,

Ce que je cherchais de plus, c'est que le texte puisse déborder sur les cellules se trouvant à droite...
car je suis contraint d'avoir des cellules de 34 pixels maximum

Je comprends mieux ton problème, ce n'est pas une affaire de MFC, il faut du VBA, le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, [B3:J3]) Is Nothing Then Exit Sub
[D7:CO7,D19:CO19,D31:CO31,D43:CO43] = "=IF(TEXT(R[2]C[-1],""MMMM"")=TEXT(R[2]C,""MMMM""),"""",TEXT(R[2]C,""MMMM""))"
For Each c In [C7:CO7,C19:CO19,C31:CO31,C43:CO43]
    If c <> "" Then c(1, 2).Resize(, 6) = "" 'les formules des 6 jours suivants sont effacées
Next
End Sub

Fichier joint.

Bonne nuit.

 

[job75]

Re,

Ceci est mieux car les textes des mois en colonne C nécessitent un soin particulier :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, i As Byte
If Intersect(Target, [B3:C3]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
[D7:CO7,D19:CO19,D31:CO31,D43:CO43] = "=IF(TEXT(R[2]C[-1],""MMMM"")=TEXT(R[2]C,""MMMM""),"""","" ""&PROPER(TEXT(R[2]C,""MMMM"")))"
[C7:CP7,C19:CP19,C31:CP31,C43:CP43].Borders(xlInsideVertical).LineStyle = xlNone
For Each c In [C7:CO7,C19:CO19,C31:CO31,C43:CO43]
    If c.Column = 3 Then
        For i = 2 To 7
            If c(1, i) = "" Then c(1, i) = ""
        Next
    ElseIf c <> "" Then
        c.Borders(xlEdgeLeft).Weight = xlThin 'bordure gauche
        c(1, 2).Resize(, 6) = "" 'les formules des 6 jours suivants sont effacées
    End If
Next
End Sub

Fichier (2).

Edit 1 : j'ai aussi complété les MFC des lignes 7 19 31 43 :

=(ANNEE(SI(ESTNUM(C9);C9;B9))=ANNEE(AUJOURDHUI()))*(MOIS(SI(ESTNUM(C9);C9;B9))=MOIS(AUJOURDHUI()))
=MOD(MOIS(SI(ESTNUM(C9);C9;B9));2)

Edit 2 : les noms des mois commencent par une majuscule.

Re-bonne nuit.

 

[job75]

Bonjour TheLio, le forum,

Ceci est bien mieux car nettement plus simple et surtout plus rapide :

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
[D7:CO7,D19:CO19,D31:CO31,D43:CO43] = "=IF(TEXT(R[2]C[-1],""MMMM"")=TEXT(R[2]C,""MMMM""),"""","" ""&PROPER(TEXT(R[2]C,""MMMM"")))"
[C7:CP7,C19:CP19,C31:CP31,C43:CP43].Borders(xlInsideVertical).LineStyle = xlNone
For Each a In [D7:CO7,D19:CO19,D31:CO31,D43:CO43].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

Les formules des mois sont supprimées en colonne D et suivantes.

Fichier (3).

Bonne journée.