problème avec figer les volets

[Marion]

Bonsoir au forum.

Mon problème du moment est le suivant:

sur une feuille j'ai figé les volets en E6 lorsque je déclanche une macro qui effetue un trie et une impression je n'arrive pas a revenir avec les vlets ouverts

En fin de ma macro j'ai bien écrit : Range ('e6'). select

je reviens bien en e6 mais les volet ne se sont pas remis.

si je fait ctrl + origine cela fonctionne.

il doit me manquer quelque chose mais quoi???????????

Un solution peut-être?

Merci de votre attention

A+Marion

 

[Gérard DEZAMIS]

Bonsoir Marion

En utilisant :

Range('E6').Select
ActiveWindow.FreezePanes = True

cel ne fonctionne pas ?

@+ GD

 

[Marion]

Merci Gérard pour ta réponse.


Mais cela ne fonctionne toujours pas

Merci

 

[Gérard DEZAMIS]

Re Marion
je suis désolé je vais encore meriter le ZOP à moins que ...

Regarde le fichier joint

est-ce que cela ressemble à ton problème ?

@+ GD [file name=MarionFigeVolet.zip size=8708]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MarionFigeVolet.zip[/file]

 

[pat1545.]

Salut ,

pour (dé)bloquer la ligne 1:
Sub Ligne1()
Dim mpanel As Boolean
Application.ScreenUpdating = False
Place_Actuelle = ActiveCell.Address
mpanel = IIf(ActiveWindow.FreezePanes, True, False)
If Not mpanel Then
Application.Goto Range('A1'), Scroll:=True

ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Else
ActiveWindow.SplitRow = False
ActiveWindow.FreezePanes = False
End If
Application.Goto Range(Place_Actuelle), Scroll = True
ActiveWindow.SmallScroll Down:=2
End Sub


Patrick

 

[Marion]

Merci a tous pour votre aide.

De mon côté j'ai trouver une solution .

intégrer en fin du code :
la libération des volets
ensuite ctrl+origine
retour en E6
refiger les volets


ça marche..

merci a vous pour m'avoir montré le chemin.

Gros bisous

A+Marion