compter un nombre

[jmw]

bonjour à tous,
je désire compter un nombre dans une plage de cellule sans utiliser la formule si(ou(a1=1;a2=1;a3=1,..);1;''), faire la somme et recopier cette formule x fois.
exemple:
2 5 7 9
8 2 6 9
4 2 9 1

je voudrais compter le nombre de 2 qui se trouve dans la plage de cellule A13, en utilisant une seule formule et sans me servir de programmation.
Je posède office 2000 et Xp famillial.
Je vous remercie d'avance
jmw

 

[Monique]

Bonjour,

=NB.SI($A$1:$D$3;2)
te donne le nombre de 2 de la plage A13

 

[pascal60]

Salut jmv

Voilà un début =NB.SI(A13;'=2') etla réponse sera de 3 dans la cellule dans laquelle il y aura ta formule.

Mais je pense qu'il y a meilleur que moi pour un complément

A+

 

[pascal60]

Excuse moi monique je n'avais pas vu que tu avais déja répondu

ciao

 

[jmw]

un grand merci, sa fonctionne
A+

 

[rodney]

bonsoir a tous

voici un code du forum , je pense qu il ne te m emqueras que le 5 A RAJOUTER
Sub Bouton2_QuandClic()
Dim c As Range
Dim tablo()
Dim x As Byte, i As Byte, j As Byte
Dim temp As Byte


For Each c In Range('aa7:aa' & Range('aa65536').End(xlUp).Row)
x = 1
ReDim tablo(1 To x)

For i = 0 To 4
Select Case c.Offset(0, i)
Case 1, 2, 3
ReDim Preserve tablo(1 To x)
tablo(x) = c.Offset(0, i)
x = x + 1

End Select
Next i

For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i) < tablo(j) Then
temp = tablo(i)
tablo(i) = tablo(j)
tablo(j) = temp
End If
Next j
Next i

c.Offset(0, 15) = Join(tablo, '')
Erase tablo
Next c

End Sub