XL 2013 Afficher les colonnes de plusieurs onglets en même temps par vba

cathodique à dit:

Bonjour,
Comme ceci si j'ai bien compris (afficher les feuilles masquées et les colonnes masquées sur chaque feuille)

VB:

Option Explicit

Sub Macro1()
    Dim onglets As Worksheet
    For Each onglets In Worksheets
        onglets.Visible = True
        onglets.Cells.EntireColumn.Hidden = False
    Next onglets
End Sub

A+

Cliquez pour agrandir...

laurent950 à dit:

Bonsoir,
Exemple plusieurs Onglets :
- Choix pour Onglet "Feuil2", "Feuil3", "Feuil4" sur plusieurs feuilles dans ce classeurs
Exemple ses 3 Feuilles ("Feuil2", "Feuil3", "Feuil4") Les colonnes masquer identiques au 3 Feuilles.
- Masquer / Demasquer les Colonnes Par exemple: Colonne C-E-G et H.

VB:

Sub MasquerOnglet()
Dim NomOnglet As Variant
    NomOnglet = Array("Feuil2", "Feuil3", "Feuil4")

Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    ' Masquer les Feuilles
        ws.Visible = xlSheetVeryHidden
        For i = LBound(NomOnglet) To UBound(NomOnglet)
            If ws.Name = NomOnglet(i) Then
                ' Masquer les Colonnes Par exemple: Colonne C-E-G et H.
                    ws.Range("c:c,e:e,g:g,h:h").EntireColumn.Hidden = False
                ' Demasquer les Feuilles
                    ws.Visible = True
            End If
        Next i
    Next ws
End Sub

Sub DemasquerOonglet()
Dim NomOnglet As Variant
    NomOnglet = Array("Feuil2", "Feuil3", "Feuil4")

Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    ' Demasquer les Feuilles
        ws.Visible = True
        For i = LBound(NomOnglet) To UBound(NomOnglet)
            If ws.Name = NomOnglet(i) Then
                ' Afficher les Colonnes Par exemple: Colonne C-E-G et H.
                    ws.Range("c:c,e:e,g:g,h:h").EntireColumn.Hidden = False
            End If
        Next i
    Next ws
End Sub

Cliquez pour agrandir...