Connaître le nombre de cellules fusionnées verticalement et/ou horizontalement

Question

Bonsoir,

Voilà un moment que je me heurte à un problème en apparence simple.

J'ai une plage de cellules fusionnées qui se nomme, par exemple, "maplage". Forcément, au minimum il peut y avoir 2 cellules fusionnées, et au maximum un nombre infini.
Les cellules peuvent être fusionnées verticalement et/ou horizontalement.

Dans une macro ou une fonction, je voudrais récupérer le nombre de cellules qui se superposent verticalement et se suivent horizontalement de "maplage".
Par ex., si "maplage" représente la fusion (Merge) des cellules A1 --> D5 :
cette plage correspond à 5 cellules qui se superposent verticalement et 4 cellules qui se suivent horizontalement.

J'ai essayé ainsi :
Function NbLignes(zone As Range) As Byte
    NbLignes = zone.Rows.Count
End Function

Function NbColonnes(zone As Range) As Byte
    NbColonnes = zone.Columns.Count
End Function

Function NbLignes2(zone As Range)
    NbLignes2 = Rows(zone).Count
End Function

Function NbColonnes2(zone As Range)
    NbColonnes2 = Columns(zone).Count
End Function

Absolument rien ne marche.

Un grand merci à qui me dépannera.

fohaf · Answer

Salut,

pour le nombre de lignes et de colonnes:

Function NbLignes(ByVal zone As Range) As Long
    NbLignes = zone.MergeArea.Rows.Count
End Function
Function NbColonnes(ByVal zone As Range) As Long
    NbColonnes = zone.MergeArea.Columns.Count
End Function

Connaître le nombre de cellules fusionnées verticalement et/ou horizontalement

1 réponse

Votre réponse

Discussions similaires