Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Compter les valeurs distinctes d'une colonne

Olivier67000

XLDnaute Nouveau
Bonjour à tous,
Je fais appel à vous car je tourne en rond : je cherche à calculer le nombre de valeur distinctes d'une colonne : le tableau contient une colonne contenant des num clients, d'autres colonnes des dates et une dernière colonne des numéros de commande
J'ai pu calculer le nombre de commande distincte en utilisant la fonction sommeprod mais je souhaiterai pouvoir filtrer le tableau et que mon résultat soit recalculer dynamiquement....
Vu l'heure je suis pas certain d’être claire.... (même apres relecture).... Me suis permis d'ajouter un fichier exemple.
Un grand merci à toute âme charitable qui pourrait m'aider...
Excellente soirée à toi
 

Pièces jointes

  • ExsempleSommrpod.xlsx
    11.8 KB · Affichages: 4
Solution
Bonsoir Olivize67000, bienvenue sur XLD,

Voyez le fichier .xlsm joint et cette fonction VBA :
VB:
Function NbUnique(r As Range) As Long
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
For Each r In r
    If r <> "" And Not r.Rows.Hidden Then d(r.Value) = ""
Next
NbUnique = d.Count
End Function
Le code doit être placé impérativement dans un module standard.

Formule en A1 =NbUnique(Tableau1[Num_commande])

Le tableau est un tableau structuré.

Bonne nuit.

job75

XLDnaute Barbatruc
Mais si la variable Ws est déclarée Variant (ou pas déclarée) on peut toujours écrire :
VB:
Sub a()
Dim Ws As Variant, i%
Set Ws = Worksheets
For Each Ws In Ws
    i = i + 1
Next
MsgBox i
End Sub
 

job75

XLDnaute Barbatruc
Le 1er Ws du For est un élément de l'ensemble Ws défini au départ.

De même le 1er r du For est une cellule de la plage r définie au départ.

Tu es libre de trouver tout ça étrange.
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…