OUVRIR PLUSIEURS FORM EN MÊME TEMPS

'=================================================================
'=================================================================
'à mettre dans un formulaire se nommant ButtonForm avec dedans un CommandButton
'=================================================================
'=================================================================


Private Sub CmdOk_Click()
Unload Me       'décharge le formulaire lorsque l'on clique sur OK
End Sub



'=================================================================
'=================================================================
'à mettre dans un formulaire se nommant ButtonGen avec dedans deux CommandButtons
'=================================================================
'=================================================================


Private Function CréerDesForm()      'fonction qui permet d'afficher le même formulaire plusieurs fois
    Dim NewForm As ButtonForm       'Défini la variable NewFrom comme le formulaire ButtonFrom
    
    Set NewForm = New ButtonForm        'attribue à la variable  NewForm un nouveau formulaire ButtonForm
    
    NewForm.Show        'Montre le formulaire créé
End Function

Private Sub CmdNo_Click()
End     'si on clique sur non quit le programme
End Sub

Private Sub CmdYes_Click()      'sub s'éxécutant lorsque l'on clique sur oui

x = 50     'x = nombre de formulaire (alias boutons) à afficher
    
    While x <> 0        'tant que x est différent de 0 éxécute le code entre While et Wend
        
        x = x - 1           'enlève une unité à x
        CréerDesForm        'éxécute la fonction qui permet d'afficher le même formulaire plusieurs fois
    
    Wend

End Sub

Télécharger le zip

13 avril 2005 09:22:45 :

c'est pas vraiment une mise à jour mais j'ai changé le titre de la source pour faciliter les recherche. j'ai suivi les conseils.