Discussion :

[d.carail]

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim objForm As Form
Dim objMDIform As MDIForm
 
    For Each objMDIform In Forms
        If j = 0 Then
            If objMDIform.Name <> "frmPrincipale" Then
                objMDIform.Height = iHauteurfrm
                objMDIform.Width = iLargeurfrm
                objMDIform.Top = 0
                objMDIform.Left = 0
                objMDIform.Show
                j = 1
            End If
        End If
    Next

au 2 tour de la boucle

jai 1 message de type incompatible, surement parc que c'est un form et non pas un mdiform.

Comment parcourir uniquement les mdiforms?

[bhaal76]

Code :

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

1
2
3
4
5
6
7
Dim objForm As Form 
 
For Each objform In Forms 
If objform.mdichild = 1 Then 
'la form est une fille
End If 
Next

voila voila

[d.carail]

En évitant la formMDI mere sa marche merci.