Fusion de cellule en fonction d'un critère

[lamailloche]

Bonsoir le Forum,
J'ai besoin de votre aide.
Comment fusionner des cellules à l'aide d'une formule ou d'une macro en fonction d'un critère.
Un fichier en pièce jointe pour une meilleure compréhension.
Merci.

 

[phlaurent55]

Re : Fusion de cellule en fonction d'un critère

Bonjour lamailloche,

ton fichier en retour

à+
Philippe

 

[lamailloche]

Re : Fusion de cellule en fonction d'un critère

Merci Philippe, je ne comprends pas tout, j'ai quelques soucis avec les boucles.
Je vais étudier et essayer de l'appliquer.
Bonne soirée

 

[lamailloche]

Re : Fusion de cellule en fonction d'un critère

Bonsoir Le Forum,
J'ai déjà fait appel à vous pour résoudre mon petit souci, mais je ne sais mettre en pratique la réponse de Philippe. Alors, je reviens vers vous.
En pièce jointe le fichier avec sa vraie structure et la macro de Philippe.
Quelques annotations dans ma macro seraient les bienvenues pour ma compréhension.
Merci pour votre aide.
Bonne soirée.

 

[Victor21]

Re : Fusion de cellule en fonction d'un critère

Bonsoir, lamailloche.

En l'absence de Philippe

  Sub Macro1()

    Application.DisplayAlerts = False
    For i = Range("j65535").End(xlUp).Row To 6 Step -1
        test = Cells(i, 10)
        For j = i To 6 Step -1
            If Cells(j - 1, 10) <> test Then
                Exit For
            End If
        Next j
        Range(Cells(i, 10), Cells(j, 10)).Merge
        Range(Cells(i, 11), Cells(j, 11)).Merge
        Range(Cells(i, 12), Cells(j, 12)).Merge
        Range(Cells(i, 13), Cells(j, 13)).Merge
    Next i
    [A1].Select
    Application.DisplayAlerts = True
    
End Sub

 

[lamailloche]

Re : Fusion de cellule en fonction d'un critère

Merci Victor. J'ai mis en pratique. Tout fonctionne et je crois que j'ai compris.
Bonne nuit.