FUSION DE CELLULES

Question

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)&#8230;&#8230;&#8230;&#8230;
Next i

Merci de votre aide.


CARPE DIEM

cs_Jack · Answer

Salut

L'enregistreur de macro, dans sa grande sagesse, me fournit le code suivant :
    Range("A12:D12").Select
    Selection.Merge Truequ'il faut transformer pour supprimer cet affreux Select en
    Range("A12:D12").Merge True
Quelle est ta difficulté ?
Cells n'est pas vraiment pratique : Pour basculer de Cells à Range :
Range(Cells(i, 1), Cells(i, 4)).Merge True
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

vvvince · Answer

Salut Jack,

J'ai également entendu le murmure du grand Enregistreur de macro dans mon sommeil, qui m' indiquait que pour faire une fusion de cellules, il fallait utiliser la fonction merge.

Mais dans mon grand obscuratisme, je ne voyais pas comment la placer dans ma macro.
CAD, &#8230;..Then Cells(i, 1).Resize(, 4).Merge.

Blague mise à part, je ne connaisais pas la fonction "Resize (,4)". D' ou ma demande d' aide.

Il s'avère que cette commande fonctionne aussi : "     If Left(Cells(i, 1), 5) = "Total" Then Cells(i, 1).Resize(, 4).Merge"

J' ai toujours utilisé "Cells" dans ce genre de commande. Maintenant il me faut intégrer la commande " Range(Cells(i, 1), Cells(i, 4)).Merge True"

Comme tu le sais, on peut obtenir le même résultat en codant de plusieurs façon différentes.

Un Petit M'ssieur disait :  " c'est en forgeant qu'on devient&#8230;."

Plus sérieusement, Merci de ton aide et bonne soirée.

CARPE DIEM

FUSION DE CELLULES

2 réponses

Votre réponse

Discussions similaires