MESSAGE DU JOUR

[casper]

Bonjour,

J'aimerais que sur ma feuille qui se nomme 'MENU' s'affiche un cadre avec un message préalablement entré via un usf. (par ex aujourd'hui c'est la saint
Casper lol).

Je souhaiterais surtout que ce message reste visible tout en permettant l'utilisation de cette feuille.

Que faut-il utiliser ? un webbrowser ?

Merci pour vos réponses

 

[excalibur]

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]

 

[CASPER]

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

 

[excalibur]

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

 

[excalibur]

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]