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

**spileo** · 13/03/2007, 22h45

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 :

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

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.

**dadavyvy** · 13/03/2007, 23h07

Et avec ?

Code :

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

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...

**spileo** · 13/03/2007, 23h09

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.