Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum bonjour

j'ai executer ce petit code qui permets de figer la ligne 40 dans le cas présent

le code fonctionne MAIS comme on ai positionner dans le bas de l'écran, le

fait d'actionner le code fait remonter l'écran.

il y a t'il un moyen svp d'empècher ce problème, je pense a empécher un saut de ligne automatique (chr) qui dit de passer a ligne du dessous (je dit surement une bètise) mais c'est mieux que de rien dire.

Si quelqu'un SVP a la solution merci d'avance et bon W-end a tous

Raymond

Code :

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

1
2
3
4
5
'*** FIGE LA LIGNE DU BAS DE L'ECRAN (40)
Sub Fige()
Rows("41:41").Select
ActiveWindow.FreezePanes = True
End Sub

[PMO2017]

Bonjour,

Voyez si l'astuce suivante peut vous convenir

Code :

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

1
2
3
4
5
6
'*** FIGE LA LIGNE DU BAS DE L'ECRAN (40)
Sub Fige()
Rows("1:40").RowHeight = 12
Rows("41:41").Select
ActiveWindow.FreezePanes = True
End Sub

Cordialement.

PMO

[eliot.raymond]

Bonsoir a toutes et tous, forum bonsoir

Bonsoir PMO,

Merci pour votre réponse, c'est sympa a vous, je viens d'essayer votre code cela fonctionne parfaitement.

Je vous remercie beaucoup pour votre aide, je vous souhaite une excellente soirée ainsi qu'un bon Dimanche.

Bonne soirée a tous

Raymond