deplacement dynamique d'un bouton

[A2H]

Bsr
SVP Je voudrais savoir comment laisser mon bouton visible, lors du déplacement de la scroll bar verticale dans le userform.
Merci d'avance

 

[Claudy]

Bonjour ...avec une Shapes("Image 2")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



Application.ScreenUpdating = False

'If Target.Cells.Count > 1 Then Exit Sub

With ActiveSheet.Shapes("Image 2")

.Top = ActiveWindow.VisibleRange.Top + 5

.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 500

End With

Application.ScreenUpdating = False

End Sub

A+
Claudy

 

[Dranreb]

Bonjour
Suggestion: utilisez l'évènement UserForm_Scroll pour positionner le CommandButton.Top par rapport au Y transmis. Jamais fait, pour ma part.