Discussion :

[e.hit]

Hello,

J'ai un fichier de 2000 lignes avec des cellules fusionnées.
Je souhaite l'utiliser comme une base de donnée et donc sans cellule fusionnées, avec toutes les lignes remplies.

J'ai donc utilisée cette macro trouvée sur le web pour automatiquement annuler les fusions et re remplir les données dans les cellules vides.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub FindMergedCellsUnmergeThemAndFillThem()
Dim MergedCell As Range, FirstAddress As String, MergeAddress As String, MergeValue As Variant
Application.FindFormat.MergeCells = True
Do
Set MergedCell = ActiveSheet.UsedRange.Find("", LookAt:=xlPart, SearchFormat:=True)
If MergedCell Is Nothing Then Exit Do
MergeValue = MergedCell.Value
MergeAddress = MergedCell.MergeArea.Address
MergedCell.MergeArea.UnMerge
Range(MergeAddress).Value = MergeValue
Loop
Application.FindFormat.Clear
End Sub

Seulement dans un fichier de 2000 lignes, cela prend une éternité, un moyen pour accélérer le travail? Ou au moins pour suivre le temps restant?

Merci à vous !

Emilie

[jerome.vaussenat]

Salut,

Je te propose cette solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub suppr_fusion()
    Range("C1").CurrentRegion.Select
    Selection.MergeCells = False
End Sub

En gros, on sélectionne toutes les cellules contiguës à C1 (que tu peux modifier)
Et on désactive la fusion de cellules.

[e.hit]

Merci pour l'info!

Est-ce que ça fonctionne avec plusieurs cellules fusionnées?
Car j'ai par plusieurs lignes de cellules fusionnées de tailles différentes.

Merci,

Emilie

[patricktoulon]

re
bonsoir
la bonne blague que c'est long
avec ta ligneci dessous non seulement tu cherche les formats mais aussi les cellules vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MergedCell = ActiveSheet.UsedRange.Find("", LookAt:=xlPart, SearchFormat:=True)

complètement inutile si tu n'a pas a retraiter le contenu

essai plutôt ca en adaptant le sheet et ta plage , chez moi c'est instantané sur 7 colonne et 20000 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(X).Range("A1:g20000").UnMerge

tout simplement

[eriiic]

Bonjour à tous,

il vous manque la partie "et re remplir les données dans les cellules vides", et il parcours bien que les plages fusionnées.
Commence par ajouter en début de macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating=false

et voit si l'amélioration est suffisante.
eric

[e.hit]

Hello

Merci pour vos réponses avisées.
Par contre je suis carrément débutante en macro...
Est-ce possible de me donner le code en entier car en bidouillant ligne par ligne j'arrive juste à annuler la fusion et pas à ré-écrire les données!

Merci !