Déplacer USf par rapport à la cellule à saisir

[MJ13]

Bonjour à tous

Voila j'ai un USf et je voudrai qu'il suive la saisie, c'est à dire qu'il se mette sous la cellule à saisir.

Pas simple pour moi (je ne suis pas très "coordonnées").

Merci d'avance.

 

[pierrejean]

Re : Déplacer USf par rapport à la cellule à saisir

bonjour MJ13

Vois si cela te convient

 

[MJ13]

Re : Déplacer USf par rapport à la cellule à saisir

Bonjour PierreJean

Merci beaucoup pour ta solution qui est intéressante car on peut ainsi placer le Userform où l'on veut sur la page. C'est une première piste (en plus ce n'est pas trop compliqué à mettre en oeuvre).

Mais je ne trouve pas de solution pour qu'il se place sous la cellule à saisir. Est-ce possible! Mystère.

 

[pierrejean]

Re : Déplacer USf par rapport à la cellule à saisir

Re

Pour la mise en place des le debut mettre

 ActiveWindow.ScrollRow = Range("E65536").End(xlUp).Rows.Row - 5

dans l'initialyse

ensuite on peut jouer sur les propriétés left et top de l'userform

En commentaire des msgbox permettant de connaitre ces valeurs apres avoir mis l'usf ou on le desire

 

[MJ13]

Re : Déplacer USf par rapport à la cellule à saisir

Re

Pierrejean, merci pour ta nouvelle version qui est bien.

Mais bon , je voulais plutôt quelque chose dans ce genre (trouver sur le net d'après un code de Michel Pierron). Le but étant surtout de pouvoir se placer en fonction d'où se trouve la cellule.

C'est un code un peu alambiqué.

Mais cela peut poser des problèmes si on est trop à gauche ou à droite de la feuille avec un grand USF.

Si quelqu'un a plus simple (type topcell address ...), je suis preneur.