Supprimer la fusion de lignes sur EXCEL 2010

Résolu
arcade89400 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   338
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   338
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   338
 
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

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses