Merge Aera

Bonjour,

J'utilise des cellules fusionnées en titres, je sais, c'est pas bien, mais.... j'ai pas trouvé plus propre.

Ce que je souhaite faire c'est récupérer la plage de mes cellule fusionnées pour pouvoir récupérer les données qui se trouvent dans les cellules de la ligne du dessous.

J'arrive bien à récupérer la plage MargeAera.Address mais impossible de faire un offset pour pouvoir décaler cette plage.

La seule solution que j'ai trouvé c'est d'enlever la fusion et la remettre.

Est-il possible d'éviter cette étape?

ps : fichier joint

Merci,

Bonjour,

Une proposition :

Sub Bouton2_Cliquer()
    Dim i%, c As Range, ch$
    Set c = Range("C1")

    If Not c Is Nothing Then
        If c.MergeCells Then
            For i = 0 To c.MergeArea.Columns.Count - 1
                ch = ch & IIf(Len(ch) > 0, vbCrLf, "") & c.Offset(1, 0).Offset(0, i).Value
            Next i
            MsgBox ch
        End If
    End If
End Sub

Bonjour à tous,

c'est vrai que vba réagit bizarrement là-dessus.

Une façon :

    Set c = [C1]
    Set pl = c.MergeArea.Offset(1).Resize(c.MergeArea.Columns.Count)

eric

Merci beaucoup pour vos interventions, grâce à vous j'ai pu finaliser mon code.

Bonne fin de semaine et bon week end