Désigner un control a partir d'un module

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:

---

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!

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

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:

---

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

Et si tu fais ça ?

Code:

---

1 2 3

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

---

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

Dans le module :

Code:

---

1 2 3 4

Public Sub Bonjour(nomUserControle As UserControl) monUserControle.Label.Caption = "Bonjour" End Sub

---

Dans le control :

Code:

---

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:

---

Public Sub Bonjour(nomUserControle As Control)

---

ou

Code:

---

Public Sub Bonjour(nomUserControle As Object)

---

mais rien n'y fait...

Peut etre que cela n'est pas possible? :(

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 !

Salut

Dans ton projet de UserControl, tu l'as nommé comment ton userControl? Je crois que c'est ce nom que tu dois utiliser comme type de contrôle.

Merci pour ton aide mais cela ne marche toujours pas, mon controle s'appel : MonControl

j'ai essayé :

Code:

---

1 2 3 4 5 6 7 8

Public Sub Bonjour(nomUserControle As MonControl) monUserControle.Label.Caption = "Bonjour" End Sub Private Sub MonBouton_Click() Bonjour (UserControl) End Sub

---

erreur : type incompatible ... :cry:


Puis :

Code:

---

1 2 3 4 5 6 7 8

Public Sub Bonjour(nomUserControle As UserControl) monUserControle.Label.Caption = "Bonjour" End Sub Private Sub MonBouton_Click() Bonjour (MonControl) End Sub

---

erreur : un objet est requis ... re:cry:


C'est assès frustrant car j'ai retourné le problème dans tout les sens, que ce soit du point de vue du type du paramètre de la fonction ou de la variable passée à cette fonction...

Merci quand même!

On ne peut pas accèder directement aux controles inclus dans dans le usercontrole depuis un module. mais on peut appeller une de ses fonctions du momment qu'elle soit declarée publique ou friend

Dans ton Composant
met le code suivant

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() Bonjour Me End Sub   Friend Sub Affiche(txt As String) Label1.Caption = txt End Sub

---

et dans le module

Code:

---

1 2 3 4

Public Sub Bonjour(ctrl As MonControl) ctrl.Affiche "Bonjour" End Sub

---

j'espere que çà aideras
salutations

Merci pour ta réponse Delbeke,

Mais je voulais déporter du code de mon activex dans des fichiers modules.

Cela ne doit pas etre possible, alors je vais mettre résolu pour ne pas occuper trop de temps le forum...

Merci pour tout vos conseils,

A plus,

Ndugu