Cacher/Afficher Bouton

[dureiken]

Bonjour,

dans le fichier joint vous verrez un bouton Reporting permettant de cacher/afficher certaines colonnes, et aussi de cacher/afficher 2 boutons. Seulement cela ne marche que pour cacher, et je n'arrive pas à afficher mes boutons lorsque je rétablis les colonnes.

J'utilise ce bout de code pour cacher, et pareil avec True pour afficher, je ne comprends donc pas pourquoi cela ne marche que dans un sens

        If Bouton = Reporting Then
            Sheets("En_Cours").Bouton_Annee.Visible = False
            Sheets("En_Cours").Bouton_Probable.Visible = False
        End If

Si vous avez une idée, merci d'avance

 

[Épaf]

Re : Cacher/Afficher Bouton

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As Object)

    Columns(letcol(NumColonne(Debut, "En_Cours")) & ":" & letcol(NumColonne(Fin, "En_Cours"))).Select 'Rentrer ici les colonnes du tableau si elles sont différentes
    '***SI LES COLONNES SONT AFFICHEES
    Sheets("En_Cours").Bouton_Annee.Visible = Bouton.Value
    Sheets("En_Cours").Bouton_Probable.Visible = Bouton.Value
    Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden 'Si elles sont affichées on les cache
    Cells(1, 1).Select
    
End Sub

Juste pour montrer comment éviter le select case en utilisant les booléens (vrai ou faux). Tu peux également éviter la sélection des colonnes en indiquant simplement leur adresse.
Bonne journée

PS - Tu peux aussi remplacer cette ligne
Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden 'Si elles sont affichées on les cache
par

Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden

par

    Selection.EntireColumn.Hidden = Not Bouton.Value

 

[Guest]

Re : Cacher/Afficher Bouton

Bonjour Dureiken,

J'ai ouvert ton fichier mais ne suis pas sûr d'avoir tout compris même s'il me semble reconnaitre certaines choses (NumColonne).

Peux-tu me dire quand tu veux que les colonnes soient cachées:

Quand la case à cocher 'Reporting' est = True ?
où quand elle est à false?

Les boutons doivent-ils suivrent la même logique?

Telle qu'elle est écrite, tes colonnes pourraient être cachées et les boutons visibles et lycée de Versailles!

A+
A+

 

[Épaf]

Re : Cacher/Afficher Bouton

A ma réponse précédente j'ajoute que mettre un objet en paramètre n'est pas très "économique". Dans Reporting_Click tu pourrais "n'envoyer" que la valeur de Reporting

Call CacherAfficher([Annee_En_Cours], [Total_Engage_En_Cours], Reporting.value)

que tu récupérerais en booléen dans CacherAfficher

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As Boolean)

Et à la place de Bouton.value, tu utilises dès lors Bouton.

 

[dureiken]

Re : Cacher/Afficher Bouton

@Epaf : j'ai plusieurs boutons en fait, planning reporting, etc ta dernière proposition ne marcherait pas. Concernant la simplification merci pour l'info.

@Hasco : colonnes cachées, bouton Reporting décoché et rouge, 2 boutons cachés. Et inversement

 

[Guest]

Re : Cacher/Afficher Bouton

re,

Ce serait pas plus logique de faire le contraire?
Partir de l'état de la case à cochée plutôt que de l'état caché des colonnes?
Case reporting Cochée -> affiche les colonnes et boutons
Case reporting décochée -> caches colonnes et boutons?

En attente de ta réponse.
A+

 

[JCGL]

Re : Cacher/Afficher Bouton

Bonjour à tous,
Salut Hasco ,

D'accord avec la logique d'Hasco...
Je n'ai pas vu de boutons cachés (Arf, ils sont trop bien cachés)

A++ l'ami Ges
A+ à tous

 

[dureiken]

Re : Cacher/Afficher Bouton

Oui ça me va aussi, j'avais fait ça au cas ou des personnes cachaient manuellement des colonnes, mais ça sera vérouillé à terme je pense donc pas de souci

 

[Guest]

Re : Cacher/Afficher Bouton

Re,

Vois si cela convient:

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As Object)
    With Sheets("En_Cours")
        .Bouton_Annee.Visible = Bouton.Value
        .Bouton_Probable.Visible = Bouton.Value
        .Columns(letcol(NumColonne(Debut, "En_Cours")) & ":" & letcol(NumColonne(Fin, "En_Cours"))).Hidden = Not Bouton.Value
    End With
        Bouton.BackColor = IIf(Bouton.Value, &HFF00&, &HFF&)
End Sub

A+

 

[dureiken]

Re : Cacher/Afficher Bouton

Ca marche nickel et c'est beaucoup plus simple ! Merci

Par contre j'aimerai juste faire un test sur le bouton, si c'est le bouton dont le nom est "Reporting" alors je cache mes 2 boutons, sinon je ne fais rien.

 

[Guest]

Re : Cacher/Afficher Bouton

Re,
Pourquoi, cette macro sera appelée par d'autre bouton?
Exemple:

If Bouton.Name<>"Reporting" then Exit Sub

A+

 

[Lii]

Re : Cacher/Afficher Bouton

Bonjour,

peut-être ainsi (quelques lignes déplacées) ?

Remarque : j'en étais resté au message #7 !

 

[dureiken]

Re : Cacher/Afficher Bouton

Merci à tous j'ai fait la solution de Hasco