Microsoft 365 Comptage du nombre de cellules non vides, par groupe

[Diane272727]

Bonjour Je souhaite compte le nombre de cellules non vides par groupe.
C'est à dire :

>

>

>

>

>

>

[td width="60pt"]

1​

[/td]​

[td]

2​

[/td]​

Résultat :

chap

nb

[td width="60pt"]

1​

[/td]​

[td width="60pt"]

2​

[/td]​

[td]

4​

[/td]​

[td]

2​

[/td]​

Est ce que vous auriez une idée comment faire ?
Je joint un fichier d'exemples.
Merci beaucoup.

 

[sylvanu]

Bonjour Diane,
Un essai en PJ avec :

=SIERREUR(NB.SI(INDIRECT("$A"&EQUIV(F3;$A:$A;0)&":$A"&EQUIV(G3;$A:$A;0)-1);"><");NB.SI(INDIRECT("$A"&EQUIV(F3;$A:$A;0)&":$A60000");"><"))

 

[Hecatonchire]

Bonjour Diane, sylvanu,

Une formule dynamique générant les valeurs de la plage F3:I4

=LET(p;A1:A25;
s;SEQUENCE(;MAX(p));
n;TRANSPOSE(FREQUENCE(MAP(p;LAMBDA(v;SI(v=">";MAX(INDIRECT("A1:A"&LIGNE(v)));"")));EXCLURE(s;;-1)));
ASSEMB.V(s;n))

 

[Diane272727]

Bonjour Diane,
Un essai en PJ avec :

=SIERREUR(NB.SI(INDIRECT("$A"&EQUIV(F3;$A:$A;0)&":$A"&EQUIV(G3;$A:$A;0)-1);"><");NB.SI(INDIRECT("$A"&EQUIV(F3;$A:$A;0)&":$A60000");"><"))

Merci beaucoup ça fonctionne super bien 🙂 !!
Par contre dans mon fichier réel, mes données sont en colonne B (et pas A comme dans le fichier test), et ça ne fonctionne plus. Impossible de trouver pourquoi. Aurais tu une idée ? Merci

 

[sylvanu]

Bonjour,
Une PJ à jour avec données en colonne B, et aussi une formule plus simple.
NB:
Dans "INDIRECT("$A"&... " la colonne A est "en dur" ( une chaine ) donc non modifiable par XL si on glisse la colonne A vers B.

 

[Hecatonchire]

Version colonne B et bien sur adapter 25 de B25 (60000 si on veux)

=LET(p;B1:B25;
s;SEQUENCE(;MAX(p));
n;TRANSPOSE(FREQUENCE(MAP(p;LAMBDA(v;SI(v=">";MAX(INDIRECT("B1:B"&LIGNE(v)));"")));EXCLURE(s;;-1)));
ASSEMB.V(s;n))

 

[job75]

Bonjour le forum,

Avec cette fonction VBA à placer dans un module standard :

Function NbPlage(plage As Range, ref)
Dim c As Range, i&
Set c = plage.Find(ref, , xlValues, xlWhole)
If c Is Nothing Then NbPlage = "": Exit Function
i = 2
Do While Not IsNumeric(c(i))
    i = i + 1
Loop
NbPlage = i - 2
End Function

Formule en F4 à tirer vers la droite =NbPlage($A:$A;F3)

A+

 

[danielco]

Bonjour,

Un autre façon :

=LET(str;CONCAT(A1:A24);sbl;SUBSTITUE(str;" ";"");MAP(F3:I3;LAMBDA(x;NBCAR(INDEX(FRACTIONNER.TEXTE(sbl;F3:I3);x+1)))))

Daniel

 

[Diane272727]

Merci à tous pour vos réponses vous êtes au top !!!!! 🙂

 

[job75]

Hello sylvanu, tu t'es trompé de fil 😕

 

[sylvanu]

🤣 🤣 🤣 Oups!
Merci Job, et bonne journée.
Message supprimé. 🙂