Controls et Form

Bonjour à tous,

je suis coincé à un endroit pour mon programme...

Pour vous expliquez j'aimerais passer via une procédure mon formulaire Form1 et tous ses contrôles à une procédure se trouvant dans une classe...

J'ai tenté

Code:

---

Adv.Init Form1.Controls

---

et récupéré dans ma classe :

Code:

---

Public Sub Init(ByRef frmctrl As Control)

---

Mais il me dit quel le type est incompatible :(

quelqu un aurait une idée ?

Merci beaucoup

Ta sub Init devrait être

Code:

---

1 2	Public Sub Init(ByRef frmctrl As Form)

---

Si tu dois utiliser sur un fenetre qui n'est pas la fenetre en cours d'exécution

Code:

---

Init NomFeuille

---

ou Si c'est la feuille elle même que tu veux passer

Code:

---

Init Me

---

Le soucis c'est que je voudrais pouvoir utiliser n'importe quelle formulaire grâce à ma classe...enfin les combox et les txtbox qui sont dans le formulaire...

J'avais déja testé comme tu l'a montré puis ensuite dans ma classe

Code:

---

1 2 3 4 5 6 7

Private tmpForm As Form   Public Sub Init(ByRef frmctrl As Form)     Set tmpForm = frmctrl

---

Le soucis c'est que tmpForm ne contenait plus les contrôles de Form1...du coup c'est clair qu'on pouvait instancier pas avec Form mais avec Form1...mais alors du coup...si tu envoies via la procédure un autre formulaire type Form2 ....ça ne marche plus du tout...

Ben le problème est ailleurs. C'est toute la form qui est transmise à la sub Init, controles internes y compris.

Il faudrait que je change quoi à ce moment là ?

Je sais pas moi, je n'ai pas écrit ton programme et ma boule de cristal est HS :cry:

Essaye ce bout de code, peut être cela t'aidera

Code:

---

1 2 3 4 5 6

Public Sub Init(frm As Form) Dim oCtl As Control For Each oCtl In frm.Controls Debug.Print oCtl.Name Next End Sub

---

Je vais voir tout ça....

Et je t'enverrais une boule de cristale par colis express :mouarf: