Faire glisser userform sur écran

Bonjour le forum

J'ai un userform (UserForm9), je cherche à le faire apparaître en le faisant glisser sur l’écran à partir de l'angle gauche (comme un pop-up).

Auriez-vous une solution ?

Merci.

Bonjour,

Est-ce-que tu parles de la position initiale d'affichage ... ou parles-tu d'une 'animation' ...?

Bonjour

vu sur le net

form.top = valeurquetuveux-> Y

form.left = valeurquetuveux-> X

(0,0) est le point en haut à gauche

(X,Y) est la coordonnée du coin supérieur gauche de ta form

Mettre le code au chargement de la feuille(évènement form_load)

Bien sûr, l'axe de Y se dirige vers le bas de l'écran.

J'ai réussi en partant de la gauche avec le code ci-dessous. J'aurai aimé le faire apparaître mais je pense qu'il y aura un soucis si les écrans sont de tailles différentes.

Private Sub UserForm_Activate()

UserForm9.Top = 20
UserForm9.Left = 0

Secondes = 0.01
For i = -200 To 10 Step 2

    timer_avant = Timer

    Do While Timer < timer_avant + Secondes
        DoEvents
    Loop

    UserForm9.Left = 0 + i
Next

Secondes2 = 1
    timer_apres = Timer

    Do While Timer < timer_apres + Secondes2
            DoEvents
    Loop

Unload Me
End Sub

Re,

Du coup çà me permet de comprendre ce que tu avais à l'esprit ...

Je sais, du fois j'ai du mal à bien m'expliquer.