Discussion :

[firens]

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 :

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

Adv.Init Form1.Controls

et récupéré dans ma classe :

Code :

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

Public Sub Init(ByRef frmctrl As Control)

Mais il me dit quel le type est incompatible

quelqu un aurait une idée ?

Merci beaucoup

[Delbeke]

Ta sub Init devrait être

Code :

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

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 :

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

Init NomFeuille

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

Code :

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

Init Me

[firens]

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 :

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

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

[Delbeke]

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

[firens]

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

[Delbeke]

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

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

Code :

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

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

[firens]

Je vais voir tout ça....

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