Scrollarea pour un fichier .xlsm

[tactic6]

Bonjour le forum
je galere avec scrollarea pour mon fichier .xlsm
quelqu'un sait il comment il faut faire pour que ça fonctionne

Private Sub Worksheet_Activate()
Worksheets("SAISIE").ScrollArea = "A1😛67"
End Sub

j'ai essayé ce code de partout dans mon fichier sans aucun résultat
j'ai meme essayé:

Sub Worksheet_Activate(ByVal control As IRibbonControl)
Worksheets("SAISIE").ScrollArea = "A1😛67" 'feuil1 et plage à adapter...
End Sub

dans un module mais ça ne fonctionne pas
Scrollarea est il compatible avec un .xlsm ?
Merci

 

[myDearFriend!]

Re : Scrollarea pour un fichier .xlsm

Bonsoir tactic6, le Forum,

Peut être aurais-tu mieux fait de poster dans le Forum spécial Excel 2007 ?

Cela dit, non ton problème ne vient pas d'une incompatibilité entre .xlsm et ScrollArea. ScrollArea reste toujours valable sur XL 2007. Ton problème vient d'ailleurs.

Juste au cas où : l'évènement Activate() d'une feuille ne se déclenche que lorsqu'un autre onglet est sélectionné et que tu actives la feuille cible. Il n'est pas déclenché à l'ouverture du classeur si la feuille cible est déjà la feuille active.

Cordialement,

 

[MichelXld]

Re : Scrollarea pour un fichier .xlsm

bonsoir


scrollarea fonctionne parfaitement pour les classeurs .xlsm

Private Sub Worksheet_Activate()

Tu as bien placé la procédure dans le module de la feuille ?
Les évènements dans la feuille de calcul Excel - Club d'entraide des développeurs francophones



Puis refais un essai en remplaçant

Private Sub Worksheet_Activate()
Worksheets("SAISIE").ScrollArea = "A1:P67"
End Sub

par

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "A1:P67"
End Sub

bonne soirée
michel


[Edit]bonsoir cher ami Didier ... ;o)

 

[nouv]

Re : Scrollarea pour un fichier .xlsm

salut,

ça marche en Worksheet_SelectionChange sur la feuille

><>

edit : oups pas le temps d'ouvrir 2007, bonsoir tout le monde et désolée pour la collision

 

[GIBI]

Re : Scrollarea pour un fichier .xlsm

Bonsoir,

si tu veux limiter la plage tu peux le faire à l'ouverture du classeur, comme cela ça marche à tous les coups

Private Sub Workbook_Open()
'MsgBox ("saisie") ' enlever le commentaire pour vérifier

Worksheets("SAISIE").ScrollArea = "A1😛67"


End Sub

GIBI

 

[tactic6]

Re : Scrollarea pour un fichier .xlsm

Bonsoir et merci à tous
je vais de ce pas essayer
@+

 

[tactic6]

Re : Scrollarea pour un fichier .xlsm

Re
encore merci encore un truc d'appris 😉