Discussion :

[Ndugu]

Bonjour à tous,

Je crée un control activeX qui devient de plus en plus gros...
Alors, pour facilité sa "lecture" j'ai décidé de déporter certaines de ses méthodes dans un fichier module que j'ai ajouté au projet.

Mais toutes les références à mon controle, du type :

Code :

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

UserControl.MonBouton.Caption = "Bonjour"

Déclenche l'erreur d'éxécution 424 : un objet est requis, En surlignant UserControl

Le lien n'est plus fait entre le module et le control bien qu'il soit dans le meme projet.

Je ne trouve pas par quoi remplacer UserControl pour designer le controle, comment faire?

Merci d'avance!

[Le Pharaon]

Tu exécute cette instruction dans une fonction ?
Laisse voir un peu plus de codes

[Ndugu]

Voici mon problème simplifier au maximum :
- J'ouvre un nouveau control Active X
- Je pose un bouton (MonBouton) et un Label (Label)

Voici le code pour afficher "bonjour" dans le label :

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub Bonjour()
   UserControl.Label.Caption = "Bonjour"
End Sub
 
Private Sub MonBouton_Click()
    Call Bonjour
End Sub

Jusqu'ici tout marche sans problème.

Maintenant, je fais ajouter un module au projet et je déplace la procédure Bonjour() dans le module.

UserControl n'est plus reconnu... comme je l'ai décris ci dessus.
(Mais attention, il sagit là d'un projet ActiveX, car avec une Form classique il n'y a aucun problème à faire cela)

Merci pour vos conseils...

[Le Pharaon]

Et si tu fais ça ?

Code :

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

1
2
3
Public Sub Bonjour( nomUserControle as Usercontrole )
 nomUserControle.Label.Caption = "Bonjour"
end sub

[Ndugu]

Merci Bujuman pour tes réponses! sur tes conseils, voici ce que j'ai essayé :

Dans le module :

Code :

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

1
2
3
4
 
Public Sub Bonjour(nomUserControle As UserControl)
    monUserControle.Label.Caption = "Bonjour"
End Sub

Dans le control :

Code :

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

1
2
3
4
 
Private Sub MonBouton_Click()
   Bonjour (UserControl)  'ou Bonjour(Me)
End Sub

Mais cela me génère l'erreur type incompatible en désignant l'appel de la fonction.

J'ai également essayé :

Code :

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

Public Sub Bonjour(nomUserControle As Control)

ou

Code :

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

Public Sub Bonjour(nomUserControle As Object)

mais rien n'y fait...

Peut etre que cela n'est pas possible?

[Ndugu]

Pour l'instant je garde toute mes procédures à l'interieur de mon controle, n'arrivant pas à trouver une solution.

Je voulais exportés mes procédures et fonctions dans des modules afin de les classer par thème pour struturer ma programmation et pouvoir plus facilement être relue. (Mon controle sera certainement modifié par d'autre personnes.)

Mais cela n'est pas une condition vitale à son fonctionnement...

Je suis toujours preneur si quelqu'un a une idée, sinon tant pis!

merci !