Discussion :

[cdurep]

Existe-t-il une fonction qui permette de retrouver le pose d'une table à partir d'un critère sans écrire une boucle. Exemple une table à 3 dimensions contenant des types, des sous types et le compteur des sous types; comment rechercher un sous types donné pour l'incrémenter autremant que par une boucle du type For a = 1 to xxx Next.
Merci d'avnce

[BlueMonkey]

Bonjour,

Tu peux utiliser le type Dictionary pour récupérer les compteurs depuis des clés de type String.

Ajouter la référence Microsoft Scripting Runtime pour pouvoir utiliser le type Dictionary

exemple :

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
Sub test()
    Dim MesTypes As Dictionary
    Set MesTypes = New Dictionary
    With MesTypes
 
        ' ajout des types
        Call .Add("1", New Dictionary)
        Call .Add("2", New Dictionary)
        Call .Add("3", New Dictionary)
 
        'ajout des sous-type & compteurs
        With .Item("1")
            Call .Add("1.1", 1)
            Call .Add("1.2", 2)
            Call .Add("1.3", 3)
        End With
 
        With .Item("2")
            Call .Add("2.1", 21)
            Call .Add("2.2", 22)
            Call .Add("2.3", 23)
        End With
 
    End With
 
    'lecture d'un compteur depuis les clés type & sous-type
    MsgBox (MesTypes.Item("2").Item("2.1"))
 
    Set MesTypes = Nothing 'important : libérer la mémoire sinon erreur d'execution
End Sub