XL 2010 VBA fusion cellules identiques

spike29 · 8 Décembre 2020

Bonjour,

J'ai un code me permettant de mettre en forme une colonne, à savoir fusionner les cellules ayant le même contenu.
Il s'agit de la colonne B de ma Feuil1.

Une fois cette macro déclenchée et les différentes fusions réalisées en colonne B, je souhaiterai que la colonne E ( à partir de la ligne 26) reprenne la même mise en forme que la colonne B. Je souhaite donc qu'en colonne E il y ai les mêmes cellules de fusionnées qu'en colonne B.

Mon fichier en PJ.

Merci d'avance pour votre aide.

Bonne fin de journée

sylvanu · 8 Décembre 2020

ou cent fois plus simple, dupliquer le merge de la colonne B :

VB:

        Application.DisplayAlerts = False
        Range("B" & LigneDeb & ":B" & i - 1).Merge
        Range("E" & LigneDeb & ":E" & i - 1).Merge
        Application.DisplayAlerts = True

sylvanu · 8 Décembre 2020

Bonjour Spike,
En utilisant l'enregistreur on trouve un code assez simple.

sylvanu · 8 Décembre 2020

ou cent fois plus simple, dupliquer le merge de la colonne B :

VB:

        Application.DisplayAlerts = False
        Range("B" & LigneDeb & ":B" & i - 1).Merge
        Range("E" & LigneDeb & ":E" & i - 1).Merge
        Application.DisplayAlerts = True

spike29 · 9 Décembre 2020

Bonsoir et merci pour la réponse !

ça fonctionne parfaitement !

Bonne fin de journée

XL 2010 VBA fusion cellules identiques

spike29

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

spike29

XLDnaute Occasionnel

Discussions similaires