Probleme Souris/ScrollAera
Gustav
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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
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
4 réponses
-
Bonjour,
Et en mettant aussi la commande dans le module thisWorkbookPrivate Sub Workbook_Open() Sheets("Feuil1").ScrollArea = "$A$1:$T$30" End Sub
Cdlt -
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 -
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? -
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
