as Collection / as Names

Bonjour les gars,
Je veux ecrire une petite routine qui parcourt la collection Names de mon classeur actif et affiche ensuite leur nom.
Le probleme est que quand je declare la variable MesNoms comme Names tout se passe bien. Mais si je la declare comme Collection ma routine beugue. Names est pourtant une collection !!!

Aidez moi svp a comprendre ce qui ne marche.

Thanks in advance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub CollectionNames()   'quelqu 'un peut_il m'expliquer pourquoi quand je declare MesNoms comme une Collection, ma procedure ne marche pas?   Dim MesNoms As Names 'tout marche bien avec Names   'Dim MesNoms As Collection 'as Collection ca ne marche plus. 'bien evidemment je n'utilise pas les 2 declarations a la fois. Dim i As Name Dim k As Integer   Set MesNoms = Application.ActiveWorkbook.Names Debug.Print TypeName(MesNoms) Dim Num As Integer Num = MesNoms.Count Debug.Print Num   For k = 1 To Num Debug.Print MesNoms(k).Name Next k End Sub

---

Bonjour,

Une collection est un objet
La collection Names est un objet (s'agissant d'une collection, elle est du type ... de l'objet Names)
Fais cette exéprience :

Code:

---

Msgbox TypeName(ActiveWorkbook.Names) ' --->> te retournera NBammes et non Collection.

---

tu dois donc déclarer mesnoms ainsi :

Code:

---

Dim MesNoms As Object

---

Quel obvjet, mauintenant ? --->> c'est précisément ce que définit ton instruction :

Code:

---

Set MesNoms = Application.ActiveWorkbook.Names

---

Edit ;
Complète ton expérience par celle-ci

Code:

---

1 2 3 4

Dim MesNoms As Collection msgbox typename(MesNoms) ' ''''' --->> Nothing Dim MesNoms2 As New Collection msgbox typename(MesNoms2) ' ''''' --->> Collection, maintenant, puisqu'ainsi définie

---

Names (la collection Names) a été créée en 3 temps : temps1 : comme New collection - temps 2 : remplissage de la collection --->> temps 3 : elle est devenue un objet à part entière

Si donc, tu voulais avoir ton propre objet/collection macollection avec les même membres dque ceux de l'objet/collection Names, ce serrait possible (mais à quoi bon ?) en :
- déclarant macollection comme New Collection
- puis en l'alimentant avec chacun des membres de la collection Names (méthode Add).
A quoi servirait cette gymnastique ? A rien de mieux que la collection déjà existante !

merci bcp pour la reponse on ne peut plus claire.elle m'as permis de surmonter ma difficulté.