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

[Roseline]

Bonjour,
J'ai un classeur qui comporte plusieurs onglets pour mes différents clients. Chaque onglet est identique. Comme je suis pas la seule personne à travailler dans le fichier et que j'ai plusieurs formules, j'aimerais avoir une vba qui me permettrait d'afficher toutes les colonnes masqués de chacun de mes onglets en même temps. Mes colonnes masquées sont identiques à chacun de mes onglets. Par exemple: Colonne C-E-G et H.
Je fais apparaître mes onglets et je voudrais qu'en faisant apparaître les onglets, les colonnes se démasquent également.
for each onglets in workbook
Onglets.visible = True
Next onglets

Merci de votre aide.

 

[cathodique]

Bonjour,
J'ai un classeur qui comporte plusieurs onglets pour mes différents clients. Chaque onglet est identique. Comme je suis pas la seule personne à travailler dans le fichier et que j'ai plusieurs formules, j'aimerais avoir une vba qui me permettrait d'afficher toutes les colonnes masqués de chacun de mes onglets en même temps. Mes colonnes masquées sont identiques à chacun de mes onglets. Par exemple: Colonne C-E-G et H.
Je fais apparaître mes onglets et je voudrais qu'en faisant apparaître les onglets, les colonnes se démasquent également.
for each onglets in workbook
Onglets.visible = True
Next onglets

Merci de votre aide.

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

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+

 

[Roseline]

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

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+

Merci ca fonctionne parfaitement.

 

[laurent950]

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.

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

 

[Roseline]

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.

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

C'Est parfait, en plein ce que je voulais. Merciiiii