(VBA) Fonction de recherche dans une table

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:

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