XL 2013 Fusionner des lignes sur une colonne en fonction de la valeur

fanch55 à dit:

Pour l'exemple fourni :

VB:

Option Explicit
Sub test_fusion()
     Fusionne 1
     Fusionne 2
End Sub
Sub Fusionne(C As Integer)
Dim I As Integer, L As Integer
Dim Dc As String, Df As String
Application.DisplayAlerts = False

    With Sheets("Exemple")
         L = .Cells(Rows.Count, C).End(xlUp).Row
         Dc = vbNullString
         For I = 2 To L + 1
            .Cells(I, C).Select
            If .Cells(I, C) <> .Cells(I - 1, C) Then
                If Dc <> vbNullString Then
                    With .Range(Dc, Df)
                        .Select
                        .Merge
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                    End With
                End If
                Dc = .Cells(I, C).Address
            End If
            Df = .Cells(I, C).Address
         Next
    End With

End Sub

Cliquez pour agrandir...

Leché à dit:

--> Surligner une ligne sur 2 ( du moins un ensemble de ligne avec le même numéro qui vient d'être fusionné) afin de mieux visualiser l’ensemble (comme sur la seconde photo ci-dessus : soit de A3 à la dernière cellule en G et de K3 a dernière cellule non vide en L)

Cliquez pour agrandir...

Leché à dit:

--> Mettre une police et une taille (de A3 à la dernière cellule pleine en L)

Cliquez pour agrandir...