Discussion :

[freeman43]

Bonjour,

j'ai développé pour mon entreprise une macros VBA qui me permet de compter les valeurs unique d' une plage passé en paramètre suite à l'application d'un filtre.
Or l'application de filtre est lourd est prend beaucoup de temps et ma question est la suivantes :

Existe-t-il une fonction VBA du style :"application.countifs.Unique" afin de retourner directement ce nombre.

[BENNASR]

bonjour
Affiche ton code, peut etre y a des chose à améliorer car selon les experts de ce super site la méthode la plus rapide et plus conseillée est la méthode de filtre
une méthode avec boucle qui va consommer plus de temps à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub compterSansDoublons()
Dim unique As New Collection
Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
If Cells(cel.Row, 1) <> "" Then
    unique.Add cel.Value, CStr(cel.Value)
    End If
Next cel
 
MsgBox unique.Count
 
End Sub

BONNE CONTINUATION

[patricktoulon]

re
bonjour

encore une question a double sens qui en meme temps n'en a pas

en fait tout depends de ce que tu cherche

valeur unique ca veux dire quoi pour toi????????

des valeurs qui n'existent qu'une seule fois dans la plage??????

ou

des valeurs dont les doublons sont exeptés?????

ca n'est pas la meme chose

dans le cas de doublons exeptés le code de bennnasr peut convenir

dans le cas de valeur existante et unique ca ne convient pas

[freeman43]

Bonjour,

Justement j'utilise cet même fonction.
Mon problème est que j'utilise beaucoup de filtre dans mon code et le temps d'application d'un filtre est long.
Donc j'aurai voulu savoir si il y avais une fonction native du VBA afin de remplacer l'utilisation de filtre afin de retourner ce nombre de valeurs Unique.

@Patricktoulon : pour moi le nombre de valeurs unique, c'est dans le cas ou les doublons sont exeptés.

[patricktoulon]

re

@Patricktoulon : pour moi le nombre de valeurs unique, c'est dans le cas ou les doublons sont exeptés.

dans ce cas on parle d'extraction unique(sans doublons) pas de valeurs uniques
et oui il y a une methode simple et rapide
copie le sheets sur une autre feuille(ajoutée pour l'ocasion si necessaire
et dans ce nouveau sheet un removeduplicate sur la colonne de ton choix

[Philippe Tulliez]

Bonjour,
Nul besoin de VBA pour effectuer ce calcul.
A lire Comment compter le nombre de valeurs distinctes dans une colonne d’excel

[freeman43]

Bonsoir,

Je veux en VBA connaitre le nombre de valeurs unique d'une colonne après avoir appliqué un filtré sur d'autres colonne mais sans utiliser Autofilter.