Nombre de valeur dans une cellule

[fb40]

Bonjour,

comment faire pour savoir combien de valeur j'ai rentré dans une cellule.
Par exemple en A1 je tape = 10+20+30 et je voudrai qu'en A2 cela me dise 3 chiffres.

Par avance merci.
fb40

 

[andré]

Salut fb40,

Je ne crois pas que cela soit possible.

Par contre, si tu tapes 10 en A1, 20 en B1, 30 en C1, =somme(A1:C1) en D1, la formule =NB(A1:C1) en E1 te donnera le résultat recherché

Ândré

 

[Flaille]

salut

voila une formule qui permet d'en trouver 3

=SI(ESTERREUR(CHERCHE("+";A1;1));1;SI(ESTERREUR(CHERCHE("+";A1;CHERCHE("+";A1;CHERCHE("+";A1;1)+1)));2;3))

si t'n veux plus, il faut dupliquer
bon courage

 

[C@thy]

Bonjour fbfourty, et le forum

Voilà une 'tite macro qui devrait faire l'affaire :

NbNum = 0
toto = ActiveCell.Formula
Chaine = CStr(toto)
For Boucle = 1 To Len(Chaine)
Car = Mid(Chaine, Boucle, 1)
If IsNumeric(Car) = False Then NbNum = NbNum + 1
Next Boucle

 

[C@thy]

La fonction CHERCHE ne va pas marcher, sauf si la cellule contient du texte et non pas une formule de calcul.

 

[fb40]

Merci pour vos réponse.
J'ai voulu essayer la macro de Cathy mais cela ne marche pas ou alors que je ne sais où la mettre et comment faire. J'avoue que je suis un peu perdu.
Mille excuse et merci d'avance pour votre aide.

 

[C@thy]

Ah je vois, voilà le fichier avec la macro.

J'ai compté le nombre de caractères non numériques, mais on peut se limiter au +

dans ce cas
If IsNumeric(Car) = False Then NbNum = NbNum + 1

deviendrait
If Car ="+" Then NbNum = NbNum + 1

 

[C@thy]

En fait, je compte les caractères non numériques, y compris le =,
cela donne le nombre de valeurs numériques (nombres)

 

[fb40]

C'est exactement cela que je veux. Merci...mais je vais être encore un peu pénible. Je voudrais appliquer cettre macro pour plusieurs ligne. En effeit dans mon tableau j'ai une trentaine de ligne (de A1 à A30 et cela peut augmenter) et je voudrais le résultat obtenu avec la macro juste à coté (de B1 à B30). et si possible, est-ce que la macro peut s'éxécuter automatiquement.
Par avance merci.

 

[C@thy]

OK, fbfourty,

c'est possible avec une macro événementielle.

Je suis en plein sur un autre truc, je te fais ça dans quelques minutes.

 

[fb40]

Vraiment très sympa, merci beaucoup.

 

[C@thy]

C'est pas peaufiné mais ça devrait aller. Sinon dis-le moi.

 

[fb40]

C'est ce qu'il me faut mais pourquoi il marque 0 quand il y a une chiffre ?

 

[Eric D]

Il faut obligatoirement mettre un "=" devant chaque formule (même s'il n'y a qu'un seul chiffre.

@+
Eric

 

[fb40]

OK, merci pour votre aide. tout marche bien.