Compte doublons

[Pierre31]

Bonjour à tous,

En VBA comment je peux rechercher et compter dans une colonne de longueur variable le nombre de fois que l'on trouve par exemple le mot 'TOTO' et ensuite afficher en cellule 'A1' le nombre d'occurences
D'avance merci pour vos réponses
Cordialement
Pierre

 

[Hervé]

bonjour pierre

sans boucle :

Range('a1') = Application.CountIf(Columns('b'), 'toto')

avec boucle :

Dim c As Range, cpt As Integer


For Each c In Range('b2:b' & Range('b65536').End(xlUp).Row)
        cpt = cpt - (c = 'toto')
Next c
Range('a1') = cpt

données en colonne B dans les exemples.

salut

 

[Temjeh]

Bonjour à tous

Voir zip

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

Bang bang ...désolé Hervé

A+

Message édité par: temjeh, à: 24/05/2006 14:32

 

[Pierre31]

Bonjour Hervé,
Une fois de plus tu me sort de la panade.
Merci beaucoup
Bon aprés-midi
Cordialement
Pierre

 

[Pierre31]

Bonjour Temjeh,
Merci à toi aussi.
Excuse moi mais ton message est arrivé au moment ou j'ai envoyé ma réponse à Hervé.
Cordialement
Pierre