Discussion :

[jafarMUC]

Bonjour,

Mon probleme est le suivant:

J'ai une plage de cellules qui ont été fusionnées. (Disons de A1 à A5).
Ces cellules ne font plus qu'un maintenant!

J'aimerais cependant récupérer dans le cadre de ma macro vba l'indice de la derniere ligne de cette cellule issue de la fusion. (ici la ligne5).

En gros j'aimerais savoir si c'est possible de connaitre le nombre de lignes occupées par n'importe quelle cellule issue d'une fusion?

Est ce possible? Avez vous des avis la dessus?

Merci d'avance.

[Pierre Fauconnier]

Bonjour, et bienvenue sur les forums de DVP

Tu as à ta disposition la propriété objet MergeArea d'une plage, qui t'offre une série de propriétés.

Avec ton exemple de cellules A1:A5 fusionnées, tu peux par exemple utiliser ceci

Code :

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

1
2
    Set MaPlage = Range("a1")
    Debug.Print MaPlage.MergeArea.Cells(MaPlage.MergeArea.Cells.Count).Row

qui renverra le numéro de ligne de la dernière cellule de la plage fusionnée.

A toi de découvrir les possibilités de code via cette propriété MergeArea

Ok?

[jafarMUC]

Tout est dans l'intitulé...rapide et efficace.
Merci.

[tomy7]

moi j ai essaye pour voir sur le range A1 a A5

Code :

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

1
2
3
4
private sub command_button1 ()
Line = activesheet.cells(rows.count, "A").end(xlup).row
msgbox Line
end sub

mais sa te renvoi toujours 1 car quand tu fusionne et "defusionne" les cellules dans tous les cas tu ecris dans la cellule A 1 ...
donc pas d idee pour le moment...

Apres EDIT connaissais pas Mergearea merci pierre...

[ouskel'n'or]

Un avis parmi d'autres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim Cell As Range, adres As String, Plage as range
Set Plage = Range("A1:A30")
    For Each Cell In Plage
        If Cell.MergeCells = True Then
            adres = Cell.Address
        ElseIf adres <> "" And Cell.MergeCells = False Then
            Exit For
        End If
    Next
    MsgBox adres
End Sub