croix rouge pour fermer un userform

YANN-56

XLDnaute Barbatruc

• 12 Mai 2010

• #2

Re : croix rouge pour fermer un userform

Bonjour à toi et à ceux qui passeront par là,

Tu trouveras, peut-être, dans ce p'tit truc ce que tu cherches.

Bonne journée.

Yann

 

Pièces jointes

• EXP_USF.xls

  35 KB · Affichages: 245

Vote positif 0 Vote négatif

N

nikkyb

XLDnaute Junior

• 12 Mai 2010

• #3

Re : croix rouge pour fermer un userform

Sais tu comment enlever juste la croix rouge et garder le bandeau bleu ,
?

Merci beaucoup!

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 12 Mai 2010

• #4

Re : croix rouge pour fermer un userform

Re:

Je l'ai certainement dans mes archives, mais je dois partir.

En faisant une recherche dans XLD, tu trouveras certainement.

Les exemples ne manquent pas!!!

A noter que tu peux simplement désactiver cette croix.

A + si tu en as besoin.

Yann

 

Vote positif 0 Vote négatif

N

nikkyb

XLDnaute Junior

• 12 Mai 2010

• #5

Re : croix rouge pour fermer un userform

Ha bah comment la désactiver ?

Ca me suffira lol

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 12 Mai 2010

• #6

Re : croix rouge pour fermer un userform

Bonjour le fil,

Le code pour désactiver la croix rouge

Dans un module

Code:

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
 
Public Transfer(6) As String
 
Sub OteCroix(UF As UserForm)
Dim hwnd As Long
    'Enlève la croix rouge de l'UF
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", UF.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Dans l'USF à l'initialisation

Code:

Private Sub UserForm_Initialize()
    OteCroix Me
    '.... code
End sub

Voili, voilà 😉

 

Vote positif 0 Vote négatif

N

nikkyb

XLDnaute Junior

• 12 Mai 2010

• #7

Re : croix rouge pour fermer un userform

Merci ca fonction parfaitement !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Mai 2010

• #8

Re : croix rouge pour fermer un userform

Re, bonjour Bruno🙂

pas sur que tu ais vu ce post...
https://www.excel-downloads.com/threads/msgbox-a-trois-possibilite.141746/

 

Vote positif 0 Vote négatif

N

nikkyb

XLDnaute Junior

• 12 Mai 2010

• #9

Re : croix rouge pour fermer un userform

en effet je l'ai loupé celui la, en fait je me suis debrouillé pour parler de la meme chose sur plusieur post🙄

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Mai 2010

• #10

Re : croix rouge pour fermer un userform

Bonjour le fil,

@ Hulk : il me semble qu'il y a plus simple pour désactiver la croix rouge.

Par exemple, dans la macro qui ouvre l'UserForm :

Code:

1 UserForm1.Show
GoTo 1

Et bien sûr terminer la macro qui ferme l'UserForm par l'instruction End.

Edit : ah oui pardon, tu ne désactives pas, tu enlèves...

A+

 

Dernière édition: 12 Mai 2010

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 12 Mai 2010

• #11

Re : croix rouge pour fermer un userform

Salut a tous,

Pour deactiver il faut placer ceci dans le code de la forme:

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> vbFormCode Then Cancel = True
End Sub

 

Vote positif 0 Vote négatif