XL 2016 redimensionner un userform avec la souris

[Fabien35200]

Bonjour à tous,

je cherche à pouvoir redimensionner un userform avec la souris comme toute fenetre sur windows.J ai testé ce code parmis bcp d autre mais aucun effet:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        If X > Me.Width - 10 And Y > Me.Height - 10 Then
            Me.Width = X
            Me.Height = Y
        End If
    End If
End Sub

merci par avance pour votre aide.

Cordialement.

Fabien.

 

[patricktoulon]

RE
se sont des fonctions encapsulées dans les DLLS WINDOWS que l'on peut appeler en VB(A)

 

[Fabien35200]

je vais me contenter de ce code car la finalité etant pour un fichier professionnel,je ne sais pas si je serai bloqué avec des acces.
En tout cas ,je vous remercie grandement tous les 3.

 

[patricktoulon]

un exemple d'utilisation d'api windows au black(sans déclaration)
cet exemple t'ajoute les 2 boutons manquant et l'elasticité
etC EST COMPATIBLE TEL QUEL AVEC 32/64 BITS

'**********************************************************************************************
'      Ajouter les deux boutons manquants dans la barre de titre  à l'UserForm  et le mouse resizepar les angles et les cotés
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hwnd&
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub

te reste plus qu'a adapter le activate et le resize que j'ai déja donné

 

[Fabien35200]

merci beaucoup Patrick

 

[patricktoulon]

de rien
bonne route

 

[VIARD]

Patrick tous mes compliments pour ton module.
Chapeau.
Je vais le tester.

 

[patricktoulon]

oui le mouse resize je l'avais jamais donné; il fait parti de ma collection userform que je comptais distribuer dans une ressource et je l'ai pas fait.... bon ben maintenant il circule
n’hésitez pas a y apporter des modifs améliorantes et partager

j'en ai d'autre avec label aussi et surtout!!!!! toujours sur les quatres angles
l'utilisation de l'un ou de l'autre dépendra des controls que vous aménagez dans vos userforms
en effet si un control se trouve dans chaques angles avec ce model ca ne fonctionnera pas

par contre avec celui ci oui AVEC LES LABELS
je les ai laisser visibles une ligne a bloquer pour qu'il ne le soit pas (voir commentaires)

démonstration

je le dis plus bonne route