Cacher des colonnes (contenant des formules)

[Vincent]

Bonsoir,

Mon but est de cacher toutes les colonnes de H à Z.
(le nombre de lignes est variable)
Ceci pour l'ensemble des pages de mon fichier Excel..

Ces colonnes contiennent en fait des formules basées
sur des résultats encodés (pour info, colonne E) et qui doivent biensur fonctionner mais sans être spécialement visibles par l'utilisateur...Comment programmer celà en VBA?

J'attends de vos news. merci et au plaisir de vous aider
à mon tour si l'occasion se présente..

Vincent

 

[Jokari]

Je suis nouveau en VBA mais essaie ceci :

Columns('H:Z').Select
Selection.EntireColumn.Hidden = True

 

[Hellboy]

Bonsoir Vincent

Pour pouvoir passer en revue toutes les feuilles essaie ceci:

For Each Sheet In ActiveWorkbook.Sheets
        Sheet.Columns('A:Z').EntireColumn.Hidden = False
    Next Sheet

 

[Philippe]

Bonjour,

Mon code mis dans thisWorkbook est le suivant

Private Sub Workbook_Open()
    Dim Sheet As Worksheet
    For Each Sheet In Worksheets
        Sheet.Activate
        Sheet.Columns('H:Z').EntireColumn.Hidden = True
        With Rows('1:1')
            .HorizontalAlignment = xlJustify
            .WrapText = True
            .Orientation = 90
        End With
        Cells.ColumnWidth = 14
    Next
End Sub

..mais çà ne marche pas, les colonnes de H à Z sont quand même affichées..
qui sait pourquoi?

Philippe

 

[titcoeur]

Philippe,

c'est l'instruction Cells.ColumnWidth = 14
qui est de trop.
tu caches , puis tu réinitialise à 14 -> retour des colonnes.

A+