XL 2010 Figer les volets

[Draxtor]

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.

 

[JBARBE]

Bonjour à tous,
A défaut de fichier, peux-tu nous donner ta macro ! ( peut-être cela vient de ceci et c'est plus rassurant pour nous)!
Bonne soirée !

 

[Draxtor]

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.

 

[Ikito]

Bonjour Draxtor,

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

Private Sub Workbook_Open()

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

End Sub

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

 

[JBARBE]

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

 

[Draxtor]

Bonjour Draxtor,

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

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 :

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 :

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 :

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.

 

[Draxtor]

Bonjour JBARBE personnellement j'ai la version 2007 mais je crois qu'on utilise celle de 2010 sur mon lieu de travail.

 

[Draxtor]

Re,
J'ai Excel 2007 et ne peut figer plusieurs lignes ( quel est ton excel ) ?
@+Regarde la pièce jointe 1047326

De plus ce problème n'arrive que sur mon lieu de travail, je n'ai jamais constaté cela chez moi avec la version 2007