Evènement Scroll

Dranreb

XLDnaute Barbatruc

• 27 Janvier 2014

• #2

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.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 27 Janvier 2014

• #3

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/

 

Dernière édition: 27 Janvier 2014

Vote positif 0 Vote négatif

L

Lucepuce

Guest

• 27 Janvier 2014

• #4

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.

 

Pièces jointes

• boutonmodal_V2.xls

  31 KB · Affichages: 34

Vote positif 0 Vote négatif

L

Lucepuce

Guest

• 28 Janvier 2014

• #5

Re : Evènement Scroll

Vraiment personne pour m'aider ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Janvier 2014

• #6

Re : Evènement Scroll

Bonsoir,

Pas tout compris certainement mais il me semble que:

Code:

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

Devrait faire l'affaire.

A+

 

Vote positif 0 Vote négatif

L

Lucepuce

Guest

• 28 Janvier 2014

• #7

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.

 

Pièces jointes

• boutonmodal_V4.xls

  38 KB · Affichages: 32

Vote positif 0 Vote négatif

G

Guest

Guest

• 29 Janvier 2014

• #8

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

Code:

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Janvier 2014

• #9

Re : Evènement Scroll

Bonjour,
Salut Hasco🙂

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 29 Janvier 2014

• #10

Re : Evènement Scroll

Hello Pierrot🙂

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

A+++l'ami

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Janvier 2014

• #11

Re : Evènement Scroll

Bonjour à tous

Un essai

 

Pièces jointes

• Essai.xls

  47 KB · Affichages: 34
• Essai.xls

  47 KB · Affichages: 35
• Essai.xls

  47 KB · Affichages: 36

Vote positif 0 Vote négatif

L

Lucepuce

Guest

• 29 Janvier 2014

• #12

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é ?

 

Pièces jointes

• Bouton suiveur fixe.xls

  51.5 KB · Affichages: 32

Dernière modification par un modérateur: 29 Janvier 2014

Vote positif 0 Vote négatif

G

Guest

Guest

• 30 Janvier 2014

• #13

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+

 

Vote positif 0 Vote négatif