Petit problème de Userform

tototiti2008 à dit:

Bonjour olivepao,

1) tu dois déclarer une variable publique qui contiendra le contenu de ton message.

Code:

Public Message as String 'A mettre tout en haut d'un module

2) lorsque tu détermines le contenu du message (à l'ouverture du classeur si j'ai bien compris), tu affectes le message à la variable

Code:

Message = "Utilisateur " & Environ("username") + Chr$(13) + Chr$(13) _
               & "Nous sommes le " & d & " du mois courant " & " il est  " & Time & " ! " + Chr$(13) + Chr$(13) + Chr$(13) _
               & "Votre demande doit être formulée pour le mois prochain ! " + Chr$(13) + Chr$(13) _
               & "Si votre demande est formulée pour ce mois, elle est suceptible d'être refusée !            " + Chr$(13) + Chr$(13)

3) à l'initialisation de ton USF, tu affectes à Label1.caption le contenu du message

Code:

Private Sub UserForm_Initialize()
FORInfos.Label1.Caption = Message
End Sub 'A mettre dans le code de l'USF

Cliquez pour agrandir...