Fusion cellules sur 2 colonnes

Bonjour le forum

J'ai récupéré une macro qui permet de fusionner des cellules en colonne "B" si elles sont en double

Je voudrais étendre cette fusion pour la colonne "C"

C'est à dire que si la macro fusionne 3 cellules en colonne "B", je voudrais également fusionner les 3 cellules adjacentes colonne "C" entre elles aussi

Je place en pièce jointe un fichier avec la macro et les 3 première fusions pour exemple de résultat recherché

D'avance je vous remercie pour votre aide et pour votre disponibilité

Bonjour,

Pourquoi fusionner ? pour des questions de lisibilité ?

Je te déconseille fortement de faire cela (et je ne suis pas le seul) : tout sera plus compliqué ensuite pour des tris, des TCD, des recherchev etc.

Regarde ci-dessous une autre méthode à base de MFC

Bonjour, Steelson bonjour, je répond simplement à la demande sans me poser trop de questions...

Essayez ceci :

remplacez :

R.Resize(NO(A), 1).Merge 'redimensionne l'élément trouvé et le fusionne

par :

        R.Resize(NO(A), 1).Merge 'redimensionne l'élément trouvé et le fusionne
        R.Offset(, 1).Resize(NO(A), 1).Merge

en fait je suis partis de la cellule B qui est fusionnée, que je décale d'une colonne par OffSet et je "merge" de la même manière.

vbMBHB

Bonjour

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Bonjour vbMsgBoxHelpButton, Steelson et gmb

Merci pour votre aide très rapide

Ca va j'ai ce qu'il me faut, c'est super,

Je sais que la fusion c'est pas du tout pratique, mais en fait ce tableau va me permettre de créer des fiches individuelles, c'est juste pour faire du copier coller il ni a aucun traitement style TCD ou autre

Je vous remercie pour votre aide et votre disponibilité

Je vous souhaite ainsi qu'à tout le forum de joyeuses fêtes de fin d'année

merci,

vbMBHB