Sujet Précédent Sujet Suivant

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:

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 338
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
0
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
0
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
0
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 338
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
0
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
0
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 338
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
0