Togglebutton dans un UserForm

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Au départ de l'action losque la colonne J est affichée, mon bonton foctionne à merveille.

Mais si au départ de l'action, la colonne J est masquée, je dois appuyer 2 fois sur le bouton et il y a un clignotement de l'écran, ensuite la macro focntionne.

J'ai testé plusieurs solution, mais je tourne en rond ...

Merci pour votre aide
Meilleures salutations
Philippe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ToggleButton_Planning_Click()
    If ToggleButton_Planning.Value = True Then
'        ToggleButton_Planning.BackColor = vbGreen
        ToggleButton_Planning.Caption = "Afficher le PV"
        Liaisons_Dossier_Onglet_Divers.Activer_Afficher_que_le_planning
'End If
Else
'    If ToggleButton_Planning.Value = False Then
'        ToggleButton_Planning.BackColor = vbRed
        ToggleButton_Planning.Caption = "Afficher le planning"
        Liaisons_Dossier_Onglet_Divers.Annuler_Afficher_que_le_planning 'afficher PV
    End If
End Sub
'Private Sub UserForm_Initialize()
'    If Columns("J").Hidden = False Then
'        ToggleButton_Planning.BackColor = vbGreen
'        ToggleButton_Planning.Caption = "Afficher le PV"
'    End If
'        If Columns("J").Hidden = False Then
'        ToggleButton_Planning.BackColor = vbRed
'        ToggleButton_Planning.Caption = "Afficher le planning"
'    End If
'End Sub

Pièce jointe 498934

Bonjour,
Le contrôle ToggleButton ayant comme valeur un booléen, il est plus pratique de jouer sur la valeur des propriétés des objets concernés plutôt que d'utiliser la fonction SI
Quant au texte (propriété Caption) du ToggleButton, personnellement j'utilise une variable tableau telle que Msg(0 to 1) qui permet d'afficher le message en fonction de la valeur renvoyée par le ToggleButton
Ainsi si l'on souhaite masquer une colonne à l'aide d'un ToggleButton et afficher le message adéquat

Voici un exemple rapide qui permet de masquer ou d'afficher la colonne 3 de la feuille nommée Feuil1 en cliquant sur le bouton bascule
En tête du module du UserForm
Code:

1 2 3 Option Explicit Dim Msg() As Variant Dim sht As Worksheet
La procédure nommée CtrlStatus qui modifie la propriété Hidden de la colonne 3 et affiche le bon message du ToggleButton
Code:

1 2 3 4 5 6 Sub CtrlStatus() With Me.ToggleButton1 sht.Columns(3).Hidden = .Value .Caption = Msg(Abs(.Value)) End With End Sub
La procédure événementielle UserForm_Initialize
Code:

1 2 3 4 5 6 Private Sub UserForm_Initialize() Set sht = ThisWorkbook.Worksheets("Feuil1") Msg = Array("Masquer la colonne", "Afficher la colonne") Me.ToggleButton1.Value = sht.Columns(3).Hidden ' A l'initialisation du UserForm le ToggleButton prend la valeur de la propriété de la colonne 3 CtrlStatus End Sub
La procédure événementielle ToggleButton1_Click
Code:

1 2 3 Private Sub ToggleButton1_Click() CtrlStatus End Sub
Et si tu souhaites que le bouton soit Rouge et Vert suivant sa valeur, tu ajoutes la ligne ci-dessous à l'intérieur du bloc With...End With de la procédure CtrlStatus

Code:

.BackColor = IIf(.Value, vbRed, vbGreen)

22/08/2019, 18h36
goninph

Bonjour Philippe Tulliez,

Impeccable enfin ça marche, par contre j'ai un soucis, car le masquage ou l'affichage des colonnes se fait dans 2 autres macros et je vérifie l'état d'une seule colonne faisant partie de l'un des groupes par exmple la colle "J".

Comment adapter votre macro pour quelle appel à 2 autres macro masquer = Activer_Afficher_que_le_planning et Afficher = Annuler_Afficher_que_le_planning ?

Merci pour votre soutien
Bonne soirée
Philippe
22/08/2019, 20h25
Philippe Tulliez

Bonjour,
L'exemple que j'ai publié avait pour but que tu comprennes le principe de combiner la propriété Hidden d'une colonne avec la propriété Value du contrôle ToggleButton
Si tu as compris le principe, le reste doit être aisé à mettre en place mais personnellement je n'ai pas compris ce que tu cherches à obtenir exactement.
22/08/2019, 21h53
goninph

Hello,

