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:
Malheureusement il n'accepte pas de le faire... Est-ce qu'un autre type existe? Ou autre manière?
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 '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
Merci d'avance
Seba_stien
Partager