Discussion :

[mullger]

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



Merci d'avance

[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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB1(E22)

[mullger]

Je vais essayer et je prendrai la plus simple !

Merci pour les solutions et bonne journée

[mullger]

Faut-il rajouter quelquechose pour avoir les fonctions sur les chaînes de caractères ?

[jmfmarques]

I KICETI KI SE AKOI SERT LE CHIFFRE 9 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  MsgBox Str(a Mod 9)

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

[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?)

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

[SfJ5Rpw8]

I KICETI KI SE AKOI SERT LE CHIFFRE 9 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  MsgBox Str(a Mod 9)

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

lol je ne connaissais pas... ça marche, mais c'est limité à un octet.. faut voir si cela suffit..

[jmfmarques]

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


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

[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 ?

[SfJ5Rpw8]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(E22;9)

[random]

utilises ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!D912)
par exemple

[random]

en plus fun pour une seule cellule

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

[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

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

[mullger]

Eh ben j'aurai vraiment appris quelquechose aujourd'hui

encore merci et bonne journée

[jmfmarques]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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