Discussion :

[Kestion100]

Bonjour,
Je cherche à calculer le nombre d'occurrences uniques des valeurs dans une ou deux colonne avec nombre de lignes très importants.

J'ai trouvé les formules:

Code formule :

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

=SOMME(SI('MEF NAT MAT'!$A$2:$A$73787<>"";1/NB.SI('MEF NAT MAT'!$A$2:$A$73787;'MEF NAT MAT'!$A$2:$A$73787)))

Et:

Code formule :

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

=SOMME(SI('MEF NAT MAT'!$A$2:$A$73787<>"";1/NB.SI.ENS('MEF NAT MAT'!$A$2:$A$73787;'MEF NAT MAT'!$A$2:$A$73787;'MEF NAT MAT'!$D$2:$D$73787;'MEF NAT MAT'!$D$2:$D$73787)))

Mais comme vous l'avez remarqué, elles portent sur 73787 lignes et cela rend le calcul, au moins, fastidieux et, en tout cas, inutilisable.

Existe-t-il un moyen autre d'effectuer de tels calculs de façon utilisable.


MERCI BEAUCOUP

[Thautheme]

Bonjour Kestion, bonjour le forum,

Par formule je ne sais pas faire... Une proposition VBA avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Long 'déclare la variable I (Incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim R As Range 'déclare la variable R (Recherche)
Dim T As String 'déclare la variable T (Texte)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
TV = O.Range("A1:A73787") 'définit le tableau des valeurs TV (à adapter à ton cas)
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To 73787 'boucle sur toutes les lignes du tableau des valeurs TV (en partant de la seconde)
    D(TV(I, 1)) = "" 'alimente le dictionnaire D
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TMP, la liste des éléments du dictionnaire D sans doublon
For I = 0 To UBound(TMP) 'boucle sur tous les élément du tableau temporaire TMP
    If Application.WorksheetFunction.CountIf(O.Range("A1:A73787"), TMP(I)) = 1 Then 'condition : si l'élément est unique
        Set R = O.Columns(1).Find(TMP(I), , xlValues, xlWhole) 'définit la recherche R (recherche l'élément TMP(I) dans la colonne 1 (=A) de l'onglet O
        R.Interior.ColorIndex = 3 'colore en rouge l'intérieur de l'ocuurence trouvée
        T = IIf(T = "", R.Address, T & Chr(10) & R.Address) 'définit le texte T
    End If 'fin de la condition
Next I 'prochain élément de la boucle
MsgBox T 'affiche le texte T
End Sub

[Kestion100]

Merci mais je dois mal me débrouiller, la msgbox est vide.

Je chercher bien un nombre, le nombre de couples (An;Bn) uniques dans ces deux colonnes

[Kestion100]

Je me suis mal exprimé, j'ai, dans ma colonne A:A un certain nombre de valeurs qui se répètent, je voudrais connaître le nombre de valeur mais sans compter les répétitions.

Idem, en B:B.

Je voudrais aussi connaître le nombre de valeurs (An;Bn) sans compter les répétitions.

[Kestion100]

Je crois comprendre que ton code isole les valeurs qui seraient uniques dans une colonne comprenant des valeurs répétées et des valeurs uniques?

[Kestion100]

Peut-être que je peux récupérer le

Code :

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

UBound(TMP)

???

Si ça fonctionne, je te demanderais comment faire sur 2 colonnes