Discussion :

[Bonero]

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 :

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

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

[babaothe]

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 :

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

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

tu dois donc déclarer mesnoms ainsi :

Code :

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

Dim MesNoms As Object

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

Code :

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

Set MesNoms = Application.ActiveWorkbook.Names

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

Code :

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

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 !

[Bonero]

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