Collection - Valeur

Bonjour.
Sub Collection_Test()
Dim cCollection As New Collection
With cCollection
.Add "A"
.Add "B"
.Add "C"
.Add "D"
.Add "E"
.Remove 4
.Add "Z", before:=4
End With
End Sub
Cordialement.
Daniel

Bonjour,

Voici un exemple de code :
Sub Collection_Test()
Dim cCollection As New Collection
With cCollection
.Add "A"
.Add "B"
.Add "C"
.Add "D"
.Add "E"
.Item(4) = "Z"
End With
End Sub

Au moment de modifier la valeur de l'item 4, il y a un message d'erreur :
Object requis.
Savez-vous comment doit être écrit le code pour modifier la valeur de l'item
de la collection ?

Merci pour votre aide.

Bonjour Patrick,

Le deuxième paramètre de la méthode "Add" doit être une chaîne
de caractères (string) permettant d'insérer des entrées uniques dans
la collection.
On peut utiliser faire référence à cette chaîne pour appeler un item
spécifique, supprimer une entrée précise et évidemment remplacer
cet item par un autre.

'---------------------------------
Sub Collection_Test()
Dim cCollection As New Collection
With cCollection
.Add "A", CStr(1)
.Add "B", CStr(2)
.Add "C", CStr(3)
.Add "D", CStr(4)
.Add "E", CStr(5)
.Remove CStr(4)
.Add "Z", CStr(4)
End With
End Sub
'---------------------------------



"Patrick" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de groupe de
discussion : 8D0059D3-6730-4CDF-8BEC-FCFCB2BB8A7D@microsoft.com...
Bonjour,

Voici un exemple de code :
Sub Collection_Test()
Dim cCollection As New Collection
With cCollection
.Add "A"
.Add "B"
.Add "C"
.Add "D"
.Add "E"
.Item(4) = "Z"
End With
End Sub

Au moment de modifier la valeur de l'item 4, il y a un message d'erreur :
Object requis.
Savez-vous comment doit être écrit le code pour modifier la valeur de l'item
de la collection ?

Merci pour votre aide.

--
Patrick

Bonsoir,

Utiliser l'objet dictionary + puissant et +performant

Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To 5
mondico.Item(i) = i
Next i
mondico.Item(4) = 99
[a1:a5] = Application.Transpose(mondico.keys)
[b1:b5] = Application.Transpose(mondico.items)

http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm

JB



On 17 nov, 15:31, Patrick <no.spam.patrick.fre...@iquebec.com> wrote:

Bonjour,

Voici un exemple de code :
Sub Collection_Test()
    Dim cCollection As New Collection
    With cCollection
        .Add "A"
        .Add "B"
        .Add "C"
        .Add "D"
        .Add "E"
        .Item(4) = "Z"
    End With
End Sub

Au moment de modifier la valeur de l'item 4, il y a un message d'erreur :
Object requis.
Savez-vous comment doit être écrit le code pour modifier la valeur de l'item
de la collection ?

Merci pour votre aide.

--
Patrick

Set mondico = CreateObject("Scripting.Dictionary")
mondico.Item(1) = "A"
mondico.Item(2) = "B"
mondico.Item(3) = "C"
mondico.Item(4) = "D"
mondico.Item(4) = "Z"
[a1:a4] = Application.Transpose(mondico.keys)
[b1:b4] = Application.Transpose(mondico.items)

JB

On 17 nov, 19:59, JB <boisgont...@hotmail.com> wrote:

Bonsoir,

Utiliser l'objet dictionary + puissant et +performant

   Set mondico = CreateObject("Scripting.Dictionary")
   For i = 1 To 5
     mondico.Item(i) = i
   Next i
   mondico.Item(4) = 99
   [a1:a5] = Application.Transpose(mondico.keys)
   [b1:b5] = Application.Transpose(mondico.items)

http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm

JB

On 17 nov, 15:31, Patrick <no.spam.patrick.fre...@iquebec.com> wrote:



> Bonjour,

> Voici un exemple de code :
> Sub Collection_Test()
>     Dim cCollection As New Collection
>     With cCollection
>         .Add "A"
>         .Add "B"
>         .Add "C"
>         .Add "D"
>         .Add "E"
>         .Item(4) = "Z"
>     End With
> End Sub

> Au moment de modifier la valeur de l'item 4, il y a un message d'erreur :
> Object requis.
> Savez-vous comment doit être écrit le code pour modifier la valeur de l'item
> de la collection ?

> Merci pour votre aide.

> --
> Patrick- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -