Discussion :

[Kestion100]

Après correction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim f2 As Worksheet
Set D = CreateObject("Scripting.Dictionary")
Set f2 = Sheets(2)
   TblBD1 = f2.Range("A1:A" & f2.Range("A" & Rows.Count).End(xlUp).Row, "E1:E" & f2.Range("E" & Rows.Count).End(xlUp).Row)
 
    For I = 1 To UBound(TblBD1)
    clé = TblBD1(I, 1) & TblBD1(I, 2)
    D(clé) = D(clé)
    Next I
    MsgBox D.Count - 1
End Sub

Mais même résultat qu'avec une seule colonne.

[BENNASR]

et ma dernière réponse??

[Alex020181]

Ah c'est nettement plus simple avec des exemples concrets

pour reprendre ton fichier:

Origine:

0
1
6
0
4
10
1
.
.
.

Dans cette colonne j'ai 5 valeurs différentes:

0
1
6
4
10

C'est ce chiffre que je cherche à obtenir

Sur 2 colonnes, plus ardu:


0 1
3 2
0 1
4 1
6 2
.
.
.

Ici, 4 couples différents:

0 1
3 2
4 1
6 2

4 est le chiffre que je cherche

Je t'ai modifié mon fichier. Tu as toujours le premier bouton pour le compte général et je t'ai mis un second bouton pour faire le compte précis d'élément des listes sans doublons comme demandé dans ces 2 postes.

Pour cette nouvelle analyse je t'ai mis en B1 le compte par code et en C1 le compte par formules (idem E1 et F1).

PS; à toi de simplifier le code car une partie de ce que j'ai fait correspond à la création de la feuille "Analyses" en plus du simple compte.

[Kestion100]

Je crois comprendre que tu passes effectivement par une suppression des doublons:

Code :

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

Sheets("analyses").Range("G1:H1048576").RemoveDuplicates Columns:=VBA.Array(1, 2), Header:=xlYes

Tu les mets dans un Array:

Code :

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

=VBA.Array(1, 2)

C'est bien ça?


Après, un Ubound sur cet Array serait bon pour moi si c'est possible????

[Kestion100]

En tout cas, en alimentant un array avec un remove duplicate si c'est possible.
Mais j'ai cru comprendre que la solution proposée par THAUTHEME revient à alimenter d'abord un array puis à effectuer ce qui revient à un array, et ça à l'air de fonctionner pour une colonne mais pas pour 2.

Ton code me paraît parfait mais si je pouvais "virtualiser" l'étape remove duplicate, et ce sur 2 colonnes, j'aurais exactement ce que je chercher

[Kestion100]

Trouvé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set O = Worksheets(2) 'définit l'onglet O (à adapter a ton cas)
TV = O.Range("A2:E" & FinTab)  'définit le tableau des valeurs TV (à adapter à ton cas)
 
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For i = 2 To FinTab - 1 boucle sur toutes les lignes du tableau des valeurs TV (en partant de la seconde)
    D(TV(i, 1) & TV(i, 4)) = "" '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
 
Range("L8") = UBound(TMP) + 1

En à peine une seconde sur un tableau de 25000 lignes