Macro : 1 bouton d'execution pour 2 actions alternées

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!!!!

Citation:

---

Envoyé par Barney G. Stinson

---

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.

Citation:

---

Envoyé par Barney G. Stinson

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.

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

Bonjour.

Un truc du genre ?

Code:

---

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:

---

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

---

A+

Citation:

---

Envoyé par Eric KERGRESSE

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. :plusser:

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).

Bonjour,

Citation:

---

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:

---

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:

---

1 2 3

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

---

Bonne idée Philippe.

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

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,

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:

---

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

---

Bonjour.

On peut aussi faire plus compact :

Code:

---

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+