XL 2016 Compter le nombre de montant dans une cellule

[kaki31]

Bonjour;
je cherche un moyen de compter le nombre de montant dans une cellule
Merci par avance.

 

[mapomme]

Bonsoir @kaki31,

Un peu léger comme explication, non ?
C'est quoi un montant ?
A quoi correspond ce 4 en B2 ?
Doit-on consulter notre boule de cristal ?

 

[kaki31]

Bonsoir mapomme

Le 4 en B2 correspond au nombre de montant en A2 .
A2=1500+500+236,25+750,75

 

[mapomme]

Re,

On se place en B2 :
Via le menu "Formules / Gestionnaire de noms", on définit le nom maFormule avec pour définition :
=LIRE.CELLULE(41;Feuil1!$A12)

Puis en B2, on saisit la formule suivante à recopier vers le bas :
=NBCAR(maFormule)-NBCAR(SUBSTITUE(maFormule;"+";""))+1

nota : on utilise une astuce sans code avec une vieille macro Excel IV (LIRE.CELLULE) - on pourrait aussi le faire avec une macro "moderne" avec du code.

 

[Staple1600]

Bonsoir le fil

Une autre formule (qui fonctionne sur O365)
En B1
=NBVAL(FRACTIONNER.TEXTE(FORMULETEXTE(A1);"+"))
renvoie 4

Je ne sais pas ce qu'il en est sur Excel 2016.
Donc en reprenant la formule de @mapomme
Cette formule devrait fonctionner sur Excel 2016
=NBCAR(FORMULETEXTE(A1))-NBCAR(SUBSTITUE(FORMULETEXTE(A1);"+";""))+1

EDITION: Ah, non, je viens de voir que FORMULETEXTE n'est disponible que sur O365, tout comme FRACTIONNER.TEXTE

 

[mapomme]

Re,

Avec une fonction personnalisée NbrDansSomme dont le code est dans module1 :

Function NbrDansSomme&(x As Range)
   NbrDansSomme = UBound(Split(x.Formula, "+")) + 1
End Function

Voir utilisation en colonne B du classeur joint.

 

[kaki31]

Bonsoir le fil

Une autre formule (qui fonctionne sur O365)
En B1
=NBVAL(FRACTIONNER.TEXTE(FORMULETEXTE(A1);"+"))
renvoie 4

Je ne sais pas ce qu'il en est sur Excel 2016.
Donc en reprenant la formule de @mapomme
Cette formule devrait fonctionner sur Excel 2016
=NBCAR(FORMULETEXTE(A1))-NBCAR(SUBSTITUE(FORMULETEXTE(A1);"+";""))+1

EDITION: Ah, non, je viens de voir que FORMULETEXTE n'est disponible que sur O365, tout comme FRACTIONNER.TEXTE

Bonsoir Staple1600

Merci.

 

[Staple1600]

Re

@mapomme
Ta réponse me rappelle ce fameux fil
Alors pour le plaisir, la nostalgie et les petits nouveaux, je le ressors de la poussière

Astuce récente : lire.cellule()

Je cherche à savoir comment fonctionne cette astuce : ce n'est ni une fonction , ni du VBA ! où puisj e trouver des infos sur ce type de ??

excel-downloads.com

Enjoy

Ps: Comme n'aurait pas pu dire le chum de Bernie : Puta*in, 18 ans !

 

[kaki31]

Re,

Avec une fonction personnalisée NbrDansSomme dont le code est dans module1 :

Function NbrDansSomme&(x As Range)
   NbrDansSomme = UBound(Split(x.Formula, "+")) + 1
End Function

Voir utilisation en colonne B du classeur joint.

Merci.

 

[Staple1600]

Re


Une formule (que j'affectionne car idéale pour me bercer avant d'aller au dodo)
En B1
=NBVAL(TRANSPOSE(FILTRE.XML("<t><s>"&SUBSTITUE(FORMULETEXTE(A1);"+";"</s><s>")&"</s></t>";"//s[translate(.,'1234567890','')!=.]")))
devrait normalement fonctionner sur Excel 2016

@kaki31 Je te laisse tester pendant que je me glisse sous la couette

Bonne nuit XLD.

PS: Pour voir la formule en action (et mieux la lire)