[Excel] création de contrôles dynamique

Bonsoir,

je crée des contrôles de manières dynamique sur une UserForm.
Dans le module de code de la UserForm en question, je déclare donc mes contrôles de la manière suivante:

Code:

---

1 2 3 4

Option Explicit Public WithEvents bEnregConfig As CommandButton Public WithEvents LblDEIS As Label

---

Pour les CommandButton, pas de problème.
Pour les Label en revanche, j'ai une erreur et le compilateur me dit "L'objet n'est pas source d'évènements automation".
J'ai regardé dans l'aide ce qu'il se disait à propos des évènements d'un Label et en principe on peut bien détecter des évènements sur un Label, d'où l'impasse dans laquelle je me trouve.
Quelqu'un a-t-il déjà rencontré ce problème?
Merci.

bonsoir

ça va être difficile de te répondre sans voir la totalité de ta procédure.

Pour moi il n'y a pas de soucis avec les Labels.


michel

Quelle version as-tu ?

La procédure est plutôt longue donc je mets en pièce jointe le fichier Excel "Labels 2.xls" dans lequel il n'y a pas de problème.

Normalement toutes les références du projet sont à jour. Toutefois, si ça ne fonctionne pas, il faut ajouter la référence "Microsoft Visual Basic For Application Extensibility 5.3".

Ensuite il faut lancer la macro "Chargement".

Elle crée les contrôles de la UserForm "Accueil".

Dans "Labels 2.xls" tout marche bien.

Dans "Labels 3.xls" (aussi en PJ), j'ai juste changé la ligne 7 du module de code de la UserForm "Accueil" pour pouvoir prendre en compte l'évènement Clic sur le label intitulé "LblTemp" dont le contenu est "TEMPERATURE" en haut de la UserForm en vert.

C'est là que ça coince.

J'espère avoir été suffisamment clair.

Bonsoir Ouskel'n'or.
J'ai la version 2003 d'Excel.

Bon en attendant, j'ai essayé ça, dans le module de code d'une userform:

Code:

---

1 2 3 4 5 6 7 8 9

Dim lbl As Control Public lbl2 As Label Public bouton As CommandButton Private Sub UserForm_initialize() Set lbl = UserForm1.Controls.Add("Forms.Label.1") Set bouton = UserForm1.Controls.Add("Forms.CommandButton.1") Set lbl2 = UserForm1.Controls.Add("Forms.Label.1") End Sub

---

le compilateur rencontre une erreur quand il arrive à Set lbl2 =... . Il me sort une incompatibilité de type.

Et en rajoutant les withEvents j'obtiens l'erreur précédente:

Code:

---

1 2 3 4 5 6 7 8 9

Dim lbl As Control Public WithEvents lbl2 As Label Public WithEvents bouton As CommandButton Private Sub UserForm_initialize() Set lbl = UserForm1.Controls.Add("Forms.Label.1") Set bouton = UserForm1.Controls.Add("Forms.CommandButton.1") Set lbl2 = UserForm1.Controls.Add("Forms.Label.1") End Sub

---

Il semblerait bien qu'un erreur en cache une autre.

bonsoir

Je n'ai pas compris le fonctionnement de ton classeur, mais tu peux essayer:

Code:

---

Public WithEvents LblTemp As MSForms.Label

---

michel

MERCI, ca marche nickel:king::king::king::king:!!!

Bon une question quand même: comment savais-tu qu'il fallait rajouter le MsForms. devant le label alors que tout marchait bien avec les commandButton?

Encore merci, j'aurais jamais trouvé tout seul.