Supprimer la fusion de lignes sur EXCEL 2010
Résolu
arcade89400
Messages postés
28
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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
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
-
Bonjour
Essayez ceciSub Defusion() Application.ScreenUpdating = False Application.DisplayAlerts = False Selection.UnMerge End Sub
Bonne journée
Cdlt-
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
-
-
Un grand merci à Frenchie83 qui a résolu mon problème ! Cordialement à tous et bon WE
-
RE
Je m'en doutais bien un peuSub Defusion() Application.ScreenUpdating = False Application.DisplayAlerts = False Valeur = ActiveCell.Value Selection.UnMerge Selection.Value = Valeur End Sub
Cdlt-
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
-
-
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
