Nbre de 1 dans une cellule

[LPandre]

Bonjour, je n'ai pas trouvé de fil satisfaisant pour le problème suivant :

une formule pour m'indiquer combien de fois le chiffre 1 est écrit dans une cellule.
Ex : pour 0,11 mais aussi 1,1 ou 11 ou 101 ou 1100, ... le résultat = 2.
NB :Les valeurs sont bien numériques.

Par avance merci.

PS : si le fil existe déjà, pourriez m'indiquer ce que vous avez tapé dans le moteur de recherche, j'ai tapé "Extraction chiffre chaine".

 

[tototiti2008]

Re : Nbre de 1 dans une cellule

Bonjour LPandre,

si ton chiffre en A1,

=SOMME((STXT(TEXTE(A1;"standard");LIGNE(INDIRECT("A1:A"&NBCAR(TEXTE(A1;"standard"))));1)="1")*1)

à valider par Ctrl+Maj+Entrée

 

[LPandre]

Re : Nbre de 1 dans une cellule

C'est résolu ! Merci à toi.

edit : merci tototiti2008, j'ai eu aussi une réponse par fonction : impec.

 

[tototiti2008]

Re : Nbre de 1 dans une cellule

Re,

C'est résolu ? comment ?

 

[Modeste]

Re : Nbre de 1 dans une cellule

Bonjour LPandre,

En utilisant un moteur de recherche (pas celui du forum, mais celui qui est le plus utilisé par le plus grand nombre), ces critères de recherche

nombre caractère identique site:www.excel-downloads.com

... fournissent un certain nombre de résultats sur notre forum préféré, dont celui-ci https://www.excel-downloads.com/threads/nombre-de-caracteres-identiques-dans-une-cellule.20672/ où tu trouveras une formule qui me semble faire ce que tu veux (si ta cellule de départ est A1)

=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"1";""))

Salut tototiti 🙂 en 2004, andré avait trouvé plus court ... ou ta formule fait des choses en plus ??

 

[LPandre]

Re : Nbre de 1 dans une cellule

Merci à toi aussi modeste, tant pour le conseil du moteur de recherche que pour le fil trouvé dont je garde la solution avec les autres.

=> Merci à tous !!

 

[LPandre]

Re : Nbre de 1 dans une cellule

Re,

C'est résolu ? comment ?

un envoi direct (surement un grand timide ! 😉 😉 ) m'a envoyé le code suivant :

Function NombreDe1(val As String) As Integer
Application.Volatile

For i = 1 To Len(val)
If Mid(val, i, 1) = "1" Then
NombreDe1 = NombreDe1 + 1
End If
Next i
End Function
---------
Et dans une cellule

=NombreDe1(A1)

 

[tototiti2008]

Re : Nbre de 1 dans une cellule

Bonjour Modeste,
Re,

=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"1";""))

Je ne sais pas pourquoi, je l'oublie toujours cette méthode là 😀

ou ta formule fait des choses en plus

Pas du tout 🙂