comment activer la fonction freezpanes sur un ensemble de sheet

Bonjour j'ai plusieurs sheet contenant des données et j'amerais coder une fonction qui permette de mettre un freeze panes automatiquement sur toutes mes feuilles à la ligne 5 .

comment faire????

Merci.

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() For i = 1 To Sheets.Count Worksheets(i).Activate Range("A5").Select ActiveWindow.FreezePanes = True Next End Sub

---

Merci pour la réponse sa fonctionne

Bonjour,

Je me permets de rappeler que l'enregistreur de macro peut-s'avérer très utile quand on ne sait pas où chercher.

Ce post permet d'aller un peu plus au fond de la question, en rendant le code "un peu" plus propre (marche pas à 100%).


Bonne continuation!


Rag