Comment changer la valeur d'un élément d'une collection

Avec ce code (dans excel-vba) - je ajouter à une collection d'un certain nombre d'éléments selon un tableau.
J'utilise la valeur de la matrice comme la clé et la chaîne de la valeur "NULL" comme valeur pour chaque élément ajouté.

Dim Coll As New collection
Dim myArr()

Set Coll = New collection
myArr() = Array("String1", "String2", "String3")

For i = LBound(myArr) To UBound(myArr)
    Coll.Add "NULL", myArr(i)
Next i

Maintenant, si je veux modifier la valeur d'un élément, en l'identifiant par la clé, je dois supprimer l'élément, puis ajouter un élément avec la même clé ou est-il possible de changer la valeur de l'élément?

Ci-dessous est le seul moyen?

Coll.Remove "String1"
Coll.Add "myString", "String1"

Ou est-il quelque chose comme: (je sais que cela ne fonctionne pas)

Coll("String1") = "myString"
Avez-vous essayé d'utiliser un Dictionary (à partir de la bibliothèque de scripts) à la place?
Autant que je sache, et que ce que MSDN dire, c'est la seule façon. La Tasse est correcte, utilisez un dictionnaire au lieu de cela. Si vous décidez de prendre cette route, vérifier cela.
Vous pouvez pas le faire avec la collection de.
Ok, juste une autre question: est-il une contre-indication pour l'utilisation du dictionnaire plutôt que de collection?
Oui. Cela va vous aider. J'ai trouvé l'autre jour: youtube.com/watch?v=dND4coLI_B8

OriginalL'auteur genespos | 2015-04-09

  1. 5

    Vous pouvez également écrire un (public) d'une fonction pour faire des mises à jour à une collection. 

    public function updateCollectionWithStringValue(coll ax Collection, key as string, value as string) as collection
coll.remove key
coll.add value, key
set updateCollectionWithStringValue = coll
end function

    Vous pouvez appeler cette fonction en:

    set coll = updateCollectionWithStringValue(coll, "String1","myString")

    Ensuite, vous avez une doublure à invoquer.

    OriginalL'auteur Jurrian Fahner

  2. 0

    Ne pouvez pas vous utiliser le Before argument pour satisfaire à cette exigence?

    Exemple:

    Sub TestProject()
    Dim myStrings As New Collection
    Set myStringsRef = myStrings

    myStrings.Add item:="Text 1"
    myStrings.Add item:="Text 2"
    myStrings.Add item:="Text 3"

    ' Print out the content of collection "myStrings"
    Debug.Print "--- Initial collection content ---"
    PrintCollectionContent (myStringsRef)
    Debug.Print "--- End Initial collection content ---"

    ' Now we want to change "Text 2" into "New Text"
    myStrings.Add item:="New Text", Before:=2 ' myStrings will now contain 4 items
    Debug.Print "--- Collection content after adding the new content ---"
    ' Print out the 'in-between' status of collection "myStrings" where we have
    ' both the new string and the string to be replaced still in.
    PrintCollectionContent (myStringsRef)
    Debug.Print "--- End Collection content after adding the new content ---"

    myStrings.Remove 3
    ' Print out the final status of collection "myStrings" where the obsolete 
    ' item is removed
    Debug.Print "--- Collection content after removal of the old content ---"
    PrintCollectionContent (myStringsRef)
    Debug.Print "--- End Collection content after removal of the old content ---"

End Sub

Private Sub PrintCollectionContent(ByVal myColl As Variant)
    For i = 1 To myColl.Count()
        Debug.Print myColl.item(i)
    Next i
End Sub

    Ne devrait pas ce faire le travail?

    OriginalL'auteur GeertVc