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