Fusionner des cellules si l'une contient du texte

Caro1393 · 3 Avril 2020

Bonjour,
Je sais que c'est pas bien de fusionner les cellules mais ici ce n'est que pour de la mise en page.

Mon but c'est qu'à chaque fois qu'il y a du texte dans une cellule de la colonne B elle se fusionne avec les cellules de la même ligne jusqu'à la colonne J (inclus).
Le tout doit se faire quand on clique sur le bouton à droite

J'ai fait une macro, mais ça me fusionne toutes les lignes ensemble. J'ai essayé un peu dans tous les sens mais je n'y arrive pas.
Pouvez-vous m'aider svp?
Merci d'avance

TooFatBoy · 3 Avril 2020

Bonjour,

Je n'ai fait que légèrement modifier ton classeur.
Regarde si c'est mieux.

patricktoulon · 3 Avril 2020

Bonjour

VB:

Sub test()
    Dim cell
    With Range("B2", Cells(Rows.Count, "B").End(xlUp))
        For Each cell In .SpecialCells(xlTextValues).Cells
            cell.Resize(1, 9).Merge
        Next
    End With
End Sub

Caro1393 · 3 Avril 2020

C'est parfait
Merci!!

TooFatBoy · 3 Avril 2020

@Caro1393 : je te propose une petite variante par rapport au classeur que j'ai posté précédemment.

Fusionner des cellules si l'une contient du texte

Caro1393

XLDnaute Nouveau

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Caro1393

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Discussions similaires