Probleme Souris/ScrollAera
Gustav
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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
A voir également:
- Probleme Souris/ScrollAera
- Comment activer le pavé tactile sans souris - Guide
- Souris ordinateur - Guide
- Souris inversée - Guide
- Autoclick souris - Télécharger - Divers Utilitaires
- Comment faire apparaître le curseur sans souris - Guide
4 réponses
Bonjour,
Et en mettant aussi la commande dans le module thisWorkbook
Cdlt
Et en mettant aussi la commande dans le module thisWorkbook
Private 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
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?
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
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