croix useforme résolus merci PIGA ROLAND

[jmcr]

bonjour le forum
je tente d enlever la croix d un useform
j ai se code que je place au début de useform est t'il bon car la croix est toujours la ou cela provient d'une erreur de ma part
avec tout mes remercîments

Option Explicit
'*******************Supprime la croix du Userform****************
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

[piga25]

Bonjour,
pour ma part j'utilise cela dans certains cas

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

et le plus souvent ceci

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." & Chr(10) _
& "Pour fermer cette boîte de dialogue, veuillez utiliser le bouton Valider"
Cancel = True
End If
End Sub

Edit: Voir aussi ce lien https://www.excel-downloads.com/threads/supprimer-la-croix-dun-userform.189680/#post-1176778

 

[jmcr]

merci piga25 le premier code fais la même chose la croix est toujours la et le deuxième code fonctionne bien lui
que je garde dans ma malle Excel
merci

 

[Roland_M]

Bonjour,

voir l'exemple ci-joint !

EDIT: le 2' plus complet !

 

[jmcr]

merci piga25 ton lien est très bien résolus merci
merci Roland c est encore mieux que ma bidouille mais c'est est un autre poste que j ai mis dans inputbox

 

[Roland_M]

re

je sais, ce n'est pas pour inputbox que j'ai mis le lien, mais j'ai pensé que tu n'avais pas vu ma réponse ici !?

si c'est ok, content pour toi !

bonne soirée.