Nombre de valeurs différentes

[grosquick59]

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 :

(Liste MDC)

par avance, merci

 

[Gael]

Re : Nombre de valeurs différentes

Bonsoir Grosquick59, le forum,

Essaye la formule matricielle classique:

=Somme(1/NB.SI(Plage;Plage))

A valider avec ctrl-Maj-Entrée

@+

Gael

 

[grosquick59]

Re : Nombre de valeurs différentes

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

 

[Gael]

Re : Nombre de valeurs différentes

Re,

Il faut mettre la plage en entier:

=Somme(1/NB.SI($B$6:$B$400;$B$6:$B$400))

Une fois validé avec Ctrl-MAj-Entrée, la formule se trouvera automatiquement entre accolades {}

@+

Gael

 

[Compte Supprimé 979]

Re : Nombre de valeurs différentes

Bonjour le fil,

Gael, si je peux me permettre, ça fonctionne aussi avec SOMMEPROD()
=SOMMEPROD(1/NB.SI($B$6:$B$400;$B$6:$B$400))

Et ça evite le : Ctrl-MAj-Entrée
Il y'a toujours un soucis plus tard avec ce genre de manip

A+

 

[grosquick59]

Re : Nombre de valeurs différentes

Je fais exactement ce que tu me dis mais pour moi ça ne fonctionne pas.
J'ai #div/0!

 

[laetitia90]

Re : Nombre de valeurs différentes

bonsoir tous par macro!!

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

 

[grosquick59]

Re : Nombre de valeurs différentes

Merci Laetitia90, ça fonctionne parfaitement.
Une dernière précision, tu fais comment pour utiliser le nombre donné et le copier ailleurs ?

 

[laetitia90]

Re : Nombre de valeurs différentes

re a la place de MsgBox V.Count tu peus faire [a1]=V.Count pour la cellule a1

ou range("a1")=V.Count ou cells(1,1)=V.Count

 

[grosquick59]

Re : Nombre de valeurs différentes

Super merci beaucoup.
Et merci aussi à Gael et BrunoM45
Bonne soirée.

 

[laetitia90]

Re : Nombre de valeurs différentes

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???

=SOMMEPROD(1/NB.SI($B$6:$B$419;$B$6:$B$419))

 

[Gael]

Re : Nombre de valeurs différentes

Bonsoir Laetitia,

Le DIV#0 car il faut prendre uniquement la plage avec les cellules contenant des valeurs.

Le meilleur moyen est de nommer la plage avec une fonction DECALER pour qu'elle soit dynamique.

Insertion-nom-définir
Nom= Plage par exemple
Fait référence à :

=DECALER(B6;;;NBVAL($B:$B)-1;1)

Et la formule devient:

=SOMMEPROD(1/NB.SI(Plage;Plage))

en validant simplement avec entrée, merci bruno

La macro marche très bien aussi mais une fonction serait plus appropriée pour que le recalcul se fasse automatiquement comme avec la formule.

@+

Gael

 

[Compte Supprimé 979]

Re : Nombre de valeurs différentes

Re,

Bonne idée Gael, petite fonction personnalisée

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

 

[laetitia90]

Re : Nombre de valeurs différentes

re, Gael effectivement plus simple...il faut que tu saches je suis trop trop nulle avec les formules c'est pour cela je les propose pas

 

[laetitia90]

Re : Nombre de valeurs différentes

re, Bruno pourquoi cette ligne??? on peut pas la supprimer ???

Application.Volatile (True)