probleme fermeture instance userform

[flycyber]

bonjour

me revoici solicitant votre aide .je travail actuellement sur un projet qui néccessite plusieur instance d'une userform jusqu'a la ca fonction mais le souci ces qu'a chaque fois que j'utilise une command_click pour faire apparaitre une nouvelle instant de mon userform j'aimerais que l'ancien ce ferme j'ai essayer unload maForm2 mais ca fonction pas
je bloque avez vous une idée
merci de votre soutien flycyber

 

[Cousinhub]

Re : probleme fermeture instance userform

Bonsoir,
pour fermer un USF, la commande Unload Me suffit
Par contre, pourquoi le fermer et le rouvrir?
Est-ce un problème d'initialisation?

 

[flycyber]

Re : probleme fermeture instance userform

re merci de ton aide

en faite une tu a mal compris ma question une instance d'une userform est en faite une ouverture virtuel plus ou moin d'une userform comme ca avec la meme userform tu peut en crée plusieur le probleme ces quel s'affiche les une aprés les autre sans ce fermer moi j'aimerais quen l'instance 3 maform3 souvre fermera otomatiquement maform2 actuellement j'ai essayer "unload maForm2" mais sans resultat la boite de dialogue "unload me" ne fonction pas non plus

merci de votre aide respectueusement flycyber

 

[Cousinhub]

Re : probleme fermeture instance userform

Re-,

en faite une tu a mal compris ma question

Pas facile, effectivement de comprendre quelque chose lorsqu'il faut lire à voix haute l'énoncé pour pouvoir comprendre quelque chose...
Ps : tu n'as pas le correcteur automatique d'orthographe?

Sinon, tu peux mettre le code ici, on verra ce qu'on peut faire....

 

[flycyber]

Re : probleme fermeture instance userform

oui desoler cest vrai que je tape tres mal
je fais essayer de faire attention.

le code est trop long pour le copier est trop lourd pour le mettre en fichier joint en voici un extrait peut etre que cela aidra
Private Sub btnOuvre_Click()
'champs des libellés et gestion des boutons pour la form1
Set LibBtn = Sheets(1).Range("Libellés_Btn3")
Set GestBtn = Sheets(1).Range("Gest_Btn3")

'on crée une instance de l'userform frmBtn (qui est en fait une classe)
Set maForm3 = New frmBtn

maForm3.Tag = "3" 'repère de la form par son tag
maForm3.Caption = maForm3.Caption & " 3"
maForm3.StartUpPosition = 0
maForm3.Left = Me.Left + Me.Width
maForm3.Top = Me.Top
'maF3 = True 'si on ouvre en non modal
maForm3.Show 'on utilise un userform modal dans ce cas d'appel à partir d'un userform
'mais on peut si on veut ouvrir aussi en non modal selon le besoin
End Sub
juste avant il y la meme chose pour ouvrir l'instance maform2 qui reste ouverte quand on click sur ce bouton est j'aimerai quel ce ferme alors j'ai rajoute unload maform2 mais ca fonction pas
jespere que ca vous aidera
respectueusement flycyber

 

[Cousinhub]

Re : probleme fermeture instance userform

Re-,
et avec ceci, peut-être?

Me.maForm2.Visible = False

 

[flycyber]

Re : probleme fermeture instance userform

re desoler par ma reponse tardive,

j'ai de probleme de connexion :-(

merci de ton soutien depuis j'ai retravailler mon code et j'etais partie sur la meme idée est ca a l'aire de fonctionner
encore merci
respectueusement flycyber