Discussion :

[Invité]

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.

[Jean-Philippe André]

Salut ,

en partant de ton test

Code :

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

If Cell.MergeCells

la demarche sera d'appliquer

Code :

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

UnMerge

et de recopier la value d'origine dans les cellules videes.

Cela t'eclaire-t-il ?

[Invité]

Bonjour Jpcheck et Merci


J'ai l'impression que c'est moi qui dois avoir les cellules vides.

C'est pour la copie que je coince
Il faut bien localiser le nombre de cellules vides ainsi créées, ainsi que leur emplacement pour leur coller une valeur?

[Jean-Philippe André]

En fait en utilisant l'autre propriete des fusions

Code :

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

MergeArea

tu testes l'info sur l'appartenance ou non a une cellule fusionnee.

L'exemple de l'aide en ligne a ce sujet semble correspondre au test que tu souhaites effectuer.

Reste a creer un tableau pour stocker les donnees avant de les repartir...

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range, Plg As Range
 
For Each c In Range("A1:G20")
    If c.MergeCells Then
        Set Plg = c.MergeArea
        c.UnMerge
        c.Copy Plg
    End If
Next c

[Invité]

J'ai vu le message de Mercatog en écrivant ma réponse.

Sinon j'ai trouvé ceci également que je viens d'appliquer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function SupprimFusion()
    Dim rang As Range
    Dim cell As Range
    Dim Adresse As String
    Dim Contenu As Variant
    With ActiveSheet.UsedRange
        For Each cell In .Cells
            With cell
                If .MergeCells = True Then
                        Adresse = .MergeArea.Address(0, 0)
                        Contenu = .Value
                        .MergeArea.UnMerge
                        For Each rang In Range(Adresse)
                                rang.Value = Contenu
                        Next rang
                End If
            End With
        Next cell
    End With
End Function

Merci à vous deux. Cà m'a bien aidé car mon niveau Excel est au niveau de mon utilisation: soit très basique...