Fusion des cellules

Bonsoir à tous,

Petite question sur cette macro dont je n'arrive pas à trouver la suite.

Je souhaites qu' à chaque fois qu' il trouve le Terme " Total" (formé des 5 premiers caractères partant de gauche), il fusionne la cellule avec les 3 autres sur sa droite.

Ex : Il trouve "Total" en A12. Il fusionne A12+B12+C12+D12"

For i = [A65000].End(xlUp).Row To 1 Step -1

If Left(Cells(i, 1), 5) = "Total" Then Cells(i + 1, 1)…………

Next i

Merci de votre aide.

Salut le forum

Commme ceci

If Left(Cells(i, 1), 5) = "Total" Then Cells(i, 1).Resize(, 4).Merge

Mytå

Bonsoir Myta,

Merci de ton aide et de ta rapidité.

Je testerai demain et te tiens au courant.

Bonsoir Myta,

Cela fonction à merveille.

Petite question supplémentaire, je souhaiterai, en plus, lui demander d' encadrer la ligne complète (...BorderAround Weight:=xlThin )

Donc, comment rajouter cette fonction à la suite de :

If Left(Cells(i, 1), 5) = "Total" Then Cells(i, 1).Resize(, 4).Merge

Merci

Re le Forum

Comme ceci

If Left(Cells(i, 1), 5) = "Total" Then
    With Cells(i, 1).Resize(, 4)
        .Merge
        .BorderAround Weight:=xlThin
    End With
End If

Mytå

Re,

Rapidité, efficacité, Top quoi.

Merci.