Discussion :

[docv266]

Bonjour,

J'ai un petit souci :

J'ai 2 collections c1 et c2.

Je souhaite à un moment donné, conserver l'une des deux dans l'autre
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c2 = c1

puis modifier la première
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c1.add("toto")

et enfin retrouver ma valeur d'origine
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c1 = c2

Le truc c'est que je crois que c2 suit les mêmes changements que c1. Donc lors de la réaffectation, c1 ne retrouve pas a valeur d'origine...

Que faire?

Merci!

[Nessie37]

Bonjour,
C'est quoi c1 et c2 ?

[docv266]

Ce sont mes deux collections (je l'ai marqué au début).
En fait je les déclare comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c1, c2 as New Collection

[=JBO=]

Bonjour,

Attention, tu tombes dans un piège classique de VB/VBA:
Dans la déclaration d'une liste de variables, chaque variable a un type distinct de celui des autres variables de la liste.
Ne pas spécifier un type revient à spécifier le type Variant.

La déclaration suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c1, c2 As New Collection

est équivalente à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c1 As Variant, c2 as New Collection

Donc, si tu veux vraiment que c1 soit une collection, tu dois corriger ta déclaration ainsi (où l'opérateur New n'est pas forcément nécessaire):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c1  As New Collection, c2 as New Collection

Ensuite...

J'ai 2 collections c1 et c2.

Je souhaite à un moment donné, conserver l'une des deux dans l'autre
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c2 = c1

puis modifier la première
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c1.add("toto")

et enfin retrouver ma valeur d'origine
->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c1 = c2

VB/VBA ne sait pas faire la copie d'un objet dans un autre.
Il faut programmer la copie, par exemple comme ceci:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim c1 As New Collection, c2 As Collection , v As Variant
 
   ... ton code ...
 
 ' et puis tu veux "sauver" c1 en copiant son contenu dans c2
Set c2 = New Collection
 
For Each v In c1
    c2.Add v
Next v

Enfin, tu veux "récupérer" dans c1 ton objet tel qu'il a été sauvé dans c2...

Le plus simple est de "jeter" l'objet actuellement référencé par c1 et de faire "pointer" c1 sur l'objet collection créé au moment de la copie.
Enfin, éventuellement tu peux "libérer" c2 pour qu'il ne référence pas le même objet que c1.

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set c1 = c2
Set c2 = Nothing