Microsoft 365 Fusionner colonnes avec formule.

[h.harn]

Bonjour,

Je voudrais sur la ligne 3 afficher les numéros de semaines. Par contre, les cellules du lundi au vendredi sont fusionnées pour que le numéro de semaine s'affiche au milieu et non pas par cellules. Est-ce que c'est possible de le faire ?

Cordialement

 

[Dranreb]

Bonjour.
Avec cette macro dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Or Target.Address = "$C$2" Then
      With Me.[C3:AG3]
         .FormulaR1C1 = "=IF(ISOWEEKNUM(OFFSET(R[2]C,0,-1))=ISOWEEKNUM(R[2]C),NA(),ISOWEEKNUM(R[2]C))"
         .Value = .Value
         .SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
         .HorizontalAlignment = xlHAlignCenterAcrossSelection
         End With
      End If
   End Sub

En C5, mettez plutôt :

=DATEVAL("1 "&C$2&" "&$A$1)

Remarque: Peut être vaudrait-il mieux que ce soit fait par semaines, et que ça commence toujours un lundi …
Dans ce cas, en C5 :

=LET(Mai;DATE($A$1;5;31);Lun;Mai-JOURSEM(Mai;2);
Lun+7*($C$3-NO.SEMAINE.ISO(Mai))+1)

Et plus besoin de la macro !

 

[job75]

Bonjour h.harn, Bernard,

Entrez en C3 la formule :

=SIERREUR(NO.SEMAINE.ISO(DATE($A1;MOIS("1/"&$C2);JOUR(C5)));"")

Puis tirez-la vers la droite, vous obtenez le fichier joint.

En ligne 3 il vous reste à fusionner les 1 puis les 2 puis les 3 puis les 4 puis les 5.

Edit : en AE5 AF5 AG5 j'ai complété la formule.

A+

 

[job75]

Pour automatiser les diverses opérations utilisez le fichier .xlsm joint avec cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,C2]) Is Nothing Then Exit Sub
Dim jour%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
With [C3:AG3]
    .Columns.Hidden = False 'affiche tout
    .UnMerge 'défusionne
    .Formula = "=IFERROR(ISOWEEKNUM(DATE($A1,MONTH(""1/""&$C2),DAY(C5))),"""")"
    For jour = Application.Min(.Cells) To Application.Max(.Cells)
        .Cells(1, Application.Match(jour, .Cells, 0)).Resize(, Application.CountIf(.Cells, jour)).Merge 'fusionne
    Next
    .Borders.Weight = xlThin 'bordures
    For jour = 29 To 31: .Columns(jour).Hidden = .Cells(2, jour) = "": Next 'masque la colonne
End With
End Sub

Elle se déclenche quand on modifie l'année en A1 ou le mois en C2.

Edit: la macro masque si nécessaire les colonnes AE AF AG (29 à 31).