Compter nombre de chiffres

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22974781
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
Tatanka
Le #22974871
OK merci et Bonne année 2011.

A--
Serge


"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

michdenis
Le #22975011
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"
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

Tatanka
Le #22975331
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"
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"
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




Tatanka
Le #22975471
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"
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"
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"
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








michdenis
Le #22975951
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"
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"
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"
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








Publicité
Poster une réponse
Anonyme