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

Roseline

XLDnaute Occasionnel
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.
 
Solution
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...

cathodique

XLDnaute Barbatruc
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)
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+
 

laurent950

XLDnaute Barbatruc
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
 

Roseline

XLDnaute Occasionnel
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
C'Est parfait, en plein ce que je voulais. Merciiiii
 

Discussions similaires

Statistiques des forums

Discussions
313 206
Messages
2 096 215
Membres
106 535
dernier inscrit
StephCo