XL 2010 Figer les volets

Draxtor

XLDnaute Nouveau
Bonjour, je suis nouveau sur le forum et je programme un peu sous VBA sans pourtant être un spécialiste. J'ai encore beaucoup à apprendre.
Ma question concerne simplement Excel et la fonction Figer les volets. J'ai un fichier avec une vingtaine de feuilles qui sont toutes formatées de la même manière et les volets sont toujours figés sur la même cellule. Le problème est que, après enregistrement et réouverture du fichier les volets de certaines feuilles ne sont plus figés ou bien ils le sont sur une autre cellule. Je ne comprends pas pourquoi.
Merci pour votre aide.
 

Draxtor

XLDnaute Nouveau
Il s'agit d'un fichier professionnel, je ne souhaite pas le divulguer. Il contient des macros qui n'ont rien à voir avec ce problème. Je fige les volets directement sur les feuilles en me positionnant sur la cellule A8 à D8 (elles sont fusionnées) mais à la réouverture du fichier je constate que les volets ne restent pas figés. L'objectif, bien sûr, est de figer les lignes de 1 à 7. Désolé de ne pas pas pouvoir être plus concret.
 
Dernière édition:

Ikito

XLDnaute Occasionnel
Bonjour Draxtor,

De ce que j'ai compris, il faudrait que tu ajoutes ce bout de code dans ThisWorkbook :

VB:
Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
ActiveWindow.FreezePanes = True

End Sub

Avec Feuil1, à remplacer par le nom de ta feuille.
 

JBARBE

XLDnaute Barbatruc
Re,
J'ai Excel 2007 et ne peut figer plusieurs lignes ( quel est ton excel ) ?
@+
volet.jpg
 

Draxtor

XLDnaute Nouveau
Bonjour Draxtor,

De ce que j'ai compris, il faudrait que tu ajoutes ce bout de code dans ThisWorkbook :

VB:
Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
ActiveWindow.FreezePanes = True

End Sub

Avec Feuil1, à remplacer par le nom de ta feuille.
Bonjour Draxtor,

De ce que j'ai compris, il faudrait que tu ajoutes ce bout de code dans ThisWorkbook :

VB:
Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
ActiveWindow.FreezePanes = True

End Sub

Avec Feuil1, à remplacer par le nom de ta feuille.
Bonjour Draxtor,

De ce que j'ai compris, il faudrait que tu ajoutes ce bout de code dans ThisWorkbook :

VB:
Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
ActiveWindow.FreezePanes = True

End Sub

Avec Feuil1, à remplacer par le nom de ta feuille.
Bonjour Draxtor,

De ce que j'ai compris, il faudrait que tu ajoutes ce bout de code dans ThisWorkbook :

VB:
Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
ActiveWindow.FreezePanes = True

End Sub

Avec Feuil1, à remplacer par le nom de ta feuille.
Bonjour Ikito, j'ai effectivement pensé à ce code que j'ai pu élaborer avec l'enregistreur de macro. Je pense que c'est ce que je vais faire, même si je voulais éviter de passer par une macro. Merci pour ta réponse.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510