Discussion :

[pikameuh]

Bonjour,

j'aimerais trouver comment figé les volets des 2 premieres lignes de mon fichier Excel en VBA.

j'ai essayé :

Code :

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

1
2
3
' Figer les volets
         oFeuille.Rows("3:3").Select
        ActiveWindow.FreezePanes = True

Mais ça fige jusqu'à la ligne 20...
Pouvez vous m'aider svp?

[AlainTech]

Bonjour,

Essaie ça:

Code :

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

1
2
3
4
  With oFeuille.Parent.Windows(1)
    .SplitRow = 2
    .FreezePanes = True
  End With

Et si le même problème se pose, c'est probablement que tu as des cellules fusionnées.

[pikameuh]

c'est nickel ! Et ça m'enlève un bug, milles merci !

[amnorian]

Etrange, pourquoi est-il, au démarrage, necessaire de spliter pour ensuite freezer?

l'enregistreur de macro me donne ça

Code :

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

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

ce qui permet de pouvoir selectionner le freeze sur une autre cellule genre b3 ou c3

[pikameuh]

J'avais éssayé pareil que ton code mais ça généré 2 problème :

1) Si je faisait appele à la procédure plus d'une fois sans quitter et relancer l'appli, ça plantais...

2) Le freez était en plein milieu de l'écran.

Par contre, pourquoi. Ca c'est un mystère.

[AlainTech]

Etrange, pourquoi est-il, au démarrage, necessaire de spliter pour ensuite freezer?

L'enregistreur de macro passe par un Select ce qui nécessite que la feuille de destination soit active.
Le code que je propose ne demande pas de Select.
Si tu veux "Freezer" sur une colonne, il te suffit de "Splitter" aussi cette colonne avant le FreezePanes.