Compter cellules fusionnees

bonjour

j'ai un planning d'occupation de lits dans une unité et souhaite calculer le nombre de patients par jour. mais comme j'utilise des cellules fusionnées, je n'y parviens pas.

en haut : les jours

a gauche : les lits

Merci,

Bonsoir,

Bonjour,

pas vraiment utile le fichier ....et le message précédent aussi...

tu crée une fonction personnalisé (dans un module standard VBA)

'
' Nombre valeur nonVide d'une plage ( même fusionnée)
'
Function NbValNonVide(r As Range) As Long
 Application.Volatile
 Dim i As Long
 Dim c As Range
 For Each c In r.Cells
    If c.MergeArea.Cells(1, 1) <> "" Then
        i = i + 1
    End If
 Next
 NbValNonVide = i
End Function

puis tu utilise la fonction dans ta feuille de calcul :

=NbValNonVide(B2:B4)

Raja a écrit :

Bonsoir,

c'est fait

merci

pierre.jy a écrit :

Bonjour,

pas vraiment utile le fichier ....et le message précédent aussi...

tu crée une fonction personnalisé (dans un module standard VBA)

'
' Nombre valeur nonVide d'une plage ( même fusionnée)
'
Function NbValNonVide(r As Range) As Long
 Application.Volatile
 Dim i As Long
 Dim c As Range
 For Each c In r.Cells
    If c.MergeArea.Cells(1, 1) <> "" Then
        i = i + 1
    End If
 Next
 NbValNonVide = i
End Function

puis tu utilise la fonction dans ta feuille de calcul :

=NbValNonVide(B2:B4)

Merci Pierre.jy pour ce message, ça marche super bien !!!!