Collection - Valeur

Le
Patrick
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20572251
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.


michdenis
Le #20572321
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" discussion :
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
JB
Le #20574301
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
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


JB
Le #20574291
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
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


> 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 -


Publicité
Poster une réponse
Anonyme