Etirer colonne de plusieurs onglets

Bonjour à tous,

Dans un fichier avec plusieurs onglets, je souhaite afficher le contenu de toutes les colonnes masquées (L à Z) de tous les onglets sauf celui de l'onglet "STOCKS"

avec le code ci-dessous, ça sélectionne bien les colonnes de L à Z de tous les onglets mais ça ne m'affiche pas le contenu des colonnes masquées!!!

Une idée , Help me?

Sub etirer_colonne()
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
If Feuille.Name <> "STOCKS" Then Feuille.Select Replace:=False
Next Feuille
Columns("L:Z").Select
Selection.EntireColumn.Hidden = False
Sheets("MENU").Select
Range("H12").Select
End Sub

Cordialement

Galiax

Bonjour

Forcément, le démasquage est en dehors de la boucle... Déplace ta fin de boucle après

Selection.EntireColumn.Hidden = False

Bonjour 78chris,

j'ai déplacé la fin de boucle après selection.entireColumn..........

mais ça démasque qu'une seule feuille et pas tous les onglets

Tu peux faire une capture d'écran ou un copier/coller du code STP...

RE

Oui je n'avais pas bien regardé car en plus ton code ne s'applique pas à la Variable Feuille donc seule la feuille active était traitée

Sub etirer_colonne()
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
If Feuille.Name <> "STOCKS" Then Feuille.Columns("L:Z").EntireColumn.Hidden = False
Next Feuille
End Sub

Impeccable, merci beaucoup 78chris.

A++