Discussion :

[tijuma]

Bonjour

Afin de réaliser un bouton suiveur en haut à droite de ma fenêtre principale, je cherche à capter un évènement du type "scrolling vertical" de la fenêtre principale.
Mon idée est "d'accrocher" l'emplacement du bouton avec la ligne affichée en haut de l'écran.

Visiblement en VBA on ne peut qu'afficher ou cacher cette barre vertical avec la propriété "DisplayVerticalScrollBar"

Est ce possible ? ou doit on utilser les fonctions d'API ?

Dans le cas d'utilisation d'API, quelle fonction détecte ce genre d'évènement ?

Merci d'avance.

[laetitia]

bonjour tijuma le forum une approche de solution tu cree un bouton dans ta feuille en haut a droite des que tu clic dans une cellule le bouton suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.CommandButton1.Select
    With Worksheets(1)
      .CommandButton1.Top = .Rows(Target.Row).Top
    End With
        Target.Select
End Sub

[tijuma]

Bonjour Laetitia.

Merci pour l'idée, cela résout en partie mon problème.

Il faut quand même cliquer dans une cellule.

Est il possible de faire la même chose en récupérant par ex l'adresse de la cellule se retrouvant en haut de la fenêtre après une action sur l'ascenseur vertical ?

Merci

[ucfoutu]

Bonsoir,

la seule méthode orthodoxe que je connaisse en la matière (de détection d'utilisation de l'ascenseur par l'utilisateur final... et ce : quelle que soit la fenêtre - Excel ou non - utilisée) passe par le sous-classement (subclassing) et l'interception du message Windows WM_VSCROLL (pour l'ascenseur vertical) ou WM_HSCROLL (pour l'ascenseur horizontal).
La technique du sous-classement n'est jamais une affaire simple et ne supporte auucune faille. Elle n'est par ailleurs pas sans risques (notamment si on la pratique mal).
Si tu y tiens vraiment, je t'enverrai vers un peu de lecture (elle sera alors vraisemblablement en anglais...).

Re...

Mais je vois qu'au bout du compte, tout ce que tu cherches à faire est de garder sans cesse à la vue ton bouton.
Pourquoi ne pas alors :
- "geler" le 1er rang (sélection de la cellule A1 ==>>Window->Freeze panels)
- ancrer (anchor) ton bouton à l'une des cellules de ton choix, sur le 1er rang)

[Gorfael]

Salut à tous
La solution d'ucfoutu ne semble meilleure, sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.ScrollRow <> 1 Then ActiveWindow.ScrollRow = 1
If ActiveWindow.ScrollColumn <> 1 Then ActiveWindow.ScrollColumn = 1
End Sub

A+

[tijuma]

Merci pour ces réponses rapides

Pas le temps ce Week-end d'essayer, je m'y intéresse la semaine prochaine.

@+