Compter le nombre de cellules fusionnées

Bonjour,

Je souhaite compter le nombre de cellules fusionnés dans une ligne et afficher le résultat dans la cellule A2.

J'arrive a afficher le résultat lorsqu'il y a une plage fusionnée mais pour plusieurs plages je ne trouve pas la solution.

Je souhaiterai que le résultat soit 64

Je mets mon fichier en pièce-jointe.

Merci d'avance

PS : Si quelqu'un pense à une autre solutions pour compter le nombre de cellules vertes je suis preneur!

194couleur.zip (8.65 Ko)

Bonjour,

proposition de fonction personnalisée à mettre dans un module standard :

Function cptFusion(plage As Range) As Long
    ' retourne le nombre de cellules fusionnées dans la plage
    '
    ' La fusion ne provoque de Calculate,
    ' ajouter dans les feuilles concernées :
    ' Private Sub Worksheet_Activate()
    '    ActiveSheet.Calculate
    ' End Sub
    ' la désactivation/réactivation de la feuille entrainera sa mise à jour
    '
    ' Ex syntaxe sur feuille :
    ' =cptFusion(4:4)
    '
    Dim c As Range
    Application.Volatile
    For Each c In Intersect(plage, plage.Parent.UsedRange)
        If c.MergeCells Then cptFusion = cptFusion + 1
    Next c
End Function

' Ex syntaxe sur feuille :

' =cptFusion(4:4)

eric

Génial ce truc Eric.

Merci Ericcccccc

Rechercher des sujets similaires à "compter nombre fusionnees"