Evènement Scroll

[Lucepuce]

Bonjour,

Dans le fichier ci-joint, il y a le code ci-dessous qui réagit à l’évènement SelectionChange. Mais j’aimerais qu’il se déclenche lorsque l’on scrolle sur la feuille, sans devoir cliquer encore en plus dans une cellule.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Application.WindowState = xlMaximized

ActiveSheet.DrawingObjects(1).Top = Rows(ActiveWindow.ScrollRow + 3).Top

ActiveSheet.DrawingObjects(1).Left = Columns(ActiveWindow.ScrollColumn + 1).Left

End Sub

Connaissez-vous une solution ?

Cordialement.

 

[Dranreb]

Re : Evènement Scroll

Bonjour.
Le plus simple serait de mettre le bouton dans un petit Userform avec propriété ShowModal à False, ainsi une fois affiché il ne bougerait plus par rapport au scroll.

 

[gilbert_RGI]

Re : Evènement Scroll

Bonjour

un exemple de bouton flottant dans ce fil

de @ MyDearFriend

https://www.excel-downloads.com/threads/big-bouton-watching-you.56369/

 

[Lucepuce]

Re : Evènement Scroll

Bonjour,

Un grand merci à tous deux pour vos réponses.

J’ai été voir le fil proposé par Gilbert et la solution qui correspond le plus à mon attente est … d’utiliser un Userform avec propriété ShowModal à False comme le propose Dranreb 🙂

J’ai alors essayé d’adapter l’idée à mon besoin (revenir vers la cellule A1 depuis n’importe où sur la feuille) et j’aurais encore quelques questions :

Lorsque j’ouvre le fichier ou lorsque je clique sur le bouton (un seul clic suffit, c’est génial), la feuille est comme figée et je ne peux plus scroller. Il faut alors soit cliquer sur une cellule, soit utiliser les barres de défilement verticale ou horizontale afin de « réactiver » la feuille. J’ai bien tenté plusieurs essais (visibles dans mon code), mais rien n’y fait.

Avez-vous alors une idée afin de réactiver cette feuille (et donc de désactiver le UserForm) après avoir cliqué dessus ?

Et question subsidiaire, mais là je crains la réponse négative : Y a-t-il la possibilité que la croix blanche sur fond rouge ne soit pas visible dans le UserForm ?

A vous relire.

 

[Lucepuce]

Re : Evènement Scroll

Vraiment personne pour m'aider ?

 

[Guest]

Re : Evènement Scroll

Bonsoir,

Pas tout compris certainement mais il me semble que:

Private Sub CommandButton2_Click()
Application.Goto Cells(1, 1), True
End Sub

Devrait faire l'affaire.

A+

 

[Lucepuce]

Re : Evènement Scroll

Bonjour et merci pour votre réponse 🙂

Malheureusement la feuille est tout autant figée à la fin de votre code qu'à la fin de mes 3 autres essais 🙁

J'espère toujours que quelqu'un pourra m'aider.

 

[Guest]

Re : Evènement Scroll

Bonjour,

C'est le comportement normal de la gestion des fenêtres dans excel.
Voici un truc qui utilises les API Windows 32 en espérant que ton système est en 32bits.

La ligne Private Declare.... doit apparaître en haut du module du userform, avant toute déclaration de procédure et sous 'Option Explicit' et autres si présente

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
'.....
Private Sub CommandButton2_Click()
 Application.Goto Cells(1, 1), True
 SetForegroundWindow Application.hwnd
End Sub

Attention c'est sous toutes réserves avec les API windows !

A+

 

[Pierrot93]

Re : Evènement Scroll

Bonjour,
Salut Hasco🙂

peut être une autre approche... enfin si j'ai bien compris :

Private Sub CommandButton2_Click()
AppActivate ("Microsoft Excel")
End Sub

bonne journée
@+

 

[Guest]

Re : Evènement Scroll

Hello Pierrot🙂

C'est vrai AppActivate semble suffisant, j'y pense que trop rarement!!!!

A+++l'ami

 

[pierrejean]

Re : Evènement Scroll

Bonjour à tous

Un essai

 

[Lucepuce]

Re : Evènement Scroll

Bonsoir,

Merci à vous tous pour vos différentes participations. Il y a du bon à prendre un peu partout 🙂

En combinant vos différentes réponses, j'arrive à un résultat répondant à 99 % à mon attente. Sous réserve d'une mauvaise surprise à l'usage !

En pièce jointe, le fichier final.

Excellentes salutations à vous.

Lucepuce

PS : Dois-je indiquer d'une manière quelconque que ce problème est liquidé ?

 

[Guest]

Re : Evènement Scroll

Bonjour Lucepuce,

Merci de ce retour, c'est important pour nous et ceux qui liront ce fil plus tard... Le principe pour la maison (même si certain le font) est qu'un sujet n'est jamais clos ou résolu, ce qui ouvre toute porte pour des résolutions différentes et ultérieures.

Donc ce sujet n'est pas liquidé.

A+