Dim feuilles() Dim nombre Private Sub MnuAjouterNouvelleFeuille_Click() nombre = nombre + 1 ReDim feuilles(1 To nombre) Set feuilles(nombre) = New Form2 feuilles(nombre).Caption = "feuille n°" & nombre feuilles(nombre).Show End Sub Private Sub MnuSupprimerFeuille_Click() If nombre <> 0 Then Unload feuilles(nombre) Set feuilles(nombre) = Nothing nombre = nombre - 1 End If End Sub
Télécharger le zip
Merci pour cette source simple mais tellement interessante.J'ai debuté Vb y'as une semaine et c'est exactement ce dont j'aurais besoins ca vas bcp m'aider merci ...
Pas mal ...J'ai apris de nouveau truc ...C'est utile pour un newbie en vb ..Mais il y'as un soucis si on ferme la forme 2 (qu'il y'an a 4 d'ouverte) il bugeras apres 2 supression de form ..(vu que le 2 est tjrs dans le tableau mais la form n'existe plus)Une solution ?
Merci pour cette source, très intéressante, surtout pour la création de nouvelle form, ca marche nickel. Bon par contre c'est vrai que pour les fermer, ca marche moins bien, ca serait bien si on pouvais toutes les supprimer une par une, mais bon dans mon cas ce n'est pas necessaire. Et pour éviter un bug, pour moi je mettrais un "On Error Resume Next"...Merci pour tout!
Simple et claire, merci.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 172 membres 193 nouveaux aujourd'hui 16 152 membres club