combien de fois reviennent les valeurs d'une liste

[matthieu]

bonjour à tous,

j'ai une liste de valeurs avec des valeurs en double
j'aimerais connaitre le nombre de fois que revient la valeur

exemple de liste : 1;1;1;1;2;2;3;3;4;9;9;5;5;5;6;6

je chercher la valeur 3, il doit m'indiquer qu'elle existe 2 fois
je chercher la valeur 5, il doit m'indiquer qu'elle existe 3 fois

Le fichier joint est expliquée
il y a la liste de valeur avec l'IHM

mais il manque la fonction chercher qui m'interresse

voila merci


[file name=Classeur2_20050826111931.zip size=9546]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050826111931.zip[/file]

 

[andré]

Salut,

=NB.SI(C2:C26;3)

Â+

 

[Hervé]

Re:combien de fois reviennent les valeurs d'une li

Bonjour matthieu, re le forum

Ton code pourrait ressembler à ceci :

Private Sub chercher_Click()
Dim c As Range
Dim compteur As Byte

If TextBox1 = '' Then Exit Sub

For Each c In Range('c2:c' & Range('c65536').End(xlUp).Row)
If c = CDbl(TextBox1) Then
compteur = compteur + 1
End If
Next c

TextBox2 = compteur

End Sub

salut

Edition : salut andré

Message édité par: herve, à: 26/08/2005 11:35

 

[matthieu]

Re:combien de fois reviennent les valeurs d'une li

merci à vous pour votre rapidité

la macro est excellente
parfait
merci beaucoup

le NB.SI est pas mal aussi pour d'autre occasion
je ne connaissais pas merci

 

[Sylvie]

Re:combien de fois reviennent les valeurs d'une li

Bonjour Matthieu, bonjour le fil,

Matthieu les macros d'Hervé sont en effet irrésistibles (je parle des macros pas d'Hervé) mais le NB.SI d'André a un charme certain lui aussi et mérite une consommation sans modération (je parle seulement du NB.SI pas d'André )

Voilà je voulais par ce post faire un amical coucou aux deux rapides XLdiens qui m'ont précédé.

Bonne journée à tous

Edition
Heu ... c'est mois qui ait été particulièrement lente sur ce fil, mais disons alors que si Hervé et André ne sont pas si 'rapides' que cela, ils sont indéniablement 'brillants'.

Message édité par: Sylvie, à: 26/08/2005 12:11