Affichage de ligne

bonjour

suite à un code de Bansai64 est il possible d'ajouter dans celui ci en D5 en affichage la phrase 'il y a .....de personnes '

par avance merci

fichier joint

Bonjour le forum,

="Il y a "&NBVAL(B:B)-1&" personne(s)"

mbbp

merci

et en vba auriez vous une réponse

Bonjour à tous

n = Application.WorksheetFunction.CountA(Range("B:B")) - 1

Cells(6, "D").Value = "Il y a " & n & " personne(s)."

Bonjour

Testes

    N = Application.WorksheetFunction.Subtotal(103, Range("B:B")) - 1
    Cells(6, "D").Value = "Il y a " & N & " personne(s)."

merci beaucoup pour la réponse

reponse tardive because vacances