Compte doublons

Hervé

XLDnaute Barbatruc

• 24 Mai 2006

• #2

bonjour pierre

sans boucle :

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

données en colonne B dans les exemples.

salut

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

Supporter XLD

• 24 Mai 2006

• #3

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

 

Pièces jointes

• Test_20060524143134.zip

  8.3 KB · Affichages: 19

Vote positif 0 Vote négatif

P

Pierre31

Guest

• 24 Mai 2006

• #4

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

 

Vote positif 0 Vote négatif

P

Pierre31

Guest

• 24 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif