Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Dédé
Salut Jean !!
Ta solution figure sur www.excelabo.net
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ... http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes solution un peu par toi-même car, tout ce que l'on te donne, tu ne l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire son travail par les autres et c'est très ingras > contraire à l'éthique des forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres contributeurs, tu ne fais que les lasser et je pense que même Denis va en avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur Dédé
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
Salut Jean !!
Ta solution figure sur www.excelabo.net
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse
que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ...
http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes
solution un peu par toi-même car, tout ce que l'on te donne, tu ne
l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire
son travail par les autres et c'est très ingras > contraire à l'éthique des
forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres
contributeurs, tu ne fais que les lasser et je pense que même Denis va en
avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur
Dédé
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de
news:40AFE1BB-8414-4EFF-9158-E57070EEB086@microsoft.com...
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms.
quelle serai la code
Merci.
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ... http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes solution un peu par toi-même car, tout ce que l'on te donne, tu ne l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire son travail par les autres et c'est très ingras > contraire à l'éthique des forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres contributeurs, tu ne fais que les lasser et je pense que même Denis va en avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur Dédé
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
JEAN
merci dede désolé
Salut Jean !!
Ta solution figure sur www.excelabo.net
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ... http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes solution un peu par toi-même car, tout ce que l'on te donne, tu ne l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire son travail par les autres et c'est très ingras > contraire à l'éthique des forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres contributeurs, tu ne fais que les lasser et je pense que même Denis va en avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur Dédé
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
merci dede désolé
Salut Jean !!
Ta solution figure sur www.excelabo.net
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse
que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ...
http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes
solution un peu par toi-même car, tout ce que l'on te donne, tu ne
l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire
son travail par les autres et c'est très ingras > contraire à l'éthique des
forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres
contributeurs, tu ne fais que les lasser et je pense que même Denis va en
avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur
Dédé
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de
news:40AFE1BB-8414-4EFF-9158-E57070EEB086@microsoft.com...
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms.
quelle serai la code
Merci.
Ce site t'a été donné maintes fois alors ça serait sympa de lire les réponse que l'on te donne ...
Alle, vu flémard que tu est, je te donne le line direct ... http://www.excelabo.net/xl/userforms.php#croixuser
Je te le redis, regarde bien les réponse que l'on te donne et CHERCHE tes solution un peu par toi-même car, tout ce que l'on te donne, tu ne l'apprends pas et c'est pas une façon de travailler ! C'est se faire faire son travail par les autres et c'est très ingras > contraire à l'éthique des forums où l'on contribue gratuitement.
Sur ce, c'était pas pour te faire la morale mais d'après les autres contributeurs, tu ne fais que les lasser et je pense que même Denis va en avoir marre un jour ... Alors use un peu de ton intelligence !
À bon entendeur Dédé
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
michdenis
Bonjour Jean,
Pour enlever la croix de fermeture dans la barre de titre de ton formulaire :
'Cette première section de la procédure doit être 'copiée en toute première ligne de ton formulaire '------------------------------------------------ Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function GetWindowLong _ Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
'Il est possible que tu aies déjà d'autres lignes de 'code dans cette procédure, places ces lignes au 'début de la procédure et tes autres lignes après.
'---------------------------------- Private Sub UserForm_Initialize()
Dim Identifiant As Long Dim Style As Long Dim Version As String If Application.Version Like "8*" Then Version = "ThunderXFrame" Else Version = "ThunderDFrame" End If Identifiant = FindWindow(Version, Me.Caption) Style = GetWindowLong(Identifiant, GSTYLE) Style = (Style And Not SYSMENU) SetWindowLong Identifiant, GSTYLE, Style
End Sub '----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire, assure-toi d'avoir créer un autre bouton de fermeture avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
Bonjour Jean,
Pour enlever la croix de fermeture dans la barre de titre de ton formulaire :
'Cette première section de la procédure doit être
'copiée en toute première ligne de ton formulaire
'------------------------------------------------
Private Declare Function FindWindow _
Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As _
String, ByVal lpWindowName _
As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As _
Long) As Long
'Il est possible que tu aies déjà d'autres lignes de
'code dans cette procédure, places ces lignes au
'début de la procédure et tes autres lignes après.
'----------------------------------
Private Sub UserForm_Initialize()
Dim Identifiant As Long
Dim Style As Long
Dim Version As String
If Application.Version Like "8*" Then
Version = "ThunderXFrame"
Else
Version = "ThunderDFrame"
End If
Identifiant = FindWindow(Version, Me.Caption)
Style = GetWindowLong(Identifiant, GSTYLE)
Style = (Style And Not SYSMENU)
SetWindowLong Identifiant, GSTYLE, Style
End Sub
'----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire, assure-toi d'avoir créer un autre bouton de fermeture
avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
40AFE1BB-8414-4EFF-9158-E57070EEB086@microsoft.com...
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms.
quelle serai la code
Merci.
Pour enlever la croix de fermeture dans la barre de titre de ton formulaire :
'Cette première section de la procédure doit être 'copiée en toute première ligne de ton formulaire '------------------------------------------------ Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function GetWindowLong _ Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
'Il est possible que tu aies déjà d'autres lignes de 'code dans cette procédure, places ces lignes au 'début de la procédure et tes autres lignes après.
'---------------------------------- Private Sub UserForm_Initialize()
Dim Identifiant As Long Dim Style As Long Dim Version As String If Application.Version Like "8*" Then Version = "ThunderXFrame" Else Version = "ThunderDFrame" End If Identifiant = FindWindow(Version, Me.Caption) Style = GetWindowLong(Identifiant, GSTYLE) Style = (Style And Not SYSMENU) SetWindowLong Identifiant, GSTYLE, Style
End Sub '----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire, assure-toi d'avoir créer un autre bouton de fermeture avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
Michel Pierron
Une seule ligne suffit: Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
Private Sub UserForm_Initialize() SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H84C00080 End Sub
MP
"michdenis" a écrit dans le message de news:
Bonjour Jean,
Pour enlever la croix de fermeture dans la barre de titre de ton formulaire :
'Cette première section de la procédure doit être 'copiée en toute première ligne de ton formulaire '------------------------------------------------ Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function GetWindowLong _ Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
'Il est possible que tu aies déjà d'autres lignes de 'code dans cette procédure, places ces lignes au 'début de la procédure et tes autres lignes après.
'---------------------------------- Private Sub UserForm_Initialize()
Dim Identifiant As Long Dim Style As Long Dim Version As String If Application.Version Like "8*" Then Version = "ThunderXFrame" Else Version = "ThunderDFrame" End If Identifiant = FindWindow(Version, Me.Caption) Style = GetWindowLong(Identifiant, GSTYLE) Style = (Style And Not SYSMENU) SetWindowLong Identifiant, GSTYLE, Style
End Sub '----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire, assure-toi d'avoir créer un autre bouton de fermeture
avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.
Une seule ligne suffit:
Private Declare Function FindWindow _
Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As _
String, ByVal lpWindowName _
As String) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As _
Long) As Long
Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H84C00080
End Sub
MP
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u6F3Y092EHA.1152@TK2MSFTNGP14.phx.gbl...
Bonjour Jean,
Pour enlever la croix de fermeture dans la barre de titre de ton
formulaire :
'Cette première section de la procédure doit être
'copiée en toute première ligne de ton formulaire
'------------------------------------------------
Private Declare Function FindWindow _
Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As _
String, ByVal lpWindowName _
As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As _
Long) As Long
'Il est possible que tu aies déjà d'autres lignes de
'code dans cette procédure, places ces lignes au
'début de la procédure et tes autres lignes après.
'----------------------------------
Private Sub UserForm_Initialize()
Dim Identifiant As Long
Dim Style As Long
Dim Version As String
If Application.Version Like "8*" Then
Version = "ThunderXFrame"
Else
Version = "ThunderDFrame"
End If
Identifiant = FindWindow(Version, Me.Caption)
Style = GetWindowLong(Identifiant, GSTYLE)
Style = (Style And Not SYSMENU)
SetWindowLong Identifiant, GSTYLE, Style
End Sub
'----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire,
assure-toi d'avoir créer un autre bouton de fermeture
avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
40AFE1BB-8414-4EFF-9158-E57070EEB086@microsoft.com...
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms.
quelle serai la code
Merci.
Une seule ligne suffit: Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
Private Sub UserForm_Initialize() SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H84C00080 End Sub
MP
"michdenis" a écrit dans le message de news:
Bonjour Jean,
Pour enlever la croix de fermeture dans la barre de titre de ton formulaire :
'Cette première section de la procédure doit être 'copiée en toute première ligne de ton formulaire '------------------------------------------------ Private Declare Function FindWindow _ Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As _ String, ByVal lpWindowName _ As String) As Long
Private Declare Function GetWindowLong _ Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _ Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As _ Long) As Long
'Il est possible que tu aies déjà d'autres lignes de 'code dans cette procédure, places ces lignes au 'début de la procédure et tes autres lignes après.
'---------------------------------- Private Sub UserForm_Initialize()
Dim Identifiant As Long Dim Style As Long Dim Version As String If Application.Version Like "8*" Then Version = "ThunderXFrame" Else Version = "ThunderDFrame" End If Identifiant = FindWindow(Version, Me.Caption) Style = GetWindowLong(Identifiant, GSTYLE) Style = (Style And Not SYSMENU) SetWindowLong Identifiant, GSTYLE, Style
End Sub '----------------------------------
P.S. Attention, comme cela enlève le x pour fermer le formulaire, assure-toi d'avoir créer un autre bouton de fermeture
avant de procéder... sinon tu ne pourras plus fermer le formulaire.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjours,
Est t'il possible d'enlever la croix sur tout mes userforms. quelle serai la code Merci.