Bonjour
je souhaite remplir un dictionnaire "DicLe" a partir d'un tableau "Arr" en utilisent le fonction concaténer et coller resultat dans la colonne O
voici le code qui bloc dans la partie remplissage du dictionnaire
Merci
je souhaite remplir un dictionnaire "DicLe" a partir d'un tableau "Arr" en utilisent le fonction concaténer et coller resultat dans la colonne O
voici le code qui bloc dans la partie remplissage du dictionnaire
VB:
Sub Test()
Dim DicLe As Object
Dim ShOv As Worksheet
Dim Arr
Dim LignA As Long
'=============================================================
Set ShOv = ThisWorkbook.Worksheets("test")
LignA = ShOv.Cells(ShOv.Rows.Count, 1).End(xlUp).Row
Arr = ShOv.Range("A2:N" & LignA).Value
Set DicLe = CreateObject("Scripting.Dictionary")
'============================================================
For i = LBound(Arr, 1) To UBound(Arr, 1)
DicLe(i) = Arr(i, 8) & "_" & Arr(i, 1) & "_" & Arr(i, 13) & "_" & Arr(i, 14)
Next i
'============================================================
ShOv.Range("O2") = DicLe
End SubMerci