XL 2013 Fusion conditionnelle

[Xavier LE MERRER]

Bonjour

je cherche une macro qui me permettrais de fusionner des cellules en fonction de son contenu. (dates et texte)

si joint un fichier avec toutes les explications et les différentes macro que j'ai tenté d'adapter.

Merci de votre aide

 

[pierrejean]

Bonjour Xavier

Teste ces macros:

Sub semaine()
debut = 4
Application.DisplayAlerts = False
For n = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Weekday(Range("B" & n)) = 1 Then
       Range("A" & debut & ":A" & n).MergeCells = True
       debut = n + 1
    End If
    If n = Range("B" & Rows.Count).End(xlUp).Row Then
        Range("A" & debut & ":A" & n).MergeCells = True
    End If
Next
End Sub
Sub location()
debut = 4
Application.DisplayAlerts = False
For n = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Weekday(Range("B" & n)) = 6 Then
        Range("G" & debut & ":G" & n).MergeCells = True
        debut = n + 3
    End If
    If n = Range("B" & Rows.Count).End(xlUp).Row Then
        Range("G" & debut & ":G" & n).MergeCells = True
    End If
Next
End Sub

 

[Xavier LE MERRER]

Bonjour Pierrejean

Grand merci a toi pour ta réponse super rapide, sur mon 1 er fichier tout marche super bien.
mais j'avais sorti qu'une parti du fichier et la ca ne fonctionne plus. (Plusieurs mois et plusieurs feuilles)

si ca te dérange pas de jetez un coup d’œil

 

[pierrejean]

Re

Macros dans le Module 2
NB: dans la feuille 2018 j'ai déplace la formule en BF3

 

[Xavier LE MERRER]

Re

Macros dans le Module 2
NB: dans la feuille 2018 j'ai déplace la formule en BF3

Encore Merci tout fonctionne c'est parfait