VBA : Top position

bof

XLDnaute Occasionnel
Bonjour,
Positionner un objet dessiné par rapport à la cellule active ne pose aucun problème.
Dans Private Sub Worksheet_SelectionChange(..) Une instruction du type :
Code:
ActiveSheet.DrawingObjects(1).Top = ActiveCell.Top - 50
...convient.

Il en va différemment quand il s'agit d'un USF non Modal :
Code:
USF1.Top = ActiveCell.Top - 50
...ne convient pas car l'USF peut sortir des limites de la fenêtre après un scroll vertical.
Avez vous une solution ?
Bon Dimanche.
 

Statistiques des forums

Discussions
312 305
Messages
2 087 082
Membres
103 458
dernier inscrit
Vulgaris workshop