Userform- fermeture

Re : Userform- fermeture

Bonjour Laurent,

regarde le code ci dessous, ne pas oublier un bouton permettant la sortie :


code à placer dans le module de l'USF

bonne soirée
@+

Re : Userform- fermeture

Salut Popi14, Pierrot93, et les autres.
J'ai trouver ici même un truc plus cool pour supprimer la croix, c'est dans un module :
'---------------------------------------
Option Private Module
Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub PasDeCroix(USF As UserForm)
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", USF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub
'----------------------------------------

et dans le code de ton userform :
'------------------------------------------
Private Sub UserForm_Initialize() 'initialize l'usf a l'ouverture
PasDeCroix Me
'ton code éventuellement
End Sub
'-------------------------------------------

Voila
@ bientot
Bignou77

Re : Userform- fermeture

Bonjour à toutes et à tous,

Je vous remercie bignou77 et Pierrot93 pour vos deux réponses.

C'est super !

Passez un bon week-end,

@++
Laurent

Re : Userform- fermeture

bonsoir le forum,
je remonte ce sujet qui date vraiment désolé.
les solutions apportées sur le forum aux nombreuses questions portant sur la façon de bloquer un USF
m'ont satisfait jusqu'à aujourd'hui...
aujourd'hui, je m'aperçois qu'en appuyant sur la barre "espace" l'usf se ferme tout seul
aviez-vous remarqué cela ?
avez-vous trouvé une parade ?


merci et bonne soirée à réflechir sur ce nouveau défi....😱

Re : Userform- fermeture

Bonjour,

chez moi, sous 2003, l'appui sur la barre d'espace ne déclenche aucun événement de l'usf.... A voir si tu n'utilise pas "application.OnKey" dans ton code... sinon comme précisé par Jean-Marcel🙂 que je salue au passage, mets nous un petit fichier reproduisant l'anomalie....

bonne journée
@+

Re : Userform- fermeture

bonjour, de retour du boulot 😛
je vous mets un exemple tout simple qui reprends les 2 codes
et chez moi (ainsi qu'au boulot) la barre espace ferme l'usf
@Pierrot: pour application.OnKey, je ne pense pas où alors c'est par défaut que je l'utilise vu que je ne la connais pas à mon grand reget

bonne journée
ps; la pièce jointe est dans mon 1er post (vu la nuit passée, je n'ai pas trouvé la façon de la joindre dans celui-ci, fatigué le vieux, LOL)

Re : Userform- fermeture

Re,

tu utilises un API windows dans ce classeur...

ceci doit expliquer cela.... enfin je pense... perso, aucune compétence la dessus...

Re : Userform- fermeture

Re,

Jean-Marcel à dit:

bonjour
voir du coté propriété tabstop du bouton et la mettre à false

Salut Pierrot

Cliquez pour agrandir...

bien vu Jean-Marcel🙂

Re : Userform- fermeture

re,
vous êtes décidemment trop fort !
tabstop.
du coup adapté à mon projet actuel, il faut bien penser à mettre cette propriété à tous les boutons qui sont susceptibles de fermer l'usf concerné.

merci