Compter des éléments différents dans une même liste

Version imprimable

Bonjour,

Avant de vous demander de l'aide j'ai regardé ce qui se faisait ailleurs, mais ça n'a pas été concluant, j'ai donc créé mon propre code mais comme je ne maitrise pas les Array ou tableau dimensionnel, ça plante.

Mon souhait est de compter le nombre de valeur distincte dans un liste de plusieurs centaines de ligne.

Au départ je faisait un Nb.si( plage(colonne) , critere 1) puis de ça je voulais obtenir le nombre d'éléments distinctes d'une autre plage(colonne) mais avec les formule je séchais.

Du coup, j'ai créé ce code qui me permet d'interroger les ligne suvant mon critère 1 puis d'inclure l'élement en question dans un tableau dimensionnel s'il n'existe pas. Or avec ce code j'ai le message " erreur d'execution 9 : l'indice n'appartient pas à la selection" grrr!!!

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Sub Compteur()
Dim i As Integer, a As Integer, b As Integer, x As Integer, finlist As Integer
 
Dim tab_lot() As Variant
 
Dim tab_ref() As Variant
 
i = 4
 
finlist = Sheets("Réserve M3").Range("A5000").End(xlUp).Row
 
With ActiveSheet
For i = 4 To 36
 
    x = 4
    a = 1
    b = 1
    'zone de recherche
    For x = 4 To finlist
 
        'recherche même emplacement
        If Sheets("Réserve M3").Cells(x, 2) = .Cells(i, 6) Then
 
            'compteur lot
            For a = 1 To UBound(tab_lot, 1)
                If Sheets("Réserve M3").Cells(x, 6) <> tab_lot(a) Then
                    tab_lot(a) = Sheets("Réserve M3").Cells(x, 6)
                    a = a + 1
                End If
            Next a
 
            'compteur ref
            For b = 1 To UBound(tab_ref, 1)
                If Sheets("Réserve M3").Cells(x, 5) <> tab_ref(b) Then
                    tab_ref(b) = Sheets("Réserve M3").Cells(x, 5)
                    b = b + 1
                End If
            Next b
 
        End If
 
    Next x
 
    'retranscription des compteurs
    .Cells(i, 3) = b - 1 'nombre réf
    .Cells(i, 4) = a - 1 'nombre lot
 
Next i
 
End With
 
End Sub

je soupçonne une mausaise déclaration.

Merci

22/10/2014, 17h30
illight
Ta première ligne, déjà, me donne des boutons :aie: :

Code:

Dim i As Integer, a As Integer, b As Integer, x As Integer, finlist As Integer

Pour déclarer des variables, il faut le faire sur plusieurs lignes :
Code:

1 2 3 4 5 Dim i As Integer Dim a As Integer Dim b As Integer Dim x As Integer Dim finlist As Integer
Ensuite, l'erreur, tu ne nous dit pas sur quelle ligne elle est :?
22/10/2014, 17h38
patricktoulon

re

Bonjour
illight ta remarque est fausse
les déclarations peuvent très bien être faite sur une seule ligne
la seule condition qui est conseillée c'est le type
bon

Code:

dim A as string,B as long,C as variant

moins bon mais fonctionnel(déconseillé)

Code:

dim a,b,c

quand le type n'est pas déclaré le type est automatiquement "variant " ce qui implique une prise en charge de la mémoire plus importante

ensuite l'erreur vient du fait que la comparaison entre les cellules et les 2 variable tableau(tab_lot,tab_ref) est faite sans avoir au préalable instruit ces deux variable
ce qui a pour conséquence de comparer quelque chose a rien donc forcement pris en compte

tu devrais regarder du cote de l'object Scripting dictionnary(dictionnaire )

qui quand on l'instruit supprime automatiquement les doublons
le count du dictionnaire te donnerait le nombre de cel différente

moi je dis ca je dis rien ;)
23/10/2014, 13h12
will-1981

Merci patrick, je vais me renseigner sur cet objet que je n'ai jamais utilisé encore.

Modification de code

Alors j'ai écris ceci mais le résultat est mauvais pourtant j'ajoute les éléments s'il n'existe pas et je remets à zéro le tableau à chaque changement d'emplacement.

Merci pour ton aide :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub Compteur()
Dim i As Long, x As Long, finlist As Long
Dim Dico_lot
Dim Dico_ref
 
Set Dico_lot = CreateObject("Scripting.dictionary")
Set Dico_ref = CreateObject("Scripting.dictionary")
i = 4
 
finlist = Sheets("Réserve M3").Range("A5000").End(xlUp).Row
 
With ActiveSheet
For i = 4 To 36
 
Dico_ref.RemoveAll
Dico_lot.RemoveAll
 
    x = 4
 
    'zone de recherche
    For x = 4 To finlist
 
        'recherche même emplacement
        If Sheets("Réserve M3").Cells(x, 2) = .Cells(i, 6) Then
            'ajoute le n° de lot s'il n'existe pas
            If Not Dico_lot.Exists(.Cells(x, 6).Value) Then
                Dico_lot.Add .Cells(x, 6).Value, .Cells(x, 6).Offset(0, 1).Value
            End If
            'ajoute la réfèrence si elle n'existe pas
            If Not Dico_ref.Exists(.Cells(x, 5).Value) Then
                Dico_ref.Add .Cells(x, 5).Value, .Cells(x, 5).Offset(0, 1).Value
            End If
 
 
        End If
 
    Next x
 
    'retranscription des compteurs
    .Cells(i, 3) = Dico_ref.Count 'nombre réf
    .Cells(i, 4) = Dico_lot.Count 'nombre lot
 
Next i
 
End With
 
End Sub

23/10/2014, 14h07
Marc-L

Bonjour,

joindre un fichier .xlsx accompagné d'une explication claire & exhaustive du but recherché …
24/10/2014, 14h22
will-1981

Bonjour,

Sauriez vous pourquoi ma macro ne fonctionne pas comme je le souhaite ?

Merci,
Wilfried
24/10/2014, 16h40
will-1981

Bon j'ai compris mon erreur, c'était tout simplement la source d'information qui était mal renseigné.

Vu que je n'avais pas spécifié de feuille pour ajouter les éléments dans le dico alors qu j'étais dans une boucle "with ... ", j'ajoutais ceux de la feuille active or la source était sur une autre feuille du fichier.

Merci à Patrick qui m'a permis de découvrir une nouvelle utilisation dans VB et de résoudre mon problème.

Bonne continuation à tous,
Will
:mouarf: