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

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

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