XL 2016 redimensionner un userform avec la souris

Fabien35200 · 27 Mai 2020

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:

VB:

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 · 28 Mai 2020

re
ben voila

VB:

'*********************************************************************************
'                       Collection UserForm Patricktoulon                        *
'                USERFORM REDIMENTIONABLE AVEC LA SOURIS SANS API                *
'                                                                                *
'Auteur:patricktoulon sur Exceldownload                                          *
'version 2.0 sans controls label pilote                                          *
'date version :24/03/2020                                                        *
'l'userform est redimmentionnable par les 4 cotés et les 4 angles                *
'le mouse pointeur vous indique le sens et le type de...

patricktoulon · 28 Mai 2020

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

Fabien35200 · 28 Mai 2020

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 · 28 Mai 2020

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

VB:

'**********************************************************************************************
'      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 · 28 Mai 2020

merci beaucoup Patrick

patricktoulon · 28 Mai 2020

de rien
bonne route

VIARD · 28 Mai 2020

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

patricktoulon · 28 Mai 2020

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

XL 2016 redimensionner un userform avec la souris

Fabien35200

XLDnaute Nouveau

patricktoulon

patricktoulon

XLDnaute Barbatruc

Fabien35200

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Fabien35200

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires