[VBA-E]Création de contrôle dynamique, propriété illisible

Bonsoir,

à partir d'une macro située dans un classeur, je crée une UserForm dans le projet VBA d'un autre classeur. J'écris aussi dans le module de code de cette UserForm la procédure Initialize qui crée dynamiquement des contrôles sur cette UserForm.

Quand la procédure Initialize de la Userform s'exécute, les contrôles sont créés. A un moment donné, il sont au nombre de 6 exactement.

A ce moment, i vaut 6 et j'essaie de récupérer la hauteur du contrôle numéro 6 comme ceci:

Code:

---

h = Accueil.Controls.Item(i).Height 'h est un Single déclaré explicitement plus haut

---

Le code plante à ce moment là avec l'erreur "Argument non valide".

Quand j'ajoute un espion sur Accueil.Controls.Item(i).Height, le compilateur retourne le même message.

Quand j'ajoute l'espion Accueil.Controls.Item(i) et que je vais voir la valeur de .Height manuellement, là elle s'affiche.

Je ne comprends pas pourquoi. Quelqu'un aurait-il une idée?
Merci.

Et avec ?

Code:

---

h = Accueil.Controls.Item(i-1).Height

---

J'ai essaye avec 1 seul control et il plante comme chez toi, mais Item(0) existe bien...

Ah oui là ça marche mais je fais le difficile et ce n'est pas item(i-1).height qui m'intéresse mais bien item(i). Ce qui me rassure c'est que ça plante aussi chez qu'elqu'un d'autre. Merci quand même.

Oui mais item(5) correspond bien a ton 6e objet...

Non je ne crois pas: la méthode item démarre bien à 1 et pas à 0 donc si tu as 3 contrôle dans Me.Controls tu as item 1, item 2 et item 3.

C'est facile a verifier fait une boucle de 0 à 6 et vois quand ca plante...
Quel type de control est-ce? Si ce sont des boutons, affiche le caption.

Code:

---

MsgBox Accueil.Controls.Item(i).Caption

---

ou le nom

Code:

---

MsgBox Accueil.Controls.Item(i).Name

---

Chez moi ca va bien de 0 à i-1...

J'ai bien vérifié mon code ainsi que la nature des contrôles. Ca plante bien au moment de lire la propriété height du dernier contrôle créé. Alors que

Code:

---

MsgBox Accueil.Controls.Item(i).Caption

---

fonctionne en revanche très bien, y compris pour le dernier contrôle créé:

Code:

---

1 2 3 4 5

For i = 1 To 6 MsgBox Accueil.Controls.Item(i).Caption h = Accueil.Controls.Item(i).Height Next

---

plante au h = ... mais pas au MsgBox lorsque i vaut 6 et qu'il y a 6 contrôles dans la UserForm "Accueil".
Merci.

Alors la je ne vois pas, chez moi (XL2000), ca va bien de 0 à 5...
je ne vois vraiment pas... Chez toi l'Item(0) n'existe pas?
Ensuite je ne vois aucun autre probleme. Sinon ne declare pas ton h en Single mais juste

Code:

---

Dim h

---

J'ai regarde dans l'aide VBA :

Citation:

---

Set Object = object.Item( collectionindex)

La syntaxe de la méthode Item comprend les éléments suivants :

Élément Description
object Objet valide.
collectionindex Position d'un membre ou index dans une collection.

Valeurs

L'argument collectionindex peut être une chaîne ou un nombre entier. S'il s'agit d'une chaîne, elle doit correspondre à un nom de membre valide. S'il s'agit d'un nombre entier, sa valeur minimale est 0 et sa valeur maximale est le nombre d'éléments de la collection moins un.

Remarques

Si un index ou un nom invalide est spécifié, une erreur se produit.

---

Bon en fait je pense avoir trouvé: si tu regardes dans la fenêtre des variables locales item commence bien à 1 pour se terminer à 6: jusque là ok.
Maintenant tu fais

Code:

---

MsgBox Accueil.Controls.Item(i).Caption & Format(i)

---

et miracle tu t'aperçois que le contrôle item(1) qui s'affiche dans la fenêtre des variables locales est en fait le contrôle d'indice i=0. Du coup moi j'ai mis mon compteur jusqu'à 6 car lorsque j'ai écrit mon programme, je l'ai fait en regardant la fenêtre des variables locales... alors qu'en fait ça s'arrête à 5. Donc évidemment quand le compilateur arrive à 6 il plante, que ce soit sur h =... ou sur le MsgBox contrairement à ce que j'ai dit avant.
Il n'en reste pas moins vrai que la fenêtre des variables locales semble afficher un peu n'importe quoi sur ce coup-là.
En tout cas merci. Bonne soirée.

Et pour finir de répondre l'item 0 n'existe pas. Je suis sous Excel 2003.
A+.