Petit problème de Userform

[olivepao]

😕

B]Bonjour tout le monde,

Je désire savoir s'il est possible d'inclure le resultat d'un test fait dans une macro à une zone de texte dans un UserForm.

Ma macro revoi un résultat différent en fonction de la date du jour.

Cette macro fonctionne nicklel. Le résultat est renvoyé dans une MsgBox qui fait partie de la macro.

Pour des raisons de saisie, j'aimerais que le résultat de ma macro soit renvoyé dans le Userform afin que l'utilisateur saisisse les données en fonction du message.

En clair, mon UserForm se présenterais avec le texte qui varie en fonction de la date et dessous mes zones de saisie.

J'ai fais des recherrches dans le "help" d'excel mais sans succès.[/B]

 

[olivepao]

Re : Petit problème de Userform

Bonjour olivepao,

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

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

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

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

J'ai compris ton explication merci🙂