[Toutes versions] Scripting Dictionary avec plusieurs descendants

Bonjour,

J'utilise une variable de type "Scripting.Dictionary" que je remplissait avec une seule condition. Mais maintenant j'aimerais avoir faire pareil aves les descendants. Je m'explique:

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
 
'Avant.
 
If Not dicCtry.Exists(rngData.Value) Then
   Set colData = New Collection
   dicCtry.Add rngData.Value, colData
End If
 
Set oData = New cDataToImport
With oData
   sType = "Export"
   .sOriginPort = rngData.Offset(0, 1)
   .sDestCtry = rngData.Offset(0, 2)
   .sDestPort = rngData.Offset(0, 3)
   .sCarrier = rngData.Offset(0, 4)
   .sProduct = rngData.Offset(0, 5)
   .lWeight = rngData.Offset(0, 6)
End With
 
'maintenant
 
dicCtry(rngData.Value).Add oData
If Not dicCtry.Exists(rngData.Value) Then
   Set colData = New Collection
   dicCtry.Add rngData.Value, colData
End If
 
If Not dicCtryrngData.Value).Exists(rngData.Offset(0, 1)) Then
   Set colNewData = New Collection
   dicCtry(rngData.Value).Add rngData.Offset(0, 1), colNewData 
End If
 
'... Et après je mets les data

Malheureusement il n'accepte pas de le faire... Est-ce qu'un autre type existe? Ou autre manière?

Merci d'avance

Seba_stien