VBA figer les volets

Bonjour à tous,

problème pour figer les volets et afficher cellule choisie en tête des volets

https://www.excel-pratique.com/~files/doc/figerVolets.xls

bonne journée

Claude.

Bonjour,

Pas sûr d'avoir compris ton pb là mais si tu veux figer les volets en fonction de la cellule "top" (qui de plus est peut se situer variable sur la feuille) utilise ce code :

Sub FigerVolets()
'Macro par Dan pour Dubois - excel pratique le 27/02/08
With ActiveWindow
    .SplitRow = Range("top").Row
    .FreezePanes = True
End With
End Sub

Amicalement

Dan

re,

merci Dan, mais çà ne résout pas mon problème.

une fois les volets figés, je voudrais que le cellule "top" soit à coté de la colonne A.

je sais faire en Excel4 (avec =FENETRE.DEPLACEMENT) mais pas en VBA.

à+....Claude.

re,

Essaye ce code :

Sub FigerVolets()
'Macro par Dan pour Dubois - excel pratique le 27/02/08
With ActiveWindow
.SplitRow = Range("top").Row
.SplitColumn = 1
.FreezePanes = True
.SmallScroll ToRight:=Range("top").Column - 2
End With
End Sub

Amicalement

Dan

Bonjour à tous,

merci Dan, je vais conservé précieusement ce code, car c'est pas la première fois que

je piétine sur cette Proc.

amicalement

Claude.