charette63
XLDnaute Occasionnel
Bonsoir à tous et toutes,
j'ai créé une macro via l'éditeur vba, ci dessous les actions effectuées:
je suis sur une feuille appelée "Horaire"
je lance l'enregistrement de la macro
je sélectionne toute les feuilles de mon classeur (excepté "horaire")
je sélectionne le colonnes T:AK que je masque
je sélectionne la cellule A1 (juste pour etre dans la premiere cellule à l'ouverture du classeur)
je retourne sur la feuille "Horaire" (pour sortir du groupe de travail)
je termine l'enregistrement de la macro
je vérifie toutes mes feuilles, le colonnes T:AK sont bien masquées.
Mon problème, est que lorsque je lance la macro, les colonnes T:AK sont masquées uniquement sur la premiere feuille (appelée ici "Dupont A")
je dépose le code:
Pouvez vous m'aider
Merci
j'ai créé une macro via l'éditeur vba, ci dessous les actions effectuées:
je suis sur une feuille appelée "Horaire"
je lance l'enregistrement de la macro
je sélectionne toute les feuilles de mon classeur (excepté "horaire")
je sélectionne le colonnes T:AK que je masque
je sélectionne la cellule A1 (juste pour etre dans la premiere cellule à l'ouverture du classeur)
je retourne sur la feuille "Horaire" (pour sortir du groupe de travail)
je termine l'enregistrement de la macro
je vérifie toutes mes feuilles, le colonnes T:AK sont bien masquées.
Mon problème, est que lorsque je lance la macro, les colonnes T:AK sont masquées uniquement sur la premiere feuille (appelée ici "Dupont A")
je dépose le code:
Code:
Sub masquer_colonne1()
'
' masquer_colonne Macro
' Macro enregistrée le 5/05/2011 par thierry
'
'
Sheets("Dupont A").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Dupont A", "Dupont B", "Dupont C", "Dupont D", "Dupont E", _
"Dupont F", "Dupont G", "Dupont H", "Dupont I", "Dupont J", "Dupont K", _
"Dupont L", "Dupont M", "Dupont N", "Dupont O", "Dupont P", "Dupont Q", "Dupont R", _
"Dupont S", "Dupont T", "Dupont U", "Dupont V", "Dupont W", "Dupont X", "Dupont Y", _
"Dupont Z", "Remplacement 1", "Remplacement 2", _
"Remplacement 3", "Remplacement 4", "Remplacement 5", "Remplacement 6")).Select _
Replace:=False
Columns("T:AK").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Sheets("Horaire").Select
End Sub
Pouvez vous m'aider
Merci