Masquer/afficher colonne

[shadows31]

bonjour a tous , je cherche une macro qui me permetrait de masquer toutes les colonne C des feuilles de mon classeur en même temps grace a un bouton par exemple et une autre pour les réafficher quand besoin est .

Sub masquercolonne()
'
' masquercolonne Macro
' Macro enregistrée le 27/10/2008 par Direction
'

'
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End Sub
naturellement celle la marche mais juste sur une feuille!!
merci de votre aide qui nous permet de progresser de jours en jours

 

[RENAUDER]

Re : Masquer/afficher colonne

Bonjour,

Sub test()
    i = 0
    For Each sh In ActiveWorkbook.Sheets
        i = i + 1
        sh.Select
        Columns("C:C").Select
        Selection.EntireColumn.Hidden = True
    Next sh
End Sub

 

[BOISGONTIER]

Re : Masquer/afficher colonne

Bonjour,

For s = 1 To Sheets.Count
Sheets(s).[C:C].EntireColumn.Hidden = True
Next

JB

 

[job75]

Re : Masquer/afficher colonne

Bonjour à tous,

Une macro qui cache toutes les colonnes C, puis qui les affiche quand on l'exécute de nouveau.

On remarque que la variable etat est déclarée Public.

Public etat As Variant

Sub colonnes()
Dim sh As Worksheet
etat = Not etat
For Each sh In Worksheets
sh.Columns("C:C").Hidden = etat
Next
End Sub

Edit : il y a plus simple, sans variable etat :

Sub colonnes()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Columns("C:C").Hidden = Not sh.Columns("C:C").Hidden
Next
End Sub

A+

 

[shadows31]

Re : Masquer/afficher colonne

merci a tous ca a l'air de marcher correctement je connais pas trop la difference entre public et edit mais ca sera un futur pas a faire. encore merci a tous

 

[job75]

Re : Masquer/afficher colonne

@ shadows31

Il y avait une erreur dans mon Edit, je l'ai corrigée, voyez mon post précédent.

A+

 

[shadows31]

Re : Masquer/afficher colonne

Ok merci j'avais pas détecté d'erreur de toutes facons et je me suis servi du code public etat qui fonctionne a merveille, encore merci a tous
a+