Probleme Souris/ScrollAera Fermé

Question

Bonjour à tous et merci à celle ou à celui qui pourra m'aider.
J'ai une feuille excel avec un ScrollAera pour figer ma page à l'intérieur de A1:T30. Au delà de cette zone aucun accès. 
La formule est la suivante :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Me.ScrollArea = "$A$1:$T$30"
End Sub
Mon problème :
Quand j'ouvre cette page et que je ne touche pas à la souris, le ScrollArea ne marche pas. 
Si je touche la souris d'une cellule, tout fonctionne à merveille. 
Il y-a t-il un moyen que le ScrollArea fonctionne avec ou sans souris
Un grand merci à vous tous
Gustav

Frenchie83 · Answer

Bonjour,
Et en mettant aussi la commande dans le module thisWorkbook
Private Sub Workbook_Open()
    Sheets("Feuil1").ScrollArea = "$A$1:$T$30"
End Sub

Cdlt

Gustav · Answer

Un grand merci à toi pour ta réponse rapide. 
Malheureusement ça bugge! 
La formule que je t'ai donnée a été mise dans VBA de la feuille en question et non dans Thisworkbook. Pour info
Si tu as une autre piste, merci d'avance
Bonne soirée
Gustav

Gustav · Answer

Oui merci mais ca marche pas, j'ai déjà essayé!
Ne peut-on pas rajouter à cette formule une ligne? 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
Me.ScrollArea = "$A$1:$T$30" 
End Sub 
Merci à toi?

Gustav · Answer

En fait dans mon classeur, chaque feuille a ses propres valeurs. Donc dans une feuille je mets une formule, dans une autre feuille une autre formule avec une autre valeur. 
En fait comme je te l'ai dit, tout marche nickel si je bouge la souris. Sinon, ScrollArea ne fonctionne pas. 
Merci pour ta patience

Probleme Souris/ScrollAera

4 réponses

Discussions similaires