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

O

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.
Trier par date Trier par votes

job75

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

Pièces jointes

  • ExsempleDictionary(1).xlsm
    19.5 KB · Affichages: 7
Vote positif 1 Vote négatif
Solution
O

Olivier67000

XLDnaute Nouveau
Bonjour et un énorme merci
Je suis resté buté sur les formules.....))))
Après avoir essayé votre fichier en retour cela fonctionne comme souhaité ))))
Je l'intègre à mon fichier.....
Encore merci
Excellente journée
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour job75, Olivier,

dans ton code VBA, je vois cette ligne : For Each r In r

ça me paraît très bizarre que le r de Each soit comme le r de In r ! c'est normal ? peut-être que ça a un sens caché du genre .Value = .Value ? qui fait un copier / coller valeurs à partir des formules (je sais que tu le sais, mais je l'ajoute pour les autres lecteurs de ce post qui peut-être ne le savent pas).​

soan
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir soan,

Il faut savoir que la ligne For Each r In r n'est exécutée qu'une fois.

On peut donc utiliser la même variable plutôt que d'en créer une autre.

Je fais toujours ça quand c'est possible.

A+
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonsoir job75,

ah ? ok ; mais si c'est exécuté qu'une seule fois,
alors pourquoi mettre une boucle For ?

car dans ce cas, j'aurais remplacé ça :

VB: 
For Each r In r
  If r <> "" And Not r.Rows.Hidden Then d(r.Value) = ""
Next

par ça :

VB: 
  If r <> "" And Not r.Rows.Hidden Then d(r.Value) = ""

y'a plus de boucle For, et on fait
le travail qu'une seule fois.

soan
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@job75

ah non, que ce soit en pas à pas ou non, ça me fait 10 exécutions ! j'en suis sûr car ça m'affiche bien les nombres de 1 à 10 ; mon code VBA est celui-ci :​

VB: 
Option Explicit

Sub Essai()
  Dim r As Range, i%
  Set r = Range("A1:A10")
  For Each r In r
    i = i + 1: MsgBox i
  Next r
End Sub

même si y'a For Each r In r ça fait 10 exécutions car ça affiche 1 à 10 ; si c'était exécuté qu'une seule fois, ça afficherait 1 seulement, et pas 2 à 10 ! bien sûr, je sais que si ça exécute 10× c'est car y'a 10 cellules dans le Range r "A1:A10" ; c'est pour simplifier que j'ai fait une sub plutôt qu'une fonction.​

soan
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
on s'est croisés : j'allais le dire :

edit : oh, attends, j'ai compris ! alors oui, effectivement : en pas à pas, on se rend bien compte que la ligne du For n'est exécutée qu'une seule fois, dans le sens où après le Next r, ça va sur la ligne juste au dessus et pas 2 lignes plus haut ; mais le corps de la boucle est quand même exécuté 10× dans mon exemple !

dans ton programme, le corps de la boucle de For Each r in r est exécuté combien de fois ? si c'est qu'une seule fois, la boucle devient inutile !

voici une boucle classique : For Each cel In Plage ; cel est une variable qui prend les valeurs de Plage ; mais avec For Each r In R le r de gauche n'est pas un sous-élément du r de droite ! c'est surtout ça que je ne comprends pas !​

soan
 
Dernière édition:
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour job75, le fil,

hier j'étais très fatigué, et j'ai mal expliqué c'qui m'paraît bizarre ; alors je reformule :​

1) voici une boucle For .. Each classique :

VB: 
Sub Essai()
  Dim Ws As Worksheet
  For Each Ws In Worksheets
    'corps de la boucle
  Next Ws
End Sub

Ws est 1 feuille, et c'est un sous-élément de Worksheets,
qui est l'ensemble des feuilles ; ça j'comprends.

2) pour ta boucle qui m'semble bizarre :

je remets d'abord ici ton code 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

r est donc un Range passé comme argument à la fonction NbUnique() ; mais plus bas :

For Each r In r : r n'est pas un sous-élément d'un ensemble plus grand puis que c'est aussi r ! donc pour moi, c'est aussi bizarre que si, par rapport à mon 1) tu avais mis For Each Ws In Ws : pour chaque feuille dans une feuille ! c'est ça que j'comprends pas !​

soan
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question
XL 2021 Aide pour la creation d'un graphique
Réponses
6
Affichages
370
gibtoul2
G
E
  • Question
XL 2016 concatener les cellules d'une colonne jusque la derniere non vide
Réponses
7
Affichages
410
Cousinhub
A
  • Question
Microsoft 365 Besoin d'aide pour fabriquer un tableau de bord
Réponses
2
Affichages
538
nat54
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
1 K
TooFatBoy
B
  • Question
Microsoft 365 Compter Valeurs Uniques en fonction d'une valeur
Réponses
4
Affichages
283
mapomme
C
  • Question
Microsoft 365 Transposer des valeurs en 2 colonnes en fonction d'une référence produit
Réponses
9
Affichages
620
Cagnet
C
L
  • Question
Loloboc macro à créer
Réponses
9
Affichages
258
VIARD
V
T
  • Question
Microsoft 365 Ajout d'une conditions dans une formule Somme.si.ens
Réponses
2
Affichages
465
OKBI
O
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
210
CS49
C
V
  • Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
380
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…