XL 2013 Nombre de valeurs différentes dans un tableau

[MACx]

Bonjour à vous et bien sûr Excellent année 2016, tout plein de formules et de casses têtes 😉

En voici une qui devrait amuser les plus experts:

Dans le tableau ci-joint il y a des cellules remplies (d'autres pas) avec des valeurs qui parfois se répètent.
Mon but est de connaître le nombre de valeurs différentes dans la totalité du tableau (sans compter deux fois la même valeur).

Merci d'avance à celui ou celle qui saura me trouver LA ou une solution...

 

[MACx]

Re : Nombre de valeurs différentes dans un tableau

Génial! Merci beaucoup. 🙂

 

[MACx]

Re : Nombre de valeurs différentes dans un tableau

Pierrejean,
J'obtiens pour dercol --> Erreur de compilation: Variable non définie 🙁

 

[pierrejean]

Re : Nombre de valeurs différentes dans un tableau

Re
avec un fichier exemple j'y verrai plus clair !!!

 

[MACx]

Re : Nombre de valeurs différentes dans un tableau

Toujours le même fichier.
J'ai comparé avec le mien (original) et dans celui où tu as travaillé toi il n'y a pas: Option Explicit
Je ne vois que ça comme différence.

 

[MACx]

Re : Nombre de valeurs différentes dans un tableau

Voici une copie écran

 

[Si...]

Re : Nombre de valeurs différentes dans un tableau

salut

tu as un tableau, donc, dans les macros, peu importe sa position. Déplace le pour contrôler cela


Nota : la macro est exécutée à l’activation de la feuille cible

Private Sub Worksheet_Activate()
  Dim D, C As Range
  Set D = CreateObject("Scripting.dictionary")
  For Each C In [Tb]: D(C.Value) = C: Next	'Tb : tableau de base renommé ainsi
  [A:A].Delete: [A1] = "ID Patients"
  [A2].Resize(D.Count) = Application.Transpose(D.keys)
  [B1] = "Nombre de Patients"
  'attention au vide
  [B2] = D.Count + (Application.CountBlank([Tb]) > 0)
End Sub

Attention, Option Explicit oblige à déclarer les variables. On peut les déclarer sans cela. La déclaration permet de réduire les délais d'éxecution donc d'attente quand le nombre de données à traiter est très conséquent !