XL 2013 Nombre de valeurs différentes dans un tableau

M

MACx

XLDnaute Occasionnel

• 15 Janvier 2016

• #16

Re : Nombre de valeurs différentes dans un tableau

Génial! Merci beaucoup.

 

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 15 Janvier 2016

• #17

Re : Nombre de valeurs différentes dans un tableau

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Janvier 2016

• #18

Re : Nombre de valeurs différentes dans un tableau

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

 

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 15 Janvier 2016

• #19

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.

 

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 15 Janvier 2016

• #20

Re : Nombre de valeurs différentes dans un tableau

Voici une copie écran

 

Pièces jointes

• ErrorCompilation.PNG

  30.7 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Janvier 2016

• #21

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: 15 Janvier 2016

Vote positif 0 Vote négatif