Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment me débarrasser de mes Items en mémoire

Comment me débarrasser de mes Items en mémoire

3 réponses
Avatar
Starwing
Bonjour =E0 tous,

Je coince encore...


Dim Data As New Collection =20

For I =3D 1 to 5

Bla bla bla..
=20
On Error Resume Next
For Each Cellule In MesCellules
Data.Add Cell.Value, CStr(Cell.Value)
Next Cellule

bla bla bla...

Ici j'aimerais que Data n'est plus rien en m=E9moire pour=20
qu'il ne me double pas les m=EAmes donn=E9es...
J'ai essay=E9 Data.Delete, Data.Remove,....


Next I



Merci,
Starwing
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Starwing
Merci à tous,

j'ai fini par trouver...


;-))

Starwing
Avatar
isabelle
bonjour Starwing,

For it = 1 To Data.Count
Data.Remove it
Next

isabelle


Bonjour à tous,

Je coince encore...

Dim Data As New Collection

For I = 1 to 5

Bla bla bla..

On Error Resume Next
For Each Cellule In MesCellules
Data.Add Cell.Value, CStr(Cell.Value)
Next Cellule

bla bla bla...

Ici j'aimerais que Data n'est plus rien en mémoire pour
qu'il ne me double pas les mêmes données...
J'ai essayé Data.Delete, Data.Remove,....

Next I

Merci,
Starwing


Avatar
Frédéric Sigonneau
Bonjour,

Pour 'vider' une collection de son contenu :

Sub test()
Dim data As New Collection
For i = 1 To 5
data.Add i
Next
MsgBox data.Count
Set data = Nothing 'ici...
MsgBox data.Count
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous,

Je coince encore...


Dim Data As New Collection

For I = 1 to 5

Bla bla bla..

On Error Resume Next
For Each Cellule In MesCellules
Data.Add Cell.Value, CStr(Cell.Value)
Next Cellule

bla bla bla...

Ici j'aimerais que Data n'est plus rien en mémoire pour
qu'il ne me double pas les mêmes données...
J'ai essayé Data.Delete, Data.Remove,....


Next I



Merci,
Starwing