Mgsbox personaliser

comment faite une msg box personnaliser en grande taille et qui ce ferme dans un délai de 30s

car une msg je sais faire mais pas personnalisable
le message serai ceci
« Ne plus noté 2022 dans les numéros de dossier
Ils vont s’inscrire tout seul :wink: »
merci

Bonjour,
Voici un exemple pour une tempo sur un MsgBox
Je l’ai placé à 2 sec., il suffit de modifier dans la macro de l’USF
Msgbox temporisé.xlsm (15,7 Ko)

et possible de le mettre en ouverture du ficher ?

Bonjour toffduq,

Bonjour Mimimathy,

je vais essayer de lui dire comment faire, tu me dira si c’est ok.

toffduq, tu place le code ci dessous dans tonThisworkbook.

Private Sub Workbook_Open()
Rectangleàcoinsarrondis2_Cliquer
End Sub

Salut Rubis,
Eh ben non
presque, sauf que

Private Sub Workbook_Open()
  Userform1.show
End Sub


C’est mieux
Le bouton ne sert plus à rien

c’est fonctionnel
merci à vous 2

Salut Mimimathy,

je me retire :sob: :sob:

Re Mimimathy,

je ne sais pas sit avais gardé mon fichier, mais regarde l’image jointe. C’est le code dans mon Thisworkbook, et chez moi il appelle bien la macro au lancement du fichier pour afficher le userform du mot de passe.

Si je place par exemple le nom du userform et le show, il ne s’ouvre pas correctement.
Tu peux m’expliquer pourquoi STP ?

Merci d’avance.

Rubis

Re,
Je viens de tester en remplaçant Call CODE par

CODE_ACCES_LOGICIEL.Show

Et tous fonctionne !

Oh mon Dieu ! Oh mon Dieu !

je crois que je suis le dernier du forum ! J’avais écris « Schow » !!!

Il faut le faire ! Pourtant j’ai bien mangé à midi.

Oui fonctionne.

Au revoir, je vais me faire tout petit :speak_no_evil: :see_no_evil: :see_no_evil:

Bonjour c’est ma première fois mdr :

CreateObject(« Wscript.shell »).popup « Message a afficher », durée_en_seconde , « Titre »

Exemple :

CreateObject("Wscript.shell").popup "Bonjour à tous c'est ma première réponse", 3 , "Salutation"

Bien cordialement
Will

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.