Incorporer un TogglButton dans une feuille

[br44]

Bonjour à tout le forum ,


Voilà je voudrais placer un Bouton à bascule sur la 1èrè feuille de mon classeur ,afin de d'ouvrir où de ferme mon UserForm à la demande ?

Et est_il possible que le texte du bouton change en fonction de la position du bouton ?

Exemple : la bouton est marquer "afficher " on clic est sa ouvre l'UserForm

Si l'UserForm est ouvert le bouton est marquer "masquer " On clique est ça ferme .


Vous remerciant d'avance du coup de main je vois dis a plus sur se fil . Amicalement Br44

 

[job75]

Re : Incorporer un TogglButton dans une feuille

Bonjour br44,

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
UserForm1.Show 0
ToggleButton1.Caption = "Masquer"
Else
UserForm1.Hide 'ou aussi : Unload UserForm1
ToggleButton1.Caption = "Afficher"
End If
End Sub

Edit : salut Lii, en effet pour inhiber la croix de fermeture de l'USF, mettre dans le code de cet USF :

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
If closemode = 0 Then cancel = 1
End Sub

A+

 

[Lii]

Re : Incorporer un TogglButton dans une feuille

Bonjour

Un exemple avec un USF sans bandeau bleu.
On peut aussi inhiber la croix de fermeture si on veut, encore, fermer obligatoirement par ce bouton bascule !

 

[br44]

Re : Incorporer un TogglButton dans une feuille

Re: Bonsoir à job75,Lii,et au forum

Je vous remercie tout les deux pour vos réponses qui vont mettre très utile pour la suite . je viens d'essayer de faire la même chose sur ma feuille, Mais la j'ai un problème je n'arrive pas à rendre le bouton actif ,il se bloque en fonction de déplacement .

dans ma barre de formule il est marquer: =INCORPORER("Forms.ToggleButton.1";"") .

que je n'arrive pas à enlever .

Si vous pouvez m' expliquer comment mettre en place le bouton cela me permettra de comprendre le principe .

vous remerciant de nouveau pour le coup de main je vous dis à plus .
amicalement BR44

 

[Lii]

Re : Incorporer un TogglButton dans une feuille

Re,

Clic, bouton droit, sur le bouton puis choisir "Visualiser le code".

Dans l'éditeur VBA, entre les 2 lignes qui apparaissent, tu copies les lignes :

If ToggleButton1.Caption = "ouvrir" Then
   UserForm1.Show 0
  ToggleButton1.Caption = " fermer "
Else
   Unload UserForm1
   ToggleButton1.Caption = "ouvrir"
 End If

Une fois l'éditeur fermé, repasse à "Désactiver le mode création" (dans "Boîte à outils ..." clic sur l'icône avec une équerre).
Tu dois déjà avoir créé l'Userform !
Il faut voir ensuite comment tu veux le fermer.
Si tu veux éviter la croix, copie la seconde procédure donnée par Job 😉 !

 

[job75]

Re : Incorporer un TogglButton dans une feuille

Bonsoir,

Le ToggleButton est créé avec la barre "Boîte à outils contrôles".

Pour désactiver le mode Création, cliquer sur l'icône triangulaire en haut à gauche de cette barre.

Sinon, aller dans VBA (Alt+F11), menu Exécution => Quitter le mode Création.

Edit : c'est pas vrai Lii, on se suit à la trace 🙂

A+

 

[br44]

Re : Incorporer un TogglButton dans une feuille

bonjour à Lii ,Job 75 et au forum


Merci pour vos réponses rapide . je viens de tester est sa MARCHE 🙂🙂🙂🙂🙂🙂😛😛😛😛

je remercie aussi tout ceux qui ont pris de leurs temps pour lire se poste.

Amicalement à tous BR44