Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Compter nombre de chiffres

6 réponses
Avatar
Tatanka
Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge

6 réponses

Avatar
michdenis
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge
Avatar
Tatanka
OK merci et Bonne année 2011.

A--
Serge


"michdenis" a écrit dans le message de news: ifknht$48p$
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge

Avatar
michdenis
On peut même enlever un caractère :

=NB(-(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))


MichD
--------------------------------------------

"Tatanka" a écrit dans le message de groupe de discussion : ifkoa0$620$

OK merci et Bonne année 2011.

A--
Serge


"michdenis" a écrit dans le message de news: ifknht$48p$
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge

Avatar
Tatanka
Parlant de simplification :
Dans ta fonction EstNas du 23/12/2010 15:13, ne pourrions-nous pas remplacer :

If Application.Round(S / 10, 5) - Application.Round(S / 10, 0) = 0 Then
EstNas = True
End If

par :

If S Mod 10 = 0 Then
EstNas = True
End If

Si non, pourquoi ?

Serge


"michdenis" a écrit dans le message de news: ifkp4u$7ti$
On peut même enlever un caractère :

=NB(-(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))


MichD
--------------------------------------------

"Tatanka" a écrit dans le message de groupe de discussion : ifkoa0$620$

OK merci et Bonne année 2011.

A--
Serge


"michdenis" a écrit dans le message de news: ifknht$48p$
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge




Avatar
Tatanka
Je crois que c'est possible :
S ne peut prendre que des valeurs comprises entre 1 et 81.
Test :

Sub Vérif()
Dim S As Integer
For S = 1 To 81
Debug.Print S & " " & ((Application.Round(S / 10, 5) - _
Application.Round(S / 10, 0)) = 0) _
& " " & (S Mod 10 = 0)
Next S
End Sub

Serge

"Tatanka" a écrit dans le message de news: ifktgr$igj$
Parlant de simplification :
Dans ta fonction EstNas du 23/12/2010 15:13, ne pourrions-nous pas remplacer :

If Application.Round(S / 10, 5) - Application.Round(S / 10, 0) = 0 Then
EstNas = True
End If

par :

If S Mod 10 = 0 Then
EstNas = True
End If

Si non, pourquoi ?

Serge


"michdenis" a écrit dans le message de news: ifkp4u$7ti$
On peut même enlever un caractère :

=NB(-(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))


MichD
--------------------------------------------

"Tatanka" a écrit dans le message de groupe de discussion : ifkoa0$620$

OK merci et Bonne année 2011.

A--
Serge


"michdenis" a écrit dans le message de news: ifknht$48p$
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge








Avatar
michdenis
Sans tester, j'avais retenu cette formule dont le but
était de s'assurer qu'une opération traînant des poussières
de décimales suite au passage du système décimale à binaire
et binaire à décimale ne serait pas la source d'une mauvaise
réponse...

Comme c'est toi le mathématicien de service, si tu juges que
cela est équivalent... on devrait te faire confiance !
;-))


MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifkvb8$msg$

Je crois que c'est possible :
S ne peut prendre que des valeurs comprises entre 1 et 81.
Test :

Sub Vérif()
Dim S As Integer
For S = 1 To 81
Debug.Print S & " " & ((Application.Round(S / 10, 5) - _
Application.Round(S / 10, 0)) = 0) _
& " " & (S Mod 10 = 0)
Next S
End Sub

Serge

"Tatanka" a écrit dans le message de news: ifktgr$igj$
Parlant de simplification :
Dans ta fonction EstNas du 23/12/2010 15:13, ne pourrions-nous pas remplacer :

If Application.Round(S / 10, 5) - Application.Round(S / 10, 0) = 0 Then
EstNas = True
End If

par :

If S Mod 10 = 0 Then
EstNas = True
End If

Si non, pourquoi ?

Serge


"michdenis" a écrit dans le message de news: ifkp4u$7ti$
On peut même enlever un caractère :

=NB(-(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))


MichD
--------------------------------------------

"Tatanka" a écrit dans le message de groupe de discussion : ifkoa0$620$

OK merci et Bonne année 2011.

A--
Serge


"michdenis" a écrit dans le message de news: ifknht$48p$
Une autre façon d'écrire la même chose,

=NB(--(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))

Une autre formule :
=SUM(--ISNUMBER(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : ifklem$v4g$

Bonjour,

Comment obtenir le nombre de chiffres (0,1,2,3,4,5,6,7,8,9)
d'une chaîne alpha-numérique entrée dans une cellule ?
J'ai cette formule si la chaîne est en A1 :
=NB(1*(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))
(Validation matricielle)

Peut-on la formuler autrement ?

Bonne et pas peureuse année à tous et à toutes !
Serge