Supprimer la fusion de lignes sur EXCEL 2010

Résolu/Fermé

arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016 - 31 juil. 2015 à 20:22
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 2 août 2015 à 05:54

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

A voir également:

Supprimer la fusion de lignes sur EXCEL 2010
Comment supprimer une page sur word - Guide
Supprimer compte instagram - Guide
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Formule excel - Guide

4 réponses

Réponse 1 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
1 août 2015 à 05:15

Bonjour
Essayez ceci

Sub Defusion()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Selection.UnMerge
End Sub

Bonne journée
Cdlt

arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016
1 août 2015 à 09:26

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

Réponse 2 / 4

arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016
1 août 2015 à 08:39

Un grand merci à Frenchie83 qui a résolu mon problème ! Cordialement à tous et bon WE

Réponse 3 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
1 août 2015 à 09:58

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

arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016
1 août 2015 à 10:18

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

Réponse 4 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
2 août 2015 à 05:54

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

Discussions similaires

Afficher toutes les lignes masquées excel

EXCEL : Supprimer des lignes vides à la fin

Discussions similaires

Newsletters