Les deux formulaires s'ouvrent cote a cote

Bonjour,

Je souhaiterais avoir le code pour que les deux formulaires s'ouvrent en meme temps cote a cote. J'ai un double écran, un formulaire sur un écran et un autre sur l'autre écran, est ce possible?

En vous remerciant,

Bon j'ai trouve.

Mettre l'option Show modal = false

Mais est il possible de placer un formulaire sur l'ecran de gauche et l'autre sur l'ecran de droite ?

En vous remerciant,

a+

Bonjour,

Je me suis basé sur mes propres écrans, changez les valeurs si cela ne convient pas, essayez ceci:

Function hide_workbook_and_show_form()
    Application.Visible = True

    LOGINFORM.Show
    'Déplacement du formulaire "LOGINFORM" sur l'écran de gauche
    LOGINFORM.Left = 500
    LOGINFORM.Top = 250

    MODEMIDENTIFICATION.Show
    'Déplacement du formulaire "MODEMIDENTIFICATION" sur l'écran de droite
    MODEMIDENTIFICATION.Left = 1440
    MODEMIDENTIFICATION.Width = 1440
    MODEMIDENTIFICATION.Top = 0
End Function

Private Sub Workbook_Open()
    Call hide_workbook_and_show_form
End Sub

Cdlt

Rechercher des sujets similaires à "deux formulaires ouvrent cote"