Tester une collection vide ou non

Bonjour à tous, j'ai un petit problème je fais une macro pour excel permettant de récupérer des données dans un progiciel ( REQPRO ) et à un moment je dois tester une collection qui est vide ou non mais à chaque fois je ressort une erreur "This collection is empty"

Je tiesn à préciser que je suis en Option Explicit donc tout est déclaré

voici la partie du code code correspondant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

For Each keyPackage In packageKeyList Range("A" & ligne).Value = keyPackage If keyPackage = 1 Then 'Si c'est égal à 1 ne rien faire car sinon ça retourne une erreur. Else 'Positionnement sur le package Set packageChoisi = m_oProj.GetPackage(keyPackage, ePackageWeight_Package) Range("B" & ligne).Value = packageChoisi.Name 'Si nous sommes en fin de collection alors le package est vide If packageChoisi.HasChildren = True Then 'Si le package est vide Range("C" & ligne).Value = "Le package est vide." Exit For Else 'itemcurrent renvoit les packages existant dans le package If Not IsNull(packageChoisi.ItemCurrent) Then Set packageTest = packageChoisi.ItemCurrent Range("C" & ligne).Value = packageTest.Name packageGeneral.MoveNext ligne = ligne + 1 Else 'Si aucun sous-package mais que le package n'est pas vide Range("C" & ligne).Value = "Il n'y a pas de sous-package" ligne = ligne + 1 End If End If ligne = ligne + 1 End If Next keyPackage

---

en rouge la partie qui me pose problème....
bon la suite du code est peut-êter un peu embrouillé à force de modifier mais merci de ne pas prendre en compte

Merci d'avance pour vos réponses !

Bonjour,

essayes comme ça :

Code:

---

If Not packageChoisi is nothing Then

---

sans garantie...

Merci de ta réponse mais ça ne fonctionne pas

et le packageChoisi n'est jamais vide c'est le packageChoisi.ItemCurrent qui est du type Object et qui est vide ou non

Bonjour

Citation:

---

Envoyé par fllyann

le packageChoisi n'est jamais vide c'est le packageChoisi.ItemCurrent qui est du type Object et qui est vide ou non

---

Dans ce cas, tu adaptes la propale de Casefayere.

Code:

---

If Not PachageChoisi.ItemCurrent is Nothing then ...

---

Mais c'est quoi cette propriété ItemCurrent pour une collection? Package choisi est une classe perso avec une propriété qui aurait pu s'appeler CurrentItem?

Cordialement,

PGZ

salut pgz,

j'avais bien adapté la proposition.

enfaite packageChoisi est une classe perso qui permet de sélectionner un package précis.

pour ItemCurrent, ça retourne les éléments de la collection ( uniquement les package)
Enfaite si le package que je test a un sous-package tout se passe bien mais si il n'y a pas de sous-package à ce moment là.... erreur

Merci à vous eux mais finalement j'ai changé mon raisonnement,

dans mon package je ressort les clées des sous-packages et si il y a une clée alors j'utilise la propriété itemCurrent.

Merci à vous deux !

bon mercredi et merci encore