Reduire un Usf comme une interface Windows

G

Guest

Guest

• 18 Septembre 2009

• #2

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°

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Septembre 2009

• #3

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 ...

Code:

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 🙂

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Septembre 2009

• #4

Re : Reduire un Usf comme une interface Windows

Re,

Hello Bruno. Trop gentil!😀😀😀

A++

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 18 Septembre 2009

• #5

Re : Reduire un Usf comme une interface Windows

Bonsoir,

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

Bonne soirée.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Septembre 2009

• #6

Re : Reduire un Usf comme une interface Windows

@Hasco

Hello Bruno. Trop gentil!

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 19 Septembre 2009

• #7

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

 

Vote positif 0 Vote négatif