Bonjour à tous.

Je reçois des données sous forme de feuille Excel.
Je voudrais les lier à une table Access. A priori pas de soucis.
Mon problème est qu'il y a dans ma feuille Excel des cellules fusionnées de façon aléatoire et sur un nombre de cellules variable.
Il me faudrait donc faire une boucle qui:
- me trouve une cellule fusionnée.
- me copie la valeur
- me supprime la fusion
- me colle la valeur dans chaque nouvelle cellule ainsi créée
- passe à la cellule fusionnée suivante

Pour l'instant j'ai trouvé dans la Faq, la boucle concernant le repérage des cellules fusionnées:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub VisualiserCellulesFusionnees()
Dim Cell As Range
 
'Boucle sur les cellules utilisées dans la feuille
For Each Cell In Worksheets("Feuil1").UsedRange.Cells
    'Si la cellule est fusionnée
    'Colorie en jaune si la cellule est fusionnée
    If Cell.MergeCells Then Cell.MergeArea.Interior.ColorIndex = 6
Next Cell
End Sub
Mais cela ne suffit pas.
En espérant avoir été clair, je vous remercie par avance.