Boucle pour figer les volets ne marche pas?

[Paritec]

Bonjour Le forum,
j'ai fait (enfin essayé de faire) une boucle pour figer les volets dans un classeur sur toute les feuilles du classeur mais cela ne marche que sur la feuille active pourquoi SVP
ci-dessous ma macro
dans l'atente de vos réponses
a+
Papou

Sub Figer()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Application.ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Next ws
End Sub

 

[xstier]

Re : Boucle pour figer les volets ne marche pas?

Bonjour je pense q'il faut juste remplacer worksheet par workbook dans la macro
voir ci dessous

Sub Figer()
Dim ws As Worksheet
For Each ws In Workbook
ws.Application.ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Next ws
End Sub

 

[Paritec]

Re : Boucle pour figer les volets ne marche pas?

bonsoir xstier, le forum,
je vais essayer de suite je te dis cela dans 5 minutes
a+
papou

 

[Paritec]

Re : Boucle pour figer les volets ne marche pas?

Re Xstier, le forum,
bah non c'est pas ça ya autre choses mais quoi?
moi j'ai éssayé plein de choses mais je n'ai pas la bonne commande c'est sur, enfin si tu as une autre idée elle sera la bienvenue
a+
Papou

 

[kiki29]

Re : Boucle pour figer les volets ne marche pas?

Salut, corriger ton code en

    ....
For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        .....

 

[Paritec]

Re : Boucle pour figer les volets ne marche pas?

bonsoir Kiki 29
je vais essayer cela de suite et je te dis quoi dans 5 minutes
merci d'avance
a+
Papou

 

[Paritec]

Re : Boucle pour figer les volets ne marche pas?

Re Kiki29, le Forum,
Bon bah comme dab avec toi c'est tout bon.
Je ne pensais pas qu'il fallait activer la feuille pour pouvoir faire l'opération
ben il faut que je m'en souvienne maintenant.
merci pour tout Xstier Kiki29 et bonne fin de soirée à tous
a+
Papou

 

[xstier]

Re : Boucle pour figer les volets ne marche pas?

Sinon le code ci dessous semble fonctionner

Sub tes()
a = Worksheets.Count

For i = 1 To a
Sheets(i).Select
    ActiveWindow.SplitRow = 1
    ActiveWindow.FreezePanes = True
Next

End Sub

Xavier

 

[Paritec]

Re : Boucle pour figer les volets ne marche pas?

re Xtier le forum,
merci pour ta joilie boucle je vais la garder au chaud aussi car moi j'ai toujours besoin d'exemples pour faire des choses en vba
merci pour tout et bonne soirée
a+
Papou