Discussion :

[Noctis76]

Bonjour,

J'ai écrit ce petit programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ToggleButton34_Click()
 
Dim v As String
 
 
v = InputBox( _
    Prompt:="What is the name of the task")
 
For i = 80 To 147
 
    If Cells(11, i) = v Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = Not Range(Columns("K:K"), Columns(i - 1)).Hidden
    'Selection.EntireColumns.Hidden
                        Else
    End If
 
Next
 
End Sub

Cependant j'ai un petit souci, lorsque j'appuie sur mon bouton bascule :

-Le code demande bien le nom de la tâche
-Les colonnes sont bien cachées

Cependant quand je veux re-cliquer sur le bouton bascule pour que les colonnes réapparaissent, le code se relance du début et me redemande le nom de la tâche.

Une idée pour que lors de la deuxième pression sur le bouton bascule, les colonnes réapparraissents ?

[parmi]

Bonjour,

Plutôt que d'utiliser Hidden = Not Hidden, tu pourrais vérifier l'état du bouton
ToggleButton1.Value = True si enfoncé, autrement False

[Noctis76]

Merci pour ta réponse,

Je ne comprend pas, si j'enlève la fonction Hidden les colonnes ne seront pas masquées ?

[Philippe Tulliez]

Bonjour,

Je ne comprend pas, si j'enlève la fonction Hidden les colonnes ne seront pas masquées ?

Ce que Parmi te suggérait de faire c'est de remplacer le Not Hidden qui bascule l'état booléen de sa valeur par la valeur du ToggleButton qui lui même est un booléen et donc bascule également de True à False

[unparia]

Bonjour
L'imbrication, dans le code du bouton bascule, de :
1) le choix du critère
et
2) le "basculement"
Rend très évidemment le tout plutôt hasardeux ...
Conception à revoir.
Ou alors : rester sur le dernier critère (ne pas reproposer un choix si non vide). Mais alors : à quoi pourrait bien être utile de faire mumuse avec cacher-Montrer-cacher-montrer, etc ... ?
Ou encore : mémoriser les pages résultats (selon le critère retenu) et montrer/cacher/montrer la plage correspondante (usine à gaz si nombreux critères différents).

[Pierre Fauconnier]

Salut.

Lorsque l'on utilise un bouton bascule, c'est pour déterminer l'action à réaliser en fonction de son état au moment du clic.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TogAction_Click()
  If TogAction.Value Then ' Le bouton est enfoncé
    ...
    ...
  Else ' Le bouton est relaché
    ...
    ...
  End If
End Sub

Je ne saurais trop te conseiller de sortir la gestion des cas du code même du bouton, et de seulement aiguiller vers la bonne procédure en fonction de l'état du bouton. Ton code sera plus propre, plus facilement maintenable et testable.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TogAction_Click()
  If TogAction.Value Then ' Le bouton est enfoncé
    ManageAction
  Else ' Bouton relâché
    ViewAll
  End If
End Sub
 
Sub ManageAction()
  Dim Action As String
 
  Action = InputBox()
  ....
  ....
 
End Sub
 
Sub ViewAll()
  ....
  ....
End Sub

[pijaku]

Bonjour,

Pour répondre simplement à la question posée, j'utiliserais la propriété Tag du ToggleButton.
Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ToggleButton1_Click()
Dim v As String
 
    If ToggleButton1.Tag = "" Then
        v = InputBox(Prompt:="What is the name of the task")
        ToggleButton1.Tag = v
    Else
        v = ToggleButton1.Tag
        ToggleButton1.Tag = ""
    End If
    MsgBox v
End Sub

[Noctis76]

Je te remercie Pierre grâce à toi j'ai résolu mon problème et mieux encore j'ai parfaitement compris !

Le code pour les personnes que ça intérésse :

Code :

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

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
Private Sub ToggleButton34_Click()
  If ToggleButton34.Value Then ' Le bouton est enfoncé
    ManageAction
  Else ' Bouton relâché
    ViewAll
  End If
