Togglebutton affichage colonne dans différents onglets / Liste déroulante

Bonjour à tous,

J'ai besoin d'avoir dans un onglet principal des boutons qui me permettent d'afficher ou nom des colonnes sur différents onglets en fonction d'une période.

Je souhaite aussi faire une deuxième version avec une liste déroulante.

Et si possible coder avec le nom des feuilles et non des onglets.

Voir fichier joint :

Merci par avance pour votre aide.

Cordialement

Bonjour Micko, bonjour le forum,

Peut-être comme ça :

Private Sub ACTUA1_Click()
Dim P As Worksheet

Set P = Worksheets("PC")
P.Activate
P.Columns("E:K").Hidden = ACTUA1.Value
End Sub

Private Sub ACTUA2_Click()
Dim P As Worksheet

Set P = Worksheets("PC")
P.Activate
P.Columns("G:K").Hidden = ACTUA2.Value
End Sub

Private Sub PLAFFAIRES_Click()
Dim P As Worksheet

Set P = Worksheets("PC")
P.Activate
P.Columns("B:E").Hidden = PLAFFAIRES.Value
End Sub

Private Sub PLAN_Click()
Dim P As Worksheet

Set P = Worksheets("PC")
P.Activate
P.Columns("D:E").Hidden = PLAN.Value
P.Columns("I:K").Hidden = PLAN.Value
End Sub

Bonjour ThauThème,

Merci pour ta réponse.

Cela correspond partiellement à mon besoin pour la première partie de ma demande. J'ai pu ajouté la même chose en prenant en compte l'onglet suivant.

En mettant le code dans le module ça ne fonctionne plus par contre. Donc je suppose que cela doit rester dans la feuille où je mets mon bouton.

Je vois dans le code que tu laisses le nom des onglets or je souhaiterais avoir les nom des feuilles. Par exemple pour l'onglet PC, prendre "Feuil2". Ainsi je pourrais quand même changer le nom des onglets. As-tu une solution pour cela?

J'avais tenté avec :

Sub Bouton1_Clic()

Sheets(2).Select

End Sub

En l'adaptant à mon fichier mais ça ne me mettait pas sur la bonne feuille.

Est-ce que tu as une idée pour la liste déroulante?

Cela doit être plus complexe

Merci encore pour ton aide.

J'ai pu continuer mes tests et faire un code complet qui correspond à mon besoin.

Celui qui est affecté à mon bouton "Actua 1".

Le fait de garder le nom de la feuille et non de l'onglet est ok.

Par contre je ne sais pas comment je peux exploiter une liste déroulante avec ce type de code.

Auriez-vous une idée?

Est-ce que quelqu'un saurait me dire pourquoi quand je mets les codes dans le module cela ne fonctionne plus svp?

Il faudrait peut être ajouter une condition

Cordialement

Bonjour le Micko, bonjour le forum,

En pièce jointe ton fichier modifié :

Merci !

Cela m'a beaucoup aidé.