Afficher/masquer colonnes via bouton macro ou autre méthode

Bonjour a tous !

J'aimerais obtenir une méthode qui me permettrait de pouvoir switcher entre les affichage suivants :

* soit afficher les colonnes valeur (A et D) et masquer les colonnes Note et Note finale (B,C et E,F)

* soit afficher les colonnes Note finale (C et F) et masquer les colonnes Valeur et Note (A,B et D,E)

Un bouton macro pourrait peut etre faire ca, 1 clic = 1 changement d'affichage ?

Malheureusement je suis incapable de mettre ca en place

Merci et encore merci pour votre aide !

hello

si tu sais le faire manuellement, tente l'enregistreur de macro.

facile et très pratique

et tu affectes la macro à un bouton.

tu sais faire ?

Oui c'est pas bete !!!

J'ai donc tenté crée un bouton pour chaque macro

• affichage total
• affichage valeur (masquage note/note finale)
• affichage note finale (masquage valeur/note)

Sub Valeur()

'

Application.CommandBars("Task Pane").Visible = False

Range("F:G,I:J,L:M,O:P,R:S,U:V").Select

Range("I1").Activate

Selection.EntireColumn.Hidden = True

Application.CommandBars("Task Pane").Visible = False

Range("E:E,H:H,K:K,N:N,Q:Q,T:T").Select

Selection.EntireColumn.Hidden = False

End Sub

Sub Notefinale()

Application.CommandBars("Task Pane").Visible = False

Range("E:F,H:I,K:L,N:O,Q:R,T:U").Select

Range("I1").Activate

Selection.EntireColumn.Hidden = True

Application.CommandBars("Task Pane").Visible = False

Range("G:G,J:J,M:M,P:P,S:S,V:V").Select

Selection.EntireColumn.Hidden = False

End Sub

Sub affichtout()

Application.CommandBars("Task Pane").Visible = False

Range("A:V").Select

Selection.EntireColumn.Hidden = False

End Sub

• > j'ai toujours les colonnes affichées sélectionnées après chaque macro (et c'est plutot moche les colonnes bleutées lorsqu'elles sont sélectionnée!!!)
• > comprends pas ce code " Range("I1").Activate "

L'optimal ce serait 1seul bouton qui permettrai de baculer d'affichage à chaque clic et la ca devient plus problématique à cause de mon manque de maitrise du logiciel !!

Merci d'avance

pour le coup, moi aussi je sèche

hors de l'enregistreur, je ne fais pas de code dans Excel, désolé.

bonsoir à tous,

En mettant un interrupteur(va-et-vient) ici en"Q1"

Sub cache_col()  'va-et-vient (cache ou affiche les colonnes)
        If [q1] = 1 Then
            Range("a1,d1").EntireColumn.Hidden = False
            Range("b1,c1,e1,f1").EntireColumn.Hidden = True
                    [q1] = 2
            Else
             Range("a1,d1").EntireColumn.Hidden = True
            Range("b1,c1,e1,f1").EntireColumn.Hidden = False
                    [q1] = 1
        End If
       [a1].Select
End Sub

remplace "q1" par ton choix

amicalement

Claude.

édit: Range("a1:f1").EntireColumn.Hidden = False

pour afficher tout (autre bouton)

Bonsoir,

Essaye ce code :

Private Sub Cmd_Click()
'Macro par Dan
Application.ScreenUpdating = False
With Cmd
If .Caption = "Afficher" Then 'nom afficher à adapter
Columns("A:A").Hidden = False
Columns("D:D").Hidden = False
Columns("B:C").Hidden = True
Columns("E:F").Hidden = True
.Caption = "Masquer" 'nom masquer à adapter
Else
Columns("A:B").Hidden = True
Columns("D:E").Hidden = True
Columns("C:C").Hidden = False
Columns("F:F").Hidden = False
.Caption = "Afficher" 'nom afficher à adapter
End If
End With
End Sub

N'oublie pas de dessiner ton bouton sur ta feuille par AFFICHAGE / BOITE A OUTILS

Ensuite place cette macro en VBA ( ALT + F11) dans la feuille concernée par tes données.

Amicalement

Dan

Bonjour,

Pourquoi se compliquer la vie quand on peut faire simple ?

Je pense qu'un affichage personnalisé peut répondre à ta demande.

Tu masques les colonnes que tu souhaites. Tu mémorises cet affichage en faisant :

• Affichage
• Affichage personnalisé
• Ajouter : donner un nom et valider.

Puis tu recommences avec ta deuxième option.

Pour plus de commodité, tu peux placer un bouton correspondant à Affichage personnalisé dans une barre d'outils. (Outils - Personnaliser - Commandes - Affichage, puis faire glisser l'affichage personnalisé vers une barre d'outils présente)

Tu n'as plus qu'à choisir ton affichage d'un seul clic.

Cordialement,

"Trop top" dirait ma fille !

merci JMD

(PS : j'ai la même à la maison !)

re,

Bonne idée VElbie car effectivement on l'oublie bien souvent cette option "affichage perso".

La preuve, je l'utilise souvent et je l'avais oubliée...

Comme je le répète souvent "à quoi bon faire des macros si Excel nous propose quelque chose dans ses menus"

@+

Dan