Lorsque je clique sur le bouton, il doit lancer une macro qui masque plusieurs séries de colonnes et de lignes et fait plein d'autre chose, puis au nouveau clic je fais l'inverse.
Je dois avoir ces 2 macros dans un modules séparés afin de pouvoir les appeler par d’autre macros.
Je contrôle les actions et les affichages des boutons par l'état d'affichage de la colonne "J"
En fait je n'arrive pas à comprendre votre code pour incorporer mes 2 macros.

Merci
Philippe

Citation:

Envoyé par Philippe Tulliez

Bonjour,
L'exemple que j'ai publié avait pour but que tu comprennes le principe de combiner la propriété Hidden d'une colonne avec la propriété Value du contrôle ToggleButton
Si tu as compris le principe, le reste doit être aisé à mettre en place mais personnellement je n'ai pas compris ce que tu cherches à obtenir exactement.
23/08/2019, 09h37
Philippe Tulliez

Bonjour Philippe,

Citation:

En fait je n'arrive pas à comprendre votre code pour incorporer mes 2 macros

Qu'est-ce que vous ne comprenez pas dans le code qe j'ai publié ?

La propriété Hidden de Columns(3) prend la même valeur que la propriété Value du contrôle ToggleButton et cette valeur vaut soit True soit False.
True vaut -1 et False 0 ce qui permet d'avoir le bon message dans la la propriété Caption de ToggleButton
La fonction Abs permet d'éliminer le signe négatif ainsi Abs(-1) renvoie 1. Donc Caption a comme valeur soit Msg(0) soit Msg(1)

Est-ce plus lair ?
23/08/2019, 10h03
patricktoulon

re

bonjour philippe
:plusser:
pas mal du tout le principe pour msg()
23/08/2019, 11h57
goninph

1 pièce(s) jointe(s)

Tout est plus clair et ça fonctionne à merveille, je vous en remercie.

Mais dans mon cas, je pense que je ne peux pas l'utiliser, car lorsque je masque les colonnes, je dois également masquer des lignes et appliquer des filtres et inversement.

Pensez-vous que ces actions peuvent être intégrée à votre macro ?

Je vous ai mis le fichier en copie avec les 2 macros à intégrer qui sont dans le Module 1.

Encore merci pour tout
Meilleures salutations
Philippe

Pièce jointe 499147

Citation:

Envoyé par Philippe Tulliez

Bonjour Philippe,

Qu'est-ce que vous ne comprenez pas dans le code qe j'ai publié ?

La propriété Hidden de Columns(3) prend la même valeur que la propriété Value du contrôle ToggleButton et cette valeur vaut soit True soit False.
True vaut -1 et False 0 ce qui permet d'avoir le bon message dans la la propriété Caption de ToggleButton
La fonction Abs permet d'éliminer le signe négatif ainsi Abs(-1) renvoie 1. Donc Caption a comme valeur soit Msg(0) soit Msg(1)

Est-ce plus lair ?
23/08/2019, 12h04
Philippe Tulliez

Bonjour,

Citation:

Mais dans mon cas, je pense que je ne peux pas l'utiliser, car lorsque je masque les colonnes, je dois également masquer des lignes et appliquer des filtres et inversement.
Pensez-vous que ces actions peuvent être intégrée à votre macro ?

Je n'ai fait que donner un exemple pour vous permettre de vous en sortir seul.

Je ne vois pas la raison pour laquelle, vous ne pourriez pas effectuer un travail au départ d'une valeur qui est soit à False soit True

Posez vous simplement la question, qu'est-ce que je veux faire si la valeur renvoyée par le contrôle ToggleButton est à True ou à False
23/08/2019, 12h05
Philippe Tulliez

Bonjour Patrick
Merci pour ton vote

Citation:

pas mal du tout le principe pour msg

Cela me semble l'ABC de la gestion d'une valeur booléenne
23/08/2019, 15h01
patricktoulon

re

re
bonjour philippe
ben moi je n'y aurais pas pensé :ptdr::oops::oops:
pour la caption j'aurais fait un .caption=IIF(moncontrol,"blablabla","turlututu")
:whistle2:

Bonjour,

Citation:

Je vous ai mis le fichier en copie avec les 2 macros à intégrer qui sont dans le Module 1.

Je n'ouvre pas les fichiers joints. Cela ne se justifie aucunement au stade actuel.

Il suffit de prévoir votre procédure avec un argument de type booléen qui recevra par exemple la propriété Value du contrôle ToggleButton et donc d'effectuer vos opérations en fonction de la valeur True ou False

