Discussion :

[spileo]

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 :

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

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.

[SilkyRoad]

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

[ouskel'n'or]

Quelle version as-tu ?

[spileo]

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.

[spileo]

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

Code :

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

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.

[spileo]

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

Code :

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

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.

[SilkyRoad]

bonsoir

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

Code :

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

Public WithEvents LblTemp As MSForms.Label

michel