Discussion :

[will-1981]

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 :

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
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

[illight]

Ta première ligne, déjà, me donne des boutons :

Code :

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

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 :

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

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

[patricktoulon]

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 :

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

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

moins bon mais fonctionnel(déconseillé)

Code :

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

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

[will-1981]

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

[will-1981]

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 :

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
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

[Marc-L]

Bonjour,

joindre un fichier .xlsx accompagné d'une explication claire & exhaustive du but recherché …

[will-1981]

Bonjour,

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

Merci,
Wilfried

[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