macro ne s'active pas "correctement"

[charette63]

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:

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

 

[Gorfael]

Re : macro ne s'active pas "correctement"

Salut charette63 et le forum

Sub masquer_colonne1()
Dim F As Worksheet
For Each F In 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"))

    .Columns("T:AK").Hidden = True
    .Range("A1").Activate
Next F
Sheets("Horaire").Activate
Range("A1").Select
End Sub

Faut pas croire tout ce que raconte Excel
Comme tu as mis les noms des feuilles, je m'en suis servi. Sinon j'aurais mis

for each F in thisworkbook.sheets
    if F.name<>"Horaire" then
        'masquage colonnes
    end if
next F

Je n'ai pas testé la macro.
A+

 

[charette63]

Re : macro ne s'active pas "correctement"

Bonjour carcharodon-carcharias, Gorfael et le forum,

Pour carcharodon-carcharias, le code que tu m'as transmis ne s'applique pas à mes besoins, le bout de code que je recherche est associé dans une macro plus complexe qui comprend une "déprotection" du classeur, ouverture des onglets autre que "Horaire",et mise en page avant impression. Et c'est cette mise en page qui pose problème (masquage des colonnes dans tout les classeurs).

Pour Gorfael, ton premier code me donne une erreur d'execution 9:" l'indice n'appartient pas à la selection" et c'est toute la partie des "noms" qui est jaunie dans le Visual basic editor.
J'ai essayé ton deuxieme code:

Sub masquer_colonne1()

Dim F As Worksheet
For Each F In ThisWorkbook.Sheets
    If F.Name <> "Horaire" Then
    Columns("T:AK").Hidden = True
    Range("A1").Activate
    End If
Next F
Sheets("Horaire").Activate
Range("A1").Select
End Sub

Je n'ai plus de message d'erreur, mais les colonnes sont masquées uniquement dans la feuille "Horaire".

Merci à vous deux pour votre collaboration

 

[Gorfael]

Re : macro ne s'active pas "correctement"

Salut charette63 et le forum
Mon premier code est issu directement du tien pour les noms. Et si j'avais pas oublié "F."...

Sub masquer_colonne1()
Dim F As Worksheet
For Each F In ThisWorkbook.Sheets
    If F.Name <> "Horaire" Then
        F.Columns("T:AK").Hidden = True
        F.Range("A1").select
    End If
Next F
Sheets("Horaire").Activate
Range("A1").Select
End Sub

Il est a des soir où il vaut mieux dormir
(je comprenais pas le poste de carcharodon-carcharias)
A+

 

[charette63]

Re : macro ne s'active pas "correctement"

Bonjour Gorfael,

fais une petite sieste à 16h30, le "F." devant "Range" était de trop.

sans ça, c'est nickel

avec tout mes remerciements