Supprimer la fusion de lignes sur EXCEL 2010 [Résolu/Fermé]

Signaler
Messages postés
25
Date d'inscription
samedi 7 juin 2014
Statut
Membre
Dernière intervention
13 juin 2016
-
Messages postés
2172
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 novembre 2020
-
Bonjour à toutes et à tous,
Dans une feuille de calcul que je reçois, certaines lignes ont fait l'objet de fusion sur leurs 3 premières colonnes. Ces lignes sont placées de façon aléatoire. J'ai besoin de supprimer la fusion pour continuer. En enregistrant une macro, j'arrive au résultat recherché mais le numéro de ligne est figé. Je souhaite pouvoir positionner le curseur manuellement et déclencher ma macro sur la ligne active. Je précise que je ne connais pas VBA. Merci de votre aide. CRldt

4 réponses

Messages postés
2172
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 novembre 2020
299
Bonjour
Essayez ceci
Sub Defusion()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Selection.UnMerge
End Sub

Bonne journée
Cdlt
Messages postés
25
Date d'inscription
samedi 7 juin 2014
Statut
Membre
Dernière intervention
13 juin 2016

Bonjour,
Dans ma candeur naïve, je pensais mon problème résolu, mais j'avais omis de préciser qu'après avoir supprimer la fusion, il me fallait recopier les informations de la ligne du haut sur celle du bas ! Qui voudra bien compléter la macro suivante pour arriver à ce résultat ?
Sub Defusion()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Selection.UnMerge
End Sub
Un grand merci d'avance. Crldt
Messages postés
25
Date d'inscription
samedi 7 juin 2014
Statut
Membre
Dernière intervention
13 juin 2016

Un grand merci à Frenchie83 qui a résolu mon problème ! Cordialement à tous et bon WE
Messages postés
2172
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 novembre 2020
299
RE
Je m'en doutais bien un peu
Sub Defusion()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Valeur = ActiveCell.Value
    Selection.UnMerge
    Selection.Value = Valeur
End Sub

Cdlt
Messages postés
25
Date d'inscription
samedi 7 juin 2014
Statut
Membre
Dernière intervention
13 juin 2016

Merci Frenchie83, encore un conseil si vous voulez bien me consacrer encore quelques instants. La fusion concerne 3 colonnes. la "défusion" fonctionne parfaitement si je mets les 3 colonnes en surbrillance et que je lance la macro. Mais la recopie me place le contenu de la première colonne dans les 6 concernées. Je souhaite que le contenu des 3 colonnes de la ligne du dessus soient recopiées dans les 3 colonnes de la ligne 2. Il y a "un certain temps", voire "un temps certain", j'utilisais Lotus 123, comme ça me semble simple à côté de VBA ! Merci d'avance de votre gentillesse. Crldt
Messages postés
2172
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 novembre 2020
299
Bonjour
3 colonnes en surbrillance et que je lance la macro. Mais la recopie me place le contenu de la première colonne dans les 6 concernées Pas très clair.
Si je reformule votre problème d'àprès ce que je crois comprendre, vous avez une fusion de cellules sur 3 colonnes et 2 lignes, et vous voulez qu''àprés "défusion" la valeur de la cellule fusionnée soit recopier uniquement sur les 3 cellules de la ligne 2.Est-ce bien cela?
Sub Defusion()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    valeur = ActiveCell.Value
    Selection.UnMerge
    valeur = ActiveCell.Value
    ActiveCell.Clear
    ActiveCell.Offset(1, 0).Resize(1, 3) = valeur
End Sub

En espérant avoir bien compris.
Cdlt