Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizontale

[baguidi]

Bonjour le Forum,
J'ai juste une préoccupation que respectueusement je voudrais soumettre à l'attention du forum que j'aime tant.
En fait j'ai déjà réalisé par VBA une série d'instruction mais ce que je n'arrive pas a faire , c'est de fusionner toujours par VBA macro les données de la colonne B alors que certaines lignes sont déjà fusionnées depuis A mais de façon horizontal.
Moi je voudrais faire des fusions verticales sur la colonne B des données identiques.
J'ai joint un exemple de fichier pour visualisation.
merci.

 

[vgendron]

Re : Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizo

bonjour

avec l'enregistreur de macro on a

    Range("B8:B12").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

ensuite, à adapter pour sélectionner la bonne range (à la place de range("B8:B12") suivante
et faire ca sur toute ta colonne

 

[CHALET53]

Re : Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizo

Bonjour à tous

Ou alors avec une boucle (toutefois dans une même série, il ne peut y avoir de blanc entre deux codes identiques) : ce qui n'est pas le cas en ligne 37 à 42 (blanc en 41)

Sub fusion()
derligne = Sheets("Feuil1").Range("B65536").End(xlUp).Row
Application.DisplayAlerts = False
j = 8

For i = 8 To derligne
If i > 49 Then Stop
k = i
If Range("B" & i) = "" Then GoTo suite
a = Range("B" & i)
For j = i + 1 To derligne
If a <> Range("B" & j) Then
k = j - 1
j = derligne
End If
Next j
Stop
Range("B" & i & ":B" & k).Select
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = True
End With
' Stop
i = k
suite:
Next i
End Sub

a+

 

[baguidi]

Re : Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizo

Mille excuse pour mon retard dans la réponse à vos propositions
J'ai donc essayé le code de CHALET53 et il a marché. Merci pour votre disponibilité à me répondre.

 

[baguidi]

Re : Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizo

Bonjour CHALET;
J'avais voulu juste te dire que les codes fusionnent les données de la colonne B jusqu'à un certain niveau et n'arrive pas à faire les dernière données.
Merci s'il est possible de revoir la macro.

 

[pierrejean]

Re : Fusion d'une colonne en verticale dont les lignes sont deja fusionnée en horizo

Bonjour à tous

Voir:
https://www.excel-downloads.com/threads/fusion-de-la-colone-b-sur-les-donnees-identiques.219743/