FreezePanes sans ActiveWindow

**melouille56** · 13/12/2007, 11h14

Bonjour,

je cherche un moyen de figer les volets sans avoir à sélectionner la cellule avant.

Le code normal étant:

Code :

1
2
Range("A2").Select
ActiveWindow.FreezePanes = True

J'ai essayé

Code :

Range("A2").FreezePanes = True

qui bien sûr ne marche pas.

Est-ce que quelqu'un sait comment faire.

Merci pour vos conseils.
Mél

**Jean-Pierre49** · 13/12/2007, 11h24

Bonjour

tu n'a pas besoin de selectionner une cellule

si ton volet est en ligne 2 :

Code :

1
2
    ActiveWindow.SplitRow = 2
    ActiveWindow.FreezePanes = True

**melouille56** · 13/12/2007, 11h31

Ok super merci

don comme je ne veux pas travailler avec ActiveWindow, j'ai modifié ta réponse en un

Code :

1
2
Worskheets("Sheet1").SplitRow = 2
Worskheets("Sheet1")..FreezePanes = True

Merci beaucoup !

**Jean-Pierre49** · 13/12/2007, 11h58

Tu es sur que ça marche?

**melouille56** · 13/12/2007, 13h40

Effectivement, ca ne marche pas...

**Jean-Pierre49** · 13/12/2007, 13h42

Seule solution : ActiveWindow

Macros et VBA Excel