Reduire un Usf comme une interface Windows

[MuscatMimi]

Bonsoir a tout le forum

Est-il possible de réduire un Usf ,comme on le fait avec
les interfaces Windows??,

Merci a l'avance
Cordialement

 

[Guest]

Re : Reduire un Usf comme une interface Windows

Bonsoir,

Tu as déjà posté hier sur le sujet! Suffit de faire remonter le fil.

A°

 

[Compte Supprimé 979]

Re : Reduire un Usf comme une interface Windows

Salut Vaucluse Immo,

Désolé, mais tu vas la poser sur combien de fil ta question 😕

Déjà ici : https://www.excel-downloads.com/threads/usf-en-modal-false-et-le-reduire.127305/
Merci de faire des up, plutôt que de nouveaux post ....

Parfois une petite recherche sur google : Ce lien n'existe plus
et hop ...

Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

Voili, voilà 😉

Edit : salut Hasco 🙂

 

[Guest]

Re : Reduire un Usf comme une interface Windows

Re,

Hello Bruno. Trop gentil!😀😀😀

A++

 

[jeanpierre]

Re : Reduire un Usf comme une interface Windows

Bonsoir,

Entièrement d'accord avec Hasco, trop c'est....

Bonne soirée.

 

[Compte Supprimé 979]

Re : Reduire un Usf comme une interface Windows

@Hasco

Hello Bruno. Trop gentil!

Oui, je sais mon coeur charitable "parfois" me perdra 😛😉🙄

Surtout chez certaines personnes que ne veulent vraiment pas faie d'effort, suivez mon regard ... ben non zut ... on est sur un forum

A+

 

[MuscatMimi]

Re : Reduire un Usf comme une interface Windows

Bonsoir BrunoM45,Hasco,jeanpierre

Merci de vos réponses , et j'ai bien enregistré vos
commentaires
Désolé, mais habituellement je fais des recherches,mais la,,,,
j'avoue même pas y avoir pensé

Pour ce qui est du fil d'hier, n'ayant pas eu de réponses, j'ai pensé que je m'étais mal expliqué, donc j'ai posté un nouveau fil

pardon de vous avoir froissé, avec ce deuxiéme fil