Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

[deudecos]

Bonsoir à toutes et à tous.

Malgré mes recherches et mes essais, je n'ai pas trouvé le moyen d'ouvrir et de fermer un userform depuis un bouton sur un autre userform ouvert en vbmodeless. Avec un truc du genre: si userform2 ouvert, alors le fermer, et lycée de versailles!.
Si vous voyez ce que je veux dire et que la solution existe, ben... je suis preneur!!!

Bonne soirée.

Olivier

 

[dmoluc]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

bonsoir

si lancement par bouton

Private Sub CommandButton1_Click()
on error goto ETIQUETTE
UserForm1.Show
Unload userform2
ETIQUETTE :
End Sub

je ne vois pas trop d'autres moyens pour fermer un userform si on en ouvre un autre, bien sur nom des userform à adapter
cordialement

 

[deudecos]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour dmoluc, le forum,

En fait, je pense m'être mal exprimé...
Ce que je souhaite, c'est, à partir d'un même bouton sur le userform1, ouvrir ou fermer un autre userform selon s'il est déjà ouvert ou non.
Avec une formule du genre:
If UserForm2=Open then
Close
Else
load UserForm2
UserForm2.Show
End If
Mon problème étant que je ne parviens pas à trouver la bonne formule...

Bonne journée.

Olivier

 

[camarchepas]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour,

Comme le montre l'article ici :

https://www.excel-downloads.com/thr...uis-un-bouton-lui-meme-dans-un-userform.9754/

lorsque tu ouvres le 2° le premier n'est plus visible ou bien il faut traiter le 1° en non modale.

 

[dmoluc]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour

je ne sais pas si cela ira mais j'ai contourné le problème avec un ToogleBouton à voir fichier ci-joint

cordialement

 

[deudecos]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonsoir camarchepas, dmoluc, le forum,

De toute évidence, la façon dont je souhaite faire les choses n'est pas possible, mais vous m'avez mis tous les deux sur une piste que je vais m'empresser de peaufiner pour arriver à mes fins par des chemins de traverse...;-)
Merci à vous deux et bonne soirée.

Olivier

 

[Fo_rum]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour,

et ainsi , (avec mon interprétation de la demande) ?

 

[deudecos]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour Fo_rum et le forum,

C'est presque ce que je voulais, seul petit problème, si je rajoute quelque chose dans un des userform, par exemple un textbox, ben là, plus rien ne fonctionne... Mais peut-être est ce du au fait que mon Excel tourne sous émulation de Win Xp, le tout sur un Mac (Ben oui Office pour Mac ça crains!) Des fois ça me fait des trucs un peu bizarres...
Bonne journée.

Olivier

 

[mapomme]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour deudecos,

Un autre essai (converti de 2010 en 2003):

If UserForm2.Visible Then UserForm2.Hide Else UserForm2.Show
 ou
 If UserForm2.Visible Then Unload UserForm2 Else UserForm2.Show

 

[Fo_rum]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour,

je ne m'étais préoccupé que du "vice, m'as tu vu, et versa" .D'où les 2 boutons.
Pour garder les données, comme l'indique mapomme, il ne faut pas décharger mais cacher.
Donc un autre essai.

 

[deudecos]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonjour à tous,

Tout d'abord, désolé pour la réponse tardive (toujours que peu de temps entre deux chantiers! ;-) ).

Merci pour vos réponses toutes très intéressantes, j'en apprends sans arrêt!
Bonne journée

Olivier

 

[fhoest]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonsoir à tous,

petit remaniement l'exemple Togglebutton de "Dmoluc" avec un Commandbutton:

Sub choix(bouton As CommandButton)
On Error GoTo ETIQUETTE
With bouton
    If .BackColor = vbGreen Then
        UserForm2.Show
        .Caption = "Fermer"
    .BackColor = vbYellow
    Else
        Unload UserForm2
        .BackColor = vbGreen
        .Caption = "Afficher"
    End If
End With
Exit Sub
ETIQUETTE:
End Sub
Private Sub CommandButton1_Click()
Call choix(CommandButton1)
End Sub

Private Sub UserForm_Initialize()
Call choix(CommandButton1)
End Sub

A+

 

[dmoluc]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonsoir,
je n'ai pas encore compris ce que voulais deudecos mais merci à toi "fhoest" pour cette solution qui pourrait bien me servir un jour et qui va enrichir mes maigres connaissances en vba : je ne savais pas que cette petite manip était applicable à un commandbouton

merci et A+ sur le site

 

[Papou-net]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

Bonsoir le fil,
Bonsoir deudecos,

Le problème soulevé attisant ma curiosité, je m'immisce dans la discussion pour proposer une solution qui, si j'ai bien compris, devrait répondre à la question initiale.

Le userform2 ne peut être ouvert ou fermé (ou plus exactement caché) que par le bouton de userform1. Sa croix de fermeture est désactivée.

Quitter le formulaire 1 ferme et décharge le formulaire 2.

Espérant avoir été utile.

Cordialement.

 

[Si...]

Re : Peut on ouvrir et fermer un userform avec un même bouton sur un autre userform?

salut

Si... on part sur un seul bouton, avec un bouton bascule, cela devrait suffire dans le premier USF :

Private Sub ToggleButton1_Click()
  ToggleButton1.Caption = IIf(ToggleButton1, "fermer", "ouvrir")
  If ToggleButton1 Then UserForm2.Show Else UserForm2.Hide
  ToggleButton1.BackColor = IIf(ToggleButton1, vbGreen, vbYellow) 'pas nécessaire
End Sub

et dans le second comme le suggère Si... bien Papou-net :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Cancel =  CloseMode = 0
End Sub