Discussion :

[Barney G. Stinson]

Bonjour,

Mon besoin est le suivant :

Je souhaiterais exécuter à partir du même bouton d'exécution 2 actions, sur le principe de je clique une 1ère fois = action 1, je clique une seconde fois sur le même bouton= action 2, je clique une 3ème fois = action 1 ... et ainsi de suite
et où concrètement, mes actions seraient:

action 1 : déploiement du contenu d'informations (unhide des lignes)
action 2 : refermer le déploiement (hide des lignes)

Est-ce ce faisable?
Si non, je suis ouvert aux suggestions de solutions alternatives.


En espérant avoir été suffisamment explicite, un grand merci d'avance!!!!

[Invité]

Bonjour,

Une solution consisterait à modifier le libellé du bouton (propriété Caption) à chaque clic et de tester le libellé pour lancer l'une ou l'autre des macros.

[Menhir]

Une solution consisterait à modifier le libellé du bouton (propriété Caption) à chaque clic et de tester le libellé pour lancer l'une ou l'autre des macros.

Planquer l'information dans le bouton lui-même, c'est un truc auquel je n'avais pas pensé mais c'est une bonne idée que j'utiliserai.

[Menhir]

Je souhaiterais exécuter à partir du même bouton d'exécution 2 actions, sur le principe de je clique une 1ère fois = action 1, je clique une seconde fois sur le même bouton= action 2, je clique une 3ème fois = action 1 ... et ainsi de suite
et où concrètement, mes actions seraient:

action 1 : déploiement du contenu d'informations (unhide des lignes)
action 2 : refermer le déploiement (hide des lignes)

Un bouton ne peut être lié qu'à une seule macro.
Cependant, cette macro peut avoir des actions différentes en fonction de certaines paramètres.

Dans ton cas, le plus simple serait en début de code de vérifier si tes lignes sont masquées.
Si c'est le cas, tu les fait s'afficher.
Sinon tu les masques.

[Ben_L]

Bonjour,

C'est tout à fait faisable.
Quant à la solution à adopter, elle dépend de votre besoin exact :

• Votre bouton est-il situé sur une feuille de calcul ou sur un userform ?
• Quel est le comportement attendu lorsque vous fermez le fichier puis le ré-ouvrez : faut-il se "souvenir" de la dernière action effectuée ou faut-il toujours repartir de l'action 1 ? (idem dans le cas de la fermeture/ré-ouverture du formulaire le cas échéant)

L'idée sera de stocker une information quelque part : soit dans une cellule d'une feuille, soit directement dans une des propriétés d'un objet graphique. Cette info pourra ensuite être utilisée lors de l'exécution de la macro événementielle liée à votre bouton.

Cordialement

[marot_r]

Bonjour.

Un truc du genre ?

Code :

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

1
2
3
4
5
6
7
if Feuil1.Rows(1).EntireRow.hidden then
        'Décache la ligne
        Feuil1.Rows(1).EntireRow.hidden=false
    else
        'Cache la ligne
        Feuil1.Rows(1).EntireRow.hidden=true
end if

ou plus compact :

Code :

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

Feuil1.Rows(1).EntireRow.hidden=not(Feuil1.Rows(1).EntireRow.hidden) 'Inverse le cachage

A+

[Pierre Fauconnier]

Salut.

Lorsque la "bascule" concerne une feuille, j'utilise une propriété de la worksheet que je crée en tête du module de la feuille concernée. Ca ne lie pas les actions au libellé du bouton (cas d'une appli multilingue, par exemple).

Attention que sauf protection de la feuille, l'utilisateur pourra masquer ou afficher les lignes sans passer par le bouton, rompant ainsi la séquence de la bascule et amenant le bouton à ne plus être synchro avec la réalité de ladite feuille. Dès lors, un test tel que proposé par Marot n'est pas inutile.

En fonction de la configuration de ta feuille, tu pourrais aussi utiliser la mise en plan des données (pour autant qu'elles ne soient pas dans un tableau structuré, ce qui n'est normalement pas le cas sinon tu utiliserais les filtres automatiques).

[Philippe Tulliez]

Bonjour,

Je souhaiterais exécuter à partir du même bouton d'exécution 2 actions, sur le principe de je clique une 1ère fois = action 1, je clique une seconde fois sur le même bouton= action 2, je clique une 3ème fois = action 1 ... et ainsi de suite

C'est le rôle d'un ToggleButton (bouton bascule). Il suffit de tester sa propriété Value.
En fonction de sa valeur, on lancera l'action 1 ou l'action 2 et lorsqu'il s'agit de modifier la valeur de la propriété d'un objet et si celui-ci est une valeur numérique ou booléenne, on utilise directement la valeur du ToggleButton

Petit exemple, d'un ToggleButton (ActiveX) placé sur une feuille, qui masque des colonnes, change le texte (propriété Caption) et de couleurs (BackColor et FontColor) en fonction de sa valeur.
Les deux procédures sont placées dans le module de la feuille à traiter et où se trouve le ToggleButton

Procédure qui gère le bouton et cache ou affiche les colonnes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Hide_UnHide(tgl As ToggleButton, addColumns As String, Msg As Variant)
  ' Arguments
  '   tgl         Objet ToggleButton
  '   AddColumns  Lettre des colonnes à masquer
  '   Msg         Variable tableau à deux dimensions (0, 1) contenant les deux messages
  With tgl
   Columns(addColumns).EntireColumn.Hidden = .Value
  .Caption = Msg(Abs(.Value))
  .BackColor = vbGreen / ((Abs(Not .Value) * 255) + 1)
  .ForeColor = vbWhite * (Abs(Not .Value))
  .Font.Bold = True
  End With
End Sub

Code de la procédure qui invoque Hide_UnHide

Code :

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

1
2
3
Private Sub tgl_Hide_Unhide_Click()
  Hide_UnHide Me.tgl_Hide_Unhide, "D:F", Array("Masquer", "Afficher")
End Sub

[Barney G. Stinson]

Bonjour Philippe,

Merci de ton retour, cela semble effectivement être la solution recherchée, toutefois étant assez néophyte, je ne parviens pas à appliquer ces codes.

J'ai généré le ToggleButton, mais ne parviens pas ensuite à appliquer les codes. même sans en changer les données (remplacer column par rows) le code est en erreur.

Pourrais-tu stp me détailler les étapes dès lors que j'ai généré le ToggleButton, pour uniquement hide (action 1) & unhide (action 2) des lignes (4 à 21 dans mon cas)

Merci par avance,

[Barney G. Stinson]

Merci à tous pour vos idées et propositions. Je suis parvenu à mon objectif comme suit:

1/ Générer le ToggleButton
2/ View code

Et le code en question:

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
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
 'This area contains the things you want to happen
'when the toggle button is not depressed
Rows(4).EntireRow.Hidden = True
Rows(5).EntireRow.Hidden = True
Rows(6).EntireRow.Hidden = True
 
Else
'This area contains the things you want to happen
'when the toggle button is depressed
Rows(4).EntireRow.Hidden = False
Rows(5).EntireRow.Hidden = False
Rows(6).EntireRow.Hidden = False
 
 End If
 End Sub

[marot_r]

Bonjour.

On peut aussi faire plus compact :

Code :

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

1
2
3
Private Sub ToggleButton1_Click()
    Rows("4:6").EntireRow.Hidden = ToggleButton1.Value 'ToggleButton1.value=true => toggle button is not depressed
End Sub

A+

[Pierre Fauconnier]

Bonne idée Philippe.

Je pensais contrôle de formulaire mais c'est vrai qu'on peut utiliser un activeX