Microsoft 365 Fusion conditionnel en colonne

[elsaallavena]

Bonjour,

J'ai fait un de calendrier permettant de donner des disponibilités.
Je souhaiterais que les numéros de semaine (qui sont automatiquement générés en fonction de la date) se fusionnent si ils sont identiques mais j'aimerai surtout que le tableau soit évolutif si je change la date.
Je ne sais pas si je suis claire.
Je vous mets en pièce jointe mon tableau.
J'aimerai que ce soit la colonne C qui fusionne.

Merci d'avance pour votre réponse.

 

[elsaallavena]

Avez-vous besoin de plus de précisions pour pouvoir m'aider ?

 

[fanfan38]

Bonjour
Ma solution par macro qui se lance quand on sélectionne la feuille… (changement de feuille)
Cliquer avec le bouton droit de la souris sur le nom de la feuille
Choisir visualiser le code
Mettre sur chaque feuille à traiter la macro ci dessous

Private Sub Worksheet_Activate()
  Dim i As Long, derlig As Long, deb As Long
  derlig = Range("D" & Rows.Count).End(xlUp).Row
  Application.DisplayAlerts = False
  deb = 8
  For i = 8 To derlig Step 2
   If Weekday(Range("E" & i).Value, 2) = 7 Or i >= derlig Then
     Range(Cells(deb, 3), Cells(i + 1, 3)).Merge
     Cells(deb, 3).FormulaR1C1 = "=WEEKNUM(RC[1],2)"
     deb = i + 2
   End If
  Next
  Application.DisplayAlerts = True
End Sub

Attention! cela implique que le 1er jour de la feuille est sur la ligne 8
A+ François

 

[elsaallavena]

Je vais essayer. Merci beaucoup.