Discussion :

[xaviou99]

Bonsoir,
J'ai un userform principal qui ouvre des userform secondaires. Quand je clique sur un bouton de mon userform, cela ouvre mon userform secondaire par dessus. Or depuis mon userform secondaire je veux afficher une feuille excel et cela bug différemment suivant les conditions suivantes:
Si mes deux userform sont en modal = true alors la feuille s'affiche mais impossible de se servir de la barre de défilement
Si mon userform principal est modal = false et si mon userform est modal = true alors la feuille s'affiche correctement mais si je ferme mon userform secondaire, cela ferme aussi l'userform principal. Or je voudrais que si je n'affiche pas la feuille mais que je ferme mon userform secondaire, mon userform principal reste ouvert.

J'espère avoir été clair dans mon explication. Merci d'avance pour vos réponses.

[Ecthelion2]

Bonjour,

Comment fermez-vous votre USerForm secondaire ?


Si vous mettez vos 2 UserForms en ShowModal = false, la feuille reste accessible, et ensuite, pour éviter que la fermeture de votre second UserForm, ferme également le premier, vous pouvez ajouter un bouton sur celui-ci, avec le code pour fermez seulement le deuxième, et désactiver le bouton de fermeture (la croix rouge) de la fenêtre.


Pour désactiver la croix de l'UserForm 2, dans le code ce celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture."
Cancel = True
End If
' Désactivation du bouton de fermeture de l'userform en haut à droite pour
' obliger à fermer l'userform en validant les choix fais avec le bouton adapté.
 
End Sub

Vous pouvez bien entendu adapter le message.


Et ensuite, vous ajoutez un bouton sur votre UserForm 2 pour fermer celui-ci, avec comme code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton2_Click()
 
Me.Hide
Unload Me
 
End Sub

Cela devrait normalement répondre à votre besoin, si j'ai bien compris celui-ci.


Cordialement.