Item et dictionnary

[homepyrof53]

Bonjour,
J'utilise souvent :

Dim tab1
Set tab1 = CreateObject("scripting.dictionary")

Dans la la fenêtre afficher les variables locales on a:
tab1
Item 1
Item 2
......

Je souhaiterai récuper les valeurs en utilisant ces Item :
x=tab1.item(2) mais ça ne fonctionne pas
Quelqu'un connait-il la syntaxe
Merci

 

[Efgé]

Re : Item et dictionnary

Bonjour homepyrof53,
Regarde de code si il peut t'aider.

[COLOR=blue]Sub[/COLOR] dico()
[COLOR=blue]Dim[/COLOR] tab1
[COLOR=blue]Set[/COLOR] tab1 = CreateObject("scripting.dictionary")
[COLOR=blue]For[/COLOR] i = 1 [COLOR=blue]To[/COLOR] 11
    tab1.Item(i) = Cells(i, 1)
[COLOR=blue]Next[/COLOR] i
Var = tab1.Item(3)
MsgBox Var
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[homepyrof53]

Re : Item et dictionnary

Ta solution fonctionne car tu utilise Item pour alimenter ton tableau

Voila le code je j'utilise :

Sub toto()
Dim tab1
Set tab1 = CreateObject("scripting.dictionary")

tab1("B") = "B"
tab1("C") = "C"
tab1("E") = "E"
tab1("D") = "D"
tab1("A") = "A"
nb_item=tab1.count
x = tab1.Item(3)
End Sub

x retourne vide !!!!!!!!!!!!!!!!!

 

[JNP]

Re : Item et dictionnary

Bonjour le fil 🙂,
Au choix :

Sub toto()
Dim tab1
Set tab1 = CreateObject("scripting.dictionary")
tab1("B") = "B"
tab1("C") = "C"
tab1("E") = "E"
tab1("D") = "D"
tab1("A") = "A"
nb_item = tab1.Count
x = tab1.Item("C")
MsgBox x
End Sub

Sub toto()
Dim tab1
Set tab1 = CreateObject("scripting.dictionary")
tab1(2) = "B"
tab1(3) = "C"
tab1(5) = "E"
tab1(4) = "D"
tab1(1) = "A"
nb_item = tab1.Count
x = tab1.Item(3)
MsgBox x
End Sub

Bonne journée 😎

 

[Efgé]

Re : Item et dictionnary

Re
Vois pas top l'interet de définir les item en alpha...
Avec ça, ça retourne la valeur attendue:

x = tab1.Item("E")

Cordialement
PS : Bonjour JNP 🙂

 

[Cousinhub]

Re : Item et dictionnary

Bonsoir,

L'item(3) n'existe pas, 3 désignant une clé....
Or tu ne rentres que des clés alphabétiques...

Tu peux essayer ainsi :

Sub toto()
Dim tab1 As Object
Set tab1 = CreateObject("scripting.dictionary")

tab1("B") = "B"
tab1("C") = "C"
tab1("E") = "E"
tab1("D") = "D"
tab1("A") = "A"
nb_item = tab1.Count
tmp1 = Application.Transpose(tab1.items)
tmp2 = Application.Transpose(tab1.keys)
x = tmp1(3, 1)
y = tmp2(3, 1)
End Sub

Bonne soirée

 

[JNP]

Re : Item et dictionnary

Re 🙂,
Bonjour Efgé, Bh² 😉
Ou encore

Sub toto()
Dim tab1
Set tab1 = CreateObject("scripting.dictionary")
tab1("B") = "B"
tab1("C") = "C"
tab1("E") = "E"
tab1("D") = "D"
tab1("A") = "A"
nb_item = tab1.Count
x = tab1.items
For i = LBound(x) To UBound(x)
MsgBox x(i)
Next i
End Sub

Bon courage 😎

 

[Fo_rum]

Re : Item et dictionnary

salut

à voir

Sub toto()
  Dim tab1
  Set tab1 = CreateObject("scripting.dictionary")
  For n = 65 To 69 'de A à E
    tab1(Chr(n)) = [B]0[/B]        '= [B]n'importe quoi[/B]
  Next
  a = tab1.keys
  MsgBox a(4) 'attention, l'index du 1er item est 0
End Sub

 

[homepyrof53]

Re : Item et dictionnary

Mon but final est de faire un tri sur la clé

Dim tab1
Set tab1 = CreateObject("scripting.dictionary")

tab1(cle) = X

ou cle est le résultat de calcul.
Par la suite
for each cle in tab1
l=l+1
cells(l,1)=tab1(cle)
next