End Sub
 
Sub ManageAction()
 
  Dim Action As String
 
  Action = InputBox( _
    Prompt:="What is the name of the task")
 
    For i = 80 To 147
 
    If Cells(11, i) = Action Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = ToggleButton34.Value = True
                             Else
    End If
 
Next
 
 
End Sub
 
Sub ViewAll()
  Columns("K:EQ").EntireColumn.Hidden = False
End Sub

[Philippe Tulliez]

Bonjour,
La ligne 20 de ta procédure peux se résumer à

Code :

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

Range(Columns("K:K"), Columns(i - 1)).Hidden = ToggleButton34.Value

Il est inutile de rajouter = True

[Pierre Fauconnier]

Perso et tant qu'à faire, je préfèrerais avoir le code suivant, de manière à rendre ManageAction indépendante du togllebutton

Code :

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

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
Private Sub ToggleButton34_Click()
  If ToggleButton34.Value Then ' Le bouton est enfoncé
    ManageAction toggleButton34.Value
  Else ' Bouton relâché
    ViewAll
  End If
End Sub
 
Sub ManageAction(Value As Boolean)
 
  Dim Action As String
 
  Action = InputBox( _
    Prompt:="What is the name of the task")
 
    For i = 80 To 147
 
    If Cells(11, i) = Action Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = Value
                             Else
    End If
 
Next
 
 
End Sub
 
Sub ViewAll()
  Columns("K:EQ").EntireColumn.Hidden = False
End Sub

On pourrait peut-être même alors n'avoir pas besoin du bloc IF dans l'évènement, si ManageAction consiste à rendre visibles ou masquées les colonnes en bouclant. Mais l'idée reste de supprimer le couplage entre les différentes fonctions en passant les arguments nécessaires à chacune d'entre elle. Idéalement, ManageAction devrait être dans un module standard, d'ailleurs. Ca permettrait de la rendre tout à fait indépendance d'un interface quelconque

[Noctis76]

Ok, mais fondamentalement, quelle est la différence ?

[Pierre Fauconnier]

La différence réside dans le fait que tu peux ainsi rendre ManageAction indépendante du statut du togglebutton. Ca te permet d'abord de la tester dans devoir appeler l'affichage du togglebutton (sur un userform, sur une feuille Excel?). Ca te permet aussi, surtout si tu la mets dans un module standard, que d'autres clients (= procédures et fonctions) puissent l'utiliser. Tu détaches ainsi ton process de ton interface. Ton code y gagne en clarté, en lisibilité, en maintenance, en réutilisabilité, ...

Tant que ton code n'évolue pas, tu ne perçois pas forcément l'intérêt de la chose (sauf pour les tests et le débogage, ce qui est déjà énorme en termes de gain de temps), mais si demain il t'est demandé de gérer les actions autrement qu'en fonction d'un bouton basucle enfoncé ou non, tu es près à réagir et tes modifications sont mineures.

Si tu apprens dès maintenant à code de cette façon, tu programmeras plus vite et mieux, et tu pourras te constituer facilement des blocs de codes (procédures et fonctions) réutilisables à peu de frais.

C'est tout l'intérêt de coder de la sorte, et perso, j'exige des gens qui développent avec moi de procéder ainsi

[Noctis76]

Ok je vois, je vais procéder ainsi alors ^^.

J'ai une autre question, je souhaiterais ajouter une condition. Lorsque que l'on clique sur le Togglebutton, je voudrais que si l'on appuie sur "annuler" (pour fermer la pop-up), le Togglebutton revienne dans sa potion initiale (non cliquée). Peux tu me dire comment procéder ?

[Pierre Fauconnier]

Il est sur quoi, ton togglebutton? Un userform ou la feuille Excel?

[Noctis76]

La feuille excel, mais si tu pouvais me donner les deux solutions ? (userform et feuille excel, on ne sait jamais ^^).

