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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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.
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 ?
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
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" a écrit dans le message de groupe de 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
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 ?
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" a écrit dans le message de groupe de 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
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)
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)
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 ?
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)
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 ?
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)
> 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 -
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)
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 -
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)
> 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 -