Exemple
Procédure à placer dans un module standard que j'ai nommé pour l'exemple MyProcess mais il est évident que ce nom peut être renommé
Il est bien évident que les deux lignes avec l'instruction MsgBox ne sont là que pour illustrer le passage dans la structure décisionnelle et qu'il y a lieu de les enlever
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub MyProcess(ToggleValue As Boolean) Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Feuil1") ' ici les instructions pour les objets dont les propriétés sont booléenne sht.Columns(3).Hidden = ToggleValue If ToggleValue = True Then ' Action à effectuer si ToggleValue = True MsgBox ToggleValue Else ' Action à effectuer si ToggleValue = False MsgBox ToggleValue End If End Sub
La ligne 6 peut se résumer par (Ce test sous-entend que ToggleValue = True)

Code:

If ToggleValue Then

Code de la procédure CtrlStatus modifié
J'ai ajouté la ligne qui invoque la procédure MyProcess se trouvant dans le module nommé mTest en lui passant comme argument la valeur du ToggleButton
Code:

1 2 3 4 5 6 7 8 Sub CtrlStatus() With Me.ToggleButton1 .Caption = Msg(Abs(.Value)) .BackColor = IIf(.Value, vbRed, vbGreen) ' Invoque la procédure MyProcess se trouvant dans le module nommé mTest' mTest.MyProcess .Value End With End Sub

23/08/2019, 16h18
goninph

Merci Philippe pour toute ces précisions.

Comment fermer automatiquement le UserForm, car le "unload me" beug

A+ Philippe
24/08/2019, 11h27
goninph

Hello,

Personne n'a de solution ?

Bon week-end
Meilleures salutations
Philippe

Citation:

Envoyé par goninph

Merci Philippe pour toute ces précisions.

Comment fermer automatiquement le UserForm, car le "unload me" beug

A+ Philippe

re
bonjour goninph
Philippe t'a donner une solution très simple a comprendre et a mettre en place et dans ton code tu n'a absolument rien appliqué de tout cela
tu continu avec tes if a la pelle

comme tu n'a rien pris de Philippe
je te le fait selon les instructions de philippe et j'inclus bien evidement les appels de tes deux subs

et pour ton bouton unload faudrait il encore que le"unload me" soit dans le bon évènement du bon bouton il était dans commandbutton_click" ors ce bouton n'existe pas :roll:
donc vire tout code !!!!!!!! de ton UserForm
et colle ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Option Explicit Dim msg Dim couleur Dim subs Private Sub ToggleButton_Planning_Click() subs = Array("Annuler_Afficher_que_le_planning", "Activer_Afficher_que_le_planning") 'nom des subs a appeler With ToggleButton_Planning .Caption = msg(Abs(.Value)) .BackColor = couleur(Abs(.Value)) Sheets(1).Range("A:J").EntireColumn.Hidden = .Value Application.Run subs(Abs(.Value)) 'on appelle la sub en fonction de l'etat du toggle End With End Sub ' ' Private Sub UserForm_Initialize() msg = Array("Afficher le planning", "Afficher le PV") couleur = Array(vbGreen, vbRed) ToggleButton_Planning.BackColor = couleur(Abs(Columns("J").Hidden)) ToggleButton_Planning.Caption = msg(Abs(Columns("J").Hidden)) End Sub ' ' Private Sub BT_OK_Click() Unload Me End Sub ' ' Private Sub Btn_Maj_meteo_Click() 'mettre ton code ici pour ce bouton avec l'image End Sub
c'est de suite plus simple d'un coup;)
j'ai testé sur 2007
ps :encore merci Philippe cette méthode me plait beaucoup

Bonjour Patrick,

En fait j'avais oublié de supprimer le bonton OK car j'aimerai que le UserForm se ferme automatiquement.
Avec votre macro j'ai pu ajouter le Unload me sans que la macro beug, mais lorsque la colonne "J" est masquée la macro ne démarre pas.

Sans le Unload me et lorsque la colonne "J" est masquée il faut appuyer 2 fois sur le Toggle après une initialization de UserForm

Merci
Philippe
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Option Explicit Dim msg Dim couleur Dim subs Private Sub ToggleButton_Planning_Click() subs = Array("Liaisons_Dossier_Onglet_Divers.Annuler_Afficher_que_le_planning", "Liaisons_Dossier_Onglet_Divers.Activer_Afficher_que_le_planning") 'nom des subs a appeler With ToggleButton_Planning .Caption = msg(Abs(.Value)) ' .BackColor = couleur(Abs(.Value)) Sheets(1).Range("A:J").EntireColumn.Hidden = .Value Application.Run subs(Abs(.Value)) 'on appelle la sub en fonction de l'etat du toggle End With Unload Me End Sub ' ' Private Sub UserForm_Initialize() msg = Array("Afficher le planning", "Afficher le PV") couleur = Array(vbGreen, vbRed) ' ToggleButton_Planning.BackColor = couleur(Abs(Columns("J").Hidden)) ToggleButton_Planning.Caption = msg(Abs(Columns("J").Hidden)) End Sub