1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

Dilueur
Messages postés
24
Date d'inscription
mardi 3 mars 2009
Statut
Membre
Dernière intervention
28 octobre 2011
 - 22 janv. 2010 à 00:25
fohaf
Messages postés
60
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2012
 - 22 janv. 2010 à 02:39
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.

1 réponse

Réponse 1 / 1
fohaf
Messages postés
60
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2012
 2
22 janv. 2010 à 02:39
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
0