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)
Bonsoir Gael, merci pour ta rapidité. mais ça ne fonctionne pas ou alors je fais mal quelque chose. J'ai écrit
=Somme(1/NB.SI(B6;B65536))
mais ça ne fonctionne pas
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
re, je viens de tester la formule de l'ami bruno elle marche trés bien ???
si tu peus te passer de macro a mon avis il faut le faire plus simple & surtout plus rapide que vba dans certains cas. a tu mis 419 a la place de400???
Function NbDoublon(Plage As Range)
Dim V As New Collection, c As Range
Application.Volatile (True)
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Plage
If c <> "" Then V.Add c.Value, CStr([c])
Next c
On Error GoTo 0
NbDoublon = V.Count
End Function
Dans une cellule de la feuille =NbDoublon(B6:B419)
A+
NB : au passage, jolie présentation de fichier mon cher Grosquick59