Bonjour tout le monde,

Je génère dans un userform des labels un peu à la manière de postits.

J'aimerais permettre à l'utilisateur de les déplacer par un glisser-déplacer mais je n'arrive malheureusement pas à ça avec les outils MouseUp, MouseDown et MouseMove.

Pour l'instant mon code ressemble à ceci pour un de mes labels :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    Planning.Label1.Caption = X & ":" & Y
                Label1.Left = X
                Label1.Top = Y
End Sub
Existe-t-il une fonction Drag and Drop sur excel/vba ?

Peut-on combiner différement ?

Merci d'avance