Cacher/Afficher Bouton

É

Épaf

XLDnaute Occasionnel

• 16 Décembre 2009

• #2

Re : Cacher/Afficher Bouton

Code:

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

Cliquez pour agrandir...

par

Code:

    Selection.EntireColumn.Hidden = Not Bouton.Value

 

Dernière édition: 16 Décembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Décembre 2009

• #3

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+

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 16 Décembre 2009

• #4

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

Code:

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

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

Code:

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

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

 

Vote positif 0 Vote négatif

D

dureiken

Guest

• 16 Décembre 2009

• #5

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Décembre 2009

• #6

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Décembre 2009

• #7

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

 

Vote positif 0 Vote négatif

D

dureiken

Guest

• 16 Décembre 2009

• #8

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Décembre 2009

• #9

Re : Cacher/Afficher Bouton

Re,

Vois si cela convient:

Code:

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+

 

Vote positif 0 Vote négatif

D

dureiken

Guest

• 16 Décembre 2009

• #10

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.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Décembre 2009

• #11

Re : Cacher/Afficher Bouton

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

Code:

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

A+

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 16 Décembre 2009

• #12

Re : Cacher/Afficher Bouton

Bonjour,

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

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

 

Pièces jointes

• CacherAfficher.zip

  16.1 KB · Affichages: 72

Dernière édition: 16 Décembre 2009

Vote positif 0 Vote négatif

D

dureiken

Guest

• 16 Décembre 2009

• #13

Re : Cacher/Afficher Bouton

Merci à tous j'ai fait la solution de Hasco 🙂

 

Vote positif 0 Vote négatif