MESSAGE DU JOUR

bonjour casper je te zip un ex usf se lance a ouverture du classeur si tu veus pas que l on ferme par la croix active la ligne de code de usf tu peus jouer pour le deplacement de usf par top & left de usf par contre cela peut a mon humble avis enervant a la longue pour l utilisateur salutations [file name=message1.zip size=7087]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/message1.zip[/file]

Grand Merci mais est-ce possible de supprimer la croix et le titre de la fenètre ?

rebonjour casper pour supprimer la croix le code de usf Option Explicit
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
puis Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA('Thunder' & IIf(Application.Version Like '8*', _
'X', 'D') & 'Frame', Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub' salutations

rebonjour casper un ex sans bandeau attention beaucoup de personnes sont contre se dibouillage qui peut rendre excel instable par curiosite pour voir le code salutations [file name=sans_bandeau_bleu_20051123181734.zip size=9790]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sans_bandeau_bleu_20051123181734.zip[/file]