Excel, compter le nombre de 1 d'une cellule

Version imprimable

04/05/2006, 09h04
mullger

Excel, compter le nombre de 1 d'une cellule

Bonjour tout le monde,

je réalise un petit projet en Excel et je dois compter le nombre de 1 de plusieurs cellules qui contiennent des nombres binaires. Sauf que je ne sais pas s'il existe une fonction pour faire ça et le cas échéant comment je peux le faire en VBA ???

:marteau:

Merci d'avance
04/05/2006, 09h12
illight

Utlise les fonctions Instr, mid et autres fonctions sur les chaines de caractères qui te permettent de trouver les caractères ;) dès que tu tombes sur un 1 tu rajoute un a une variable et au final tu auras ton nombre de 1

je connais pas de fonction.. permettant de compter un caractére dans une chaine... tiens en voila une en vba :
Code:

1 2 3 4 5 6 7 8 9 Function Nb1(st As String) As Integer Dim i As Integer Dim nb As Integer For i = 1 To Len(st) If Mid(st, i, 1) = "1" Then nb = nb + 1 Next Nb1 = nb End Function
tu l'utilise dans ta feuille excel ensuite :

Code:

=NB1(E22)

04/05/2006, 09h17
mullger

Je vais essayer et je prendrai la plus simple !

Merci pour les solutions :D et bonne journée
04/05/2006, 09h27
mullger

Faut-il rajouter quelquechose pour avoir les fonctions sur les chaînes de caractères ?
04/05/2006, 09h28
jmfmarques

I KICETI KI SE AKOI SERT LE CHIFFRE 9 ?

Code:

MsgBox Str(a Mod 9)

donne tout bêtement le nombre de 1 dans un binaire (donc des 1 et 0 uniquemen):mouarf::salut:
04/05/2006, 09h32
mullger

Merci je sais encore ce qu'est un nombre binaire, mais je préférerais utiliser une fonction plutôt que d'utiliser VBA. Au passage la réponse était peut-être très drôle, (personellement j'ai pas trouvé) mais je n'ai pas compris la solution proposée (ma faute?)
04/05/2006, 09h37
jmfmarques

Ben mon vieux !
Que veux-tu de plus !
choisis un nombre binaire a
par exemple
a = 11001010
et envoie ce que je t'ai dit !
tu obtiendras 4 (puisque 4 chiffres 1)
04/05/2006, 09h38
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

I KICETI KI SE AKOI SERT LE CHIFFRE 9 ?

Code:

MsgBox Str(a Mod 9)

donne tout bêtement le nombre de 1 dans un binaire (donc des 1 et 0 uniquemen):mouarf::salut:

lol je ne connaissais pas... ça marche, mais c'est limité à un octet.. faut voir si cela suffit..
04/05/2006, 09h41
jmfmarques

Ben non !
A tout binaire (donc composé de 1 et de 0)
Dans la limite d'un long, bien évidemment !:mouarf:

Je reviendrai un jouir expliquer à quoi sert le chiffre 7 puis le chiffre 11;)
04/05/2006, 09h44
mullger

alors autre question, parce que vba et moi on est pas encore amis. comment je fais pour que ça me prenne le contenu d'une cellule et que ça renvoie ce fameux nombre de 1 dans une autre cellule ?
04/05/2006, 09h51
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

Je reviendrai un jouir expliquer à quoi sert le chiffre 7 puis le chiffre 11;)

il me manque des messages ?? je ne vois nulle part ces 7 et 11..

Citation:

Envoyé par mullger

alors autre question, parce que vba et moi on est pas encore amis. comment je fais pour que ça me prenne le contenu d'une cellule et que ça renvoie ce fameux nombre de 1 dans une autre cellule ?

. pour appliquer la méthode dans une feuille de calcul on fait bien une formule du genre :

Code:

=MOD(E22;9)

utilises ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Base 1
Function comptecar(cara As String, ParamArray mescel() As Variant) As Long
'cara est le caractère à chercher
Dim parcourt As Variant
Dim bouclerange As Variant
Dim bouclecell As Integer
Dim compteur As Long
For Each parcourt In mescel
If VarType(parcourt) >= 8192 Then
'le range est composé de plusieurs cellules
    For Each bouclerange In parcourt
        For bouclecell = 1 To Len(bouclerange)
        If Mid(bouclerange, bouclecell, 1) = cara Then compteur = compteur + 1
        Next bouclecell
    Next bouclerange
Else
    For bouclecell = 1 To Len(parcourt)
    If Mid(parcourt, bouclecell, 1) = cara Then compteur = compteur + 1
    Next bouclecell
End If
Next parcourt

tu te places dans une cellule et tu tapes
=comptecar("1";A7:A15;C7:C8;E7;E10;E12;Feuil2!D9:D12)
par exemple

04/05/2006, 10h31
random

en plus fun pour une seule cellule

=NBCAR(A7)-NBCAR(SUBSTITUE(A7;"1";""))
04/05/2006, 10h43
mullger

Merci jmfmarques pour ta solut, j'ai un peu paniqué mais en fait c'est tout simple et ça marche super ! Est-ce que tu serais-ok pour m'expliquer un peu ce que cette petite ligne (qui me parait magique pour l'instant) fait ?

Merci aussi pour les autres solutions
04/05/2006, 11h13
jmfmarques

C'est facile (arithmétique pure) :
le reste de la division d'un chiffre composé de 1 et de 0 par 9 est le nombre de 1 dans le chiffre
ex : 11/9 : reste 2
101/9 reste 2
111/9 reste 3
tout simplement par le jeu des retenues (puisque 1 = 10 -9)
il me reste toutefois à traiter le cas d'un chiffre d'une longueur suéprieure à 8 et qui serait un multiple exact de 9 (cas particulier).
Je reviens donc dans un moment avec cette solution totale !
Pour Bbil : il n'y a pour l'instant aucun message concernant l'emploi du 7 et du 11 (c'est pour plus tard et à d'autres fins:lol: )
04/05/2006, 11h17
mullger

Eh ben j'aurai vraiment appris quelquechose aujourd'hui :D:D:D

encore merci et bonne journée
04/05/2006, 11h47
jmfmarques

Voilà la soluce arithmétique "universelle" (quelle que soit la longueur, dans la limite d'un chiffre long)
Bien s'accrocher :

Code:

MsgBox (Val(Mid(a, 1, Int(Len(a) / 2))) Mod 9) + (Val(Mid(a, (Int(Len(a) / 2) + 1))) Mod 9)

:mouarf: