Bonjour,
je souhaite calculer le nombre de valeurs différentes dans une colonne et copier ce nombre dans une autre feuille.
Je prends un exemple :
 
j'ai ~ 400 lignes. Dans la colonne B j'ai plusieurs chiffres identiques comme "0907014a". Je souhaite connaître le nombre de valeurs différentes et copier ce nombre dans une autre feuille ou cellule (pour éviter de prendre en compte les doublons)
 
Voici mon fichier :
http://tsauron.free.fr/EnvoieForumV4.zip
(Liste MDC)
 
par avance, merci

salut, j'ai trouve sur un autre forum. Voici la réponse pour ceux que ça intéresse :
 
Sub nb_doublons()
Dim V As New Collection, c As Range
On Error Resume Next
Application.ScreenUpdating = False
For Each c In Range("B6", Cells(Rows.Count, "b" ).End(xlUp))
If c <> "" Then V.Add c.Value, CStr([c])
Next c
MsgBox V.Count
End Sub
 
Merci à Laetitia pour son aide.

bonsoir,
Une solution en formule :
=SOMME(SI(B6:B500<>"";1/NB.SI(B6:B500;B6:B500)))
(matricielle à valider par Ctrl+Maj+Entr)
A+

La formule ne fonctionne que lorsqu'on copie dans une même feuille. (enfin je crois)
Avec la macro je peux copier dans une autre feuille.
Merci galopin01

edit : il suffit de faire des copier / Coller avec liaison. Autant pour moi. En fait ce sera beaucoup plus simple avec cette formule. Merci Galopin01