XL 2016 Compter le nombre de montant dans une cellule

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #2

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 ?

 

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 14 Mai 2023

• #3

Bonsoir mapomme

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #4

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.

 

Pièces jointes

• kaki31- compter membres d'une somme- v1.xlsm

  11.1 KB · Affichages: 3

Dernière édition: 14 Mai 2023

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2023

• #5

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

 

Dernière édition: 14 Mai 2023

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #6

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.

 

Pièces jointes

• kaki31- compter membres d'une somme- v2.xlsm

  16.4 KB · Affichages: 5

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 14 Mai 2023

• #7

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

Cliquez pour agrandir...

Bonsoir Staple1600

Merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2023

• #8

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 !
😉

 

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 15 Mai 2023

• #9

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.

Cliquez pour agrandir...

Merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mai 2023

• #10

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)

 

Vote positif 0 Vote négatif