Bouton

[zidoide]

Bonjour,

J'aimerais savoir comment faire pour qu'un bonton suive le scroll, que si je descend dans le fichier qu'il me suive Comme un freeze panes ,voir l 'exemple en attache...

Merci... [file name=Book1_20051209145701.zip size=5112]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Book1_20051209145701.zip[/file]

 

[dg62]

Bonjour Zidoide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligne = ActiveCell.Row
CommandButton2.Top = ligne * 12

End Sub

ou 12 représente environ la hauteur de ligne.

ligne = ActiveCell.row peut-être remplacé par

ligne = Target.row

Message édité par: dg62, à: 09/12/2005 15:35

 

[Simplet]

Bonsoir Zidoide, dg62,
Bonsoir à tous,

J'ai potassé cela il y a peu et j'ai trouvé mon bonheur dans les archives.

Ce n'est pas un bouton mais un UsF et on est coîncé par les dimensions minimales. Mais ça défile bien.

Attention quand même à l'emplacement des procédures, on peut se retrouver avec ce faux bouton dans les autres classeurs ouverts.

Pour dgl62, je n'ai pas réussi à mettre en oeuvre ton code.

Bone soirée et @+ [file name=UserFormFlottant.zip size=10505]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserFormFlottant.zip[/file]

 

[Charly2]

Bonsoir Zidoide, dg62 et Simplet

Si j'ai bien compris, ce code devrait faire ton affaire :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  Application.ScreenUpdating = False
  With ActiveWindow
    .ScrollColumn = Target.Column
    .ScrollRow = Target.Row
  End With
  Application.ScreenUpdating = True
End Sub

A voir dans le fichier joint...

Amicalement
Charly [file name=ZidoideDeplace.zip size=7513]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ZidoideDeplace.zip[/file]

 

[zidoide]

Bonjour,

Merci mais je pige pas tous, comment j'assigne une macro a un usf?

 

[dg62]

Bonjour Zidoide

Le code suivant est associé à la feuille sur laquelle se trouve le bouton.
Le bouton suit le déplacement vertical de la feuille avec les touches flèchées haut et bas.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligne = ActiveCell.Row
CommandButton2.Top = ligne * 12

End Sub