Vider une collection, alternative à Remove ? [Résolu]

[jpcheck]

Bonjour à tous,
je travaille actuellement sur une optimisation de code existant. J'ai notamment une fonction qui m'initialise toutes les collections utilisées.

le code actuellement est du type :

Code :

1
2
3
4
5
6
7
Sub InitOneCollection(colMesure As Collection)
Dim intCompteur as Double
For intCompteur = 1 To colMesure.Count
    colMesure.Remove 1
Next
set intCompteur= Nothing
End Sub

j'aimerais savoir s'il est possible de "vider" la collection par une autre méthode, du style :

Code :

1
2
3
4
5
6
Sub InitOneCollection(colMesure As Collection)
 
Set colMesure  = Nothing
'puis
Set colMesure = CreateObject("Collection")
End Sub

mais je souhaite quand même la garder en tant que collection, vu que je dois l'utiliser par la suite dans le programme.

Des idées ?

Merci d'avance.

[tirex28]

Bonjour,

Je pense qu'il suffit d'affecter un nouvel objet collection à ta variable:

Code :

1
2
3
Sub InitOneCollection(colMesure As Collection)
Set colMesure = New Collection
End Sub

Cordialement,

Tirex28/

[jpcheck]

c'est exact,
par habitude, je garde le = nothing

Code :

1
2
3
4
Sub InitOneCollection(colMesure As Collection)
Set colMesure  = Nothing
Set colMesure = New Collection
End Sub

merci pour la confirmation