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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**AlainTech** · 14/12/2007, 12h27

Un petit exemple sans ActiveWindow:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Dim wbkTest As Workbook
  Set wbkTest = Workbooks.Add
  wbkTest.Windows(1).SplitRow = 3
  wbkTest.Windows(1).FreezePanes = True

Testé également avec freeze dans les 2 directions (H et V):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Dim wbkTest As Workbook
  Set wbkTest = Workbooks.Add
  wbkTest.Windows(1).SplitColumn = 3
  wbkTest.Windows(1).SplitRow = 2
  wbkTest.Windows(1).FreezePanes = True

Toujours plus fort.
Le classeur ne doit même pas être activé pour positionner le freeze.
Démonstration:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Dim wbkTest As Workbook
  Set wbkTest = Workbooks.Add
  ThisWorkbook.Activate
  wbkTest.Windows(1).SplitColumn = 3
  wbkTest.Windows(1).SplitRow = 2
  wbkTest.Windows(1).FreezePanes = True

**Ragmaxone** · 16/12/2008, 14h23

Bijour!

J'aime bien ta méthode Alain, mais pour moi ça pose problème : je voudrais le faire pour une feuille de calcul que je créé dans le même classeur... donc je ne peux pas créer de nouveau classeur.

J'ai réussi à le faire en modifiant un peu ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.Worksheets.Add Type:=xlWorksheet
With ThisWorkbook.Windows(.Windows.Count)
        .SplitRow = 4
        .FreezePanes = True
End With

Ca créé une nouvelle feuille de calcul dans le classeur en cours et ça la split/freeze (ici uniquement sur les colonnes).

Merci pour la piste!!!

Rag