bonjour je suis actuellement bloqué avec ce probleme :
j'initialise mon dico
ensuite je souhaiterais boucler sur une plage et verifier si la valeur correspond a un item du Dictionary, pour finalement le copier dans une variable array :
mon probleme se situe au niveau de la condition (if vall then) qui est sensé reconnaitre certaines valeur de la plage comme item présent dans le dictionary !
Merci d'avance. J’espère avoir été clair ^^.
j'initialise mon dico
Code:
dim MonDicoSession as dictonary
Set MonDicoSession = New Dictionary
For i = 1 To nb
MonDicoSession(PlgSetSynthèse(i, 1)) = PlgSetSynthèse(i, 1).Value
End If
Next iensuite je souhaiterais boucler sur une plage et verifier si la valeur correspond a un item du Dictionary, pour finalement le copier dans une variable array :
Code:
Plg = .Range("A5:I" & .Range("A65536").End(xlUp).Row)
ReDim Tbl(1 To 9, 1 To 1)
For i = 1 To UBound(Plg, 1)
vall = MonDicoSession.Exists(PlgSet(i, 1).Value)
[B][U]If vall Then[/U][/B]
C = UBound(Tbl, 2)
For x = 1 To 9
Tbl(x, C) = Plg(i, x)
Next x
ReDim Preserve Tbl(1 To 9, 1 To UBound(Tbl, 2) + 1)
If Nbx = 0 Then Exit For
End If
Next imon probleme se situe au niveau de la condition (if vall then) qui est sensé reconnaitre certaines valeur de la plage comme item présent dans le dictionary !
Merci d'avance. J’espère avoir été clair ^^.
Dernière édition: