Nbre de 1 dans une cellule

tototiti2008

XLDnaute Barbatruc

• 29 Novembre 2010

• #2

Re : Nbre de 1 dans une cellule

Bonjour LPandre,

si ton chiffre en A1,

Code:

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

à valider par Ctrl+Maj+Entrée

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 29 Novembre 2010

• #3

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Novembre 2010

• #4

Re : Nbre de 1 dans une cellule

Re,

C'est résolu ? comment ?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 29 Novembre 2010

• #5

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

Cliquez pour agrandir...

... 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)

Code:

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

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

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 29 Novembre 2010

• #6

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

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 29 Novembre 2010

• #7

Re : Nbre de 1 dans une cellule

tototiti2008 à dit:

Re,

C'est résolu ? comment ?

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Novembre 2010

• #8

Re : Nbre de 1 dans une cellule

Bonjour Modeste,
Re,

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

Cliquez pour agrandir...

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

ou ta formule fait des choses en plus

Cliquez pour agrandir...

Pas du tout 🙂

 

Vote positif 0 Vote négatif