Excel, compter le nombre de 1 d'une cellule [Trucs & Astuces]

**mullger** · 04/05/2006, 09h04

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** · 04/05/2006, 09h12

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** · 04/05/2006, 09h13

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** · 04/05/2006, 09h17

Je vais essayer et je prendrai la plus simple !

Merci pour les solutions

et bonne journée

**mullger** · 04/05/2006, 09h27

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

**jmfmarques** · 04/05/2006, 09h28

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** · 04/05/2006, 09h32

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** · 04/05/2006, 09h37

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** · 04/05/2006, 09h38

Envoyé par 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)

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

**jmfmarques** · 04/05/2006, 09h41

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** · 04/05/2006, 09h44

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** · 04/05/2006, 09h51

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

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 :

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

=MOD(E22;9)

**random** · 04/05/2006, 10h02

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

12)
par exemple

**random** · 04/05/2006, 10h31

en plus fun pour une seule cellule

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

**mullger** · 04/05/2006, 10h43

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** · 04/05/2006, 11h13

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** · 04/05/2006, 11h17

Eh ben j'aurai vraiment appris quelquechose aujourd'hui

encore merci et bonne journée

**jmfmarques** · 04/05/2006, 11h47

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)

Excel, compter le nombre de 1 d'une cellule [Trucs & Astuces]

Macros et VBA Excel

Discussions similaires

Partager

Partager