pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 20105 7 déc. 2007 à 12:14
salut,
comme le dit jmfmarques(salut), myform est un objet. Tu as donc le choix entre 2 solutions .
1 - Passer le form en paramètre, ce qui donne ceci
Decouploc Form1
Public Sub DecoupLoc(MyForm As Form)
For j = 0 To MyForm.lisLoc.ListCount - 1
...
ou bien
2 - Tu passes le nom du form en param et dans ton code tu test ce nom pour faire les actions appropriées
Decouploc Form1.Caption
Public Sub DecoupLoc(NameForm As String)
Select Case NameForm
Case "Form1"
For j = 0 To Form1.lisLoc.ListCount - 1
Case "Form2"
For j = 0 To Form2.lisLoc.ListCount - 1
etc..
bon dev
Pat
Don't Worry , Be Happy
<hr />lorsque le problème est résolu, pensez Réponse Acceptée
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 20131 7 déc. 2007 à 14:30
Merci,
Impeccable pour la première solution c'est ce que je cherchais, j'avais pensé à la deuxième mais s'il y a 10 cases, ca peut devenir lourd.
encore un grand merci.