[Pierre Fauconnier]

En fait, ça n'a pas d'importance. Je n'avais pas compris que tu parlais du bouton cancel de l'inputbox. Vu que l'inputbox n'apparaît que si le bouton est TRUE (enfoncé), il suffit de remettre sa valeur à FALSE en testant la chaine reçue. Cela permet aussi de tester que l'utilisateur a bien saisi une valeur avant de cliquer sur ok.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ToggleButton1_Click()
  Dim Choice As String
 
  If ToggleButton1.Value Then
    Choice = InputBox("Votre choix?")
    If Choice <> vbNullString Then
      ManageAction Choice, ToggleButton1.Value
    Else
        ToggleButton1.Value = False
    End If
  Else
 
  End If
End Sub
 
Sub ManageAction(Action As String, Value As Boolean)
 
End Sub

Au passage, renomme tes contrôles avec des noms évocateurs. Tu t'y retrouveras mieux lorsque tu devras plonger dans ton code d'ici quelques mois...

[Noctis76]

J'avoue que cette fois je ne comprend pas. A quel endroit de mon code dois-je insérer ce code ? Parce que maintenant, le code lance une inputbox "votre choix" (dont je ne comprend pas l'utilité) qui quand je la quitte (peu importe avec cancel ou ok) restart le ToggleButton comme je le voulais, et donc ensuite lance mon inputbox "What is the name of the task". Je n'ai pas du faire les choses correctement.

Code :

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

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
33
34
35
36
37
38
Private Sub ToggleButton34_Click()
 
Dim Choice As String
 
  If ToggleButton34.Value Then ' Le bouton est enfoncé
 
  Choice = InputBox("Votre choix")
  If Choice <> vbNullString Then
  Else
  ToggleButton34.Value = False
  End If
 
    ManageAction
  Else ' Bouton relâché
    ViewAll
  End If
End Sub
 
Sub ManageAction()
 
  Dim Action As String
 
  Action = InputBox( _
    Prompt:="What is the name of the task")
 
    For i = 80 To 147
 
    If Cells(11, i) = Action Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = ToggleButton34.Value = True
    Range(Columns(i + 1), Columns("EQ:EQ")).Hidden = ToggleButton34.Value = True
                             Else
    End If
 
Next
 
 
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ToggleButton34_Click()
Static v As String
if v="" then  = InputBox(Prompt:="What is the name of the task")
For i = 80 To 147
    If Cells(11, i) = v Then
        Range(Columns("K:K"), Columns(i - 1)).Hidden = Not Range(Columns("K:K"), Columns(i - 1)).Hidden
    End If
Next
 If ToggleButton34 = False Then v = ""
End Sub

[Pierre Fauconnier]

Tu n'as pas écrit ton code sur base de ce que je t'ai donné. Tu as mal imbriqué tes IF. Relis mon code, il est fonctionnel pour ce que tu souhaites réaliser...

[Noctis76]

En effet j'ai été trop vite :

Code :

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

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
33
34
35
36
37
38
39
Private Sub ToggleButton34_Click()
 
Dim Choice As String
 
  If ToggleButton34.Value Then ' Le bouton est enfoncé
    ManageAction
  Else ' Bouton relâché
    ViewAll
  End If
End Sub
 
Sub ManageAction()
 
  Dim Action As String
 
  Action = InputBox( _
    Prompt:="What is the name of the task")
  If Action <> vbNullString Then
  Else
  ToggleButton34.Value = False
  End If
 
    For i = 80 To 147
 
    If Cells(11, i) = Action Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = ToggleButton34.Value = True
    Range(Columns(i + 1), Columns("EQ:EQ")).Hidden = ToggleButton34.Value = True
                             Else
    End If
 
Next
 
 
End Sub
 
Sub ViewAll()
  Columns("K:EQ").EntireColumn.Hidden = False
End Sub

Cela fonctionne ^^.