XL 2016 Compter le nombre de montant dans une cellule

kaki31 · 14 Mai 2023

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

mapomme · 14 Mai 2023

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 · 14 Mai 2023

Bonsoir mapomme

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

mapomme · 14 Mai 2023

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 · 14 Mai 2023

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 · 14 Mai 2023

Re,

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

VB:

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

Voir utilisation en colonne B du classeur joint.

kaki31 · 14 Mai 2023

Staple1600 à dit:
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 · 14 Mai 2023

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 · 15 Mai 2023

mapomme à dit:
Re,

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

VB:

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

Voir utilisation en colonne B du classeur joint.

Merci.

Staple1600 · 15 Mai 2023

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)

XL 2016 Compter le nombre de montant dans une cellule

kaki31

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

kaki31

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

kaki31

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Astuce récente : lire.cellule()

kaki31

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires