XL 2013 Nombre de valeurs différentes dans un tableau

MACx

XLDnaute Occasionnel
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...
 

Pièces jointes

  • NbDifferents.MACx.v1.xlsx
    122.8 KB · Affichages: 49
  • NbDifferents.MACx.v1.xlsx
    122.8 KB · Affichages: 47

Si...

XLDnaute Barbatruc
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
Code:
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 !
 

Pièces jointes

  • Compte dans Tableau.xlsm
    142.4 KB · Affichages: 29
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 529
dernier inscrit
StarExcel