Discussion :

[anarchiste-mouton]

Bonjour,

J'ai deux Userform (disons UF1 et UF2), UF2 ne peut s'ouvrir que par un click sur un commandbutton "CB2" sur UF1. J'ai donc :

Code :

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

1
2
3
4
 
Private Sub CB2_Click()
UF2.Show
End Sub

Ce que je veux :
C'est qu'à chaque fois que je ferme UF2, UF1 se réinitialise.

J'ai donc fait dans l'évènement terminate de UF2, un appel de procédure pour fermer puis ouvrir UF1. J'ai donc :

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Terminate()
    Unload Me
    RefreshUF1
End Sub

et dans un module :

Code :

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

1
2
3
4
5
 
Sub RefreshUF1()
    Unload UF1
    UF1.Show
End Sub

Problème :
Par la suite si je veux ré-ouvrir UF2, celui-ci ne s'initialise pas correctement.

Voyez-vous une erreur jusque là?...

[anarchiste-mouton]

Je joints le fichier qui montre bien ce problème d'affichage. On ne peux même plus fermer UF2 correctement la deuxième fois.

Probleme affichage Userform.xlsm

[tony76]

Bonjour,

Je ne sais pas si c'est la meilleurs solution mais ce que je ferais

Userform1:

Code :

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

1
2
3
4
 
Public Sub UserForm_Initialize() 'UF1
    MsgBox ("Réinitialisation de l'userform1")
End Sub

Userform2:

Code :

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

1
2
3
4
5
 
Private Sub CommandButton1_Click() 'UF2
    Unload UserForm2
    UserForm1.UserForm_Initialize
End Sub

[Thumb down]

Bonsoir,
Dans le Userform1

Code :

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

1
2
3
4
Private Sub CB2_Click()
UF2.Show
Unload me
End Sub

Useform2

Code :

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

1
2
3
4
Private Sub UserForm_Terminate()
    Dim Uf as New Uf1
    Uf.Show
End Sub

[anarchiste-mouton]

Bonjour Thumb down et merci pour l'aide.

Malheureusement le problème reste le même..

[tony76]

tu as testé ma méthode ?

[Thumb down]

Bonsoir,

Code UF1 :

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

1
2
3
4
5
6
7
Private Sub CB2_Click()
Me.Hide
With New UF2
    .Show vbModal
    Unload Me
End With
End Sub

Code UF2 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
Label1.Caption = "L'affichage est correct"
Me.Top = 50
Me.Left = 50
End Sub
 
 
Private Sub UserForm_Terminate()
With New UF1
    .Show
End With
End Sub

[anarchiste-mouton]

Bonjour à vous 2,

tony76, non ça ne fonctionne pas. Tu attribue un évènement à un objet comme si c'était une de ses propriétés.

Créer des instances d'userform comme l'a fait Thumb down, fonctionne en revanche. Merci beaucoup