Compter sans doublons

bonjour,

une méthode assez classique .


supposons donc que ta plage de cellules à scruter soit A1:A300

sub compte

Set comptuniques as new collection

on error resume next

for each c in range("A1:A300")
comptuniques.add Ucase(c.value) , cstr(c.value)
next

on error goto 0

msgbox comptuniques.count ' te donne le nombre de valeurs uniques

set comptuniques=nothing

end sub

Bon courage

Bonjour à tous,

Dans ma colonne A (a1:a300), j'ai une série de n° de série
qui inclue certaine fois des doublons.
Comment peut on faire pour compter le nombre de n° de
série sans compter les doublons ?

Merci encore à tous pour vos précieux conseils.
Denis

Merci pour ce code.
Dans un userform, cela fonctionne bien si ce code est
lancé par un bouton, le résultat s'affiche dans un TextBox
(TextBox1 = comptuniques.Count)
Mais est-il possible que le résultat apparaisse
automatiquement dans le TextBox à l'ouverture de
l'userform ? sans utiliser de bouton dans l'userform pour
faire apparaitre le résultat.
Merci

-----Message d'origine-----
bonjour,

une méthode assez classique .


supposons donc que ta plage de cellules à scruter soit
A1:A300

sub compte

Set comptuniques as new collection

on error resume next

for each c in range("A1:A300")
comptuniques.add Ucase(c.value) , cstr(c.value)
next

on error goto 0

msgbox comptuniques.count ' te donne le nombre de
valeurs uniques

set comptuniques=nothing

end sub

Bon courage

Bonjour à tous,

Dans ma colonne A (a1:a300), j'ai une série de n° de
série

qui inclue certaine fois des doublons.
Comment peut on faire pour compter le nombre de n° de
série sans compter les doublons ?

Merci encore à tous pour vos précieux conseils.
Denis

.

re,

je n'ai pas le temps d'essayer, mais je ne vois aucun problème à ce que le
textbox , lors de l'evènement Initialize du Userform (donc à l'ouverture de
celui-ci), se nourrisse du résultat d'une procédure compteunique appelée dans
le coprs de l'evenement Initialize.
Fais l'essai, mais franchement, je ne vois pas de souci majeur à priori.

Merci pour ce code.
Dans un userform, cela fonctionne bien si ce code est
lancé par un bouton, le résultat s'affiche dans un TextBox
(TextBox1 = comptuniques.Count)
Mais est-il possible que le résultat apparaisse
automatiquement dans le TextBox à l'ouverture de
l'userform ? sans utiliser de bouton dans l'userform pour
faire apparaitre le résultat.
Merci

-----Message d'origine-----
bonjour,

une méthode assez classique .


supposons donc que ta plage de cellules à scruter soit
A1:A300

sub compte

Set comptuniques as new collection

on error resume next

for each c in range("A1:A300")
comptuniques.add Ucase(c.value) , cstr(c.value)
next

on error goto 0

msgbox comptuniques.count ' te donne le nombre de
valeurs uniques

set comptuniques=nothing

end sub

Bon courage

Bonjour à tous,

Dans ma colonne A (a1:a300), j'ai une série de n° de
série

qui inclue certaine fois des doublons.
Comment peut on faire pour compter le nombre de n° de
série sans compter les doublons ?

Merci encore à tous pour vos précieux conseils.
Denis

.

Essaie ça,


Pair:
=SOMMEPROD((MOD(LIGNE(A1:A10);2)=0)*A1:A10)

Impair:
=SOMMEPROD((MOD(LIGNE(A1:A10);2)=1)*A1:A10)


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT
brault-lavoieNOSPAM@sympatico.ca
--
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news:C80C4991-36FD-4A90-8CD0-E0759DA246B4@microsoft.com...

re,

je n'ai pas le temps d'essayer, mais je ne vois aucun problème à ce que le
textbox , lors de l'evènement Initialize du Userform (donc à l'ouverture
de

celui-ci), se nourrisse du résultat d'une procédure compteunique appelée
dans

le coprs de l'evenement Initialize.
Fais l'essai, mais franchement, je ne vois pas de souci majeur à priori.

Merci pour ce code.
Dans un userform, cela fonctionne bien si ce code est
lancé par un bouton, le résultat s'affiche dans un TextBox
(TextBox1 = comptuniques.Count)
Mais est-il possible que le résultat apparaisse
automatiquement dans le TextBox à l'ouverture de
l'userform ? sans utiliser de bouton dans l'userform pour
faire apparaitre le résultat.
Merci

-----Message d'origine-----
bonjour,

une méthode assez classique .


supposons donc que ta plage de cellules à scruter soit
A1:A300

sub compte

Set comptuniques as new collection

on error resume next

for each c in range("A1:A300")
comptuniques.add Ucase(c.value) , cstr(c.value)
next

on error goto 0

msgbox comptuniques.count ' te donne le nombre de
valeurs uniques

set comptuniques=nothing

end sub

Bon courage

Bonjour à tous,

Dans ma colonne A (a1:a300), j'ai une série de n° de
série

qui inclue certaine fois des doublons.
Comment peut on faire pour compter le nombre de n° de
série sans compter les doublons ?

Merci encore à tous pour vos précieux conseils.
Denis

.