Un message d'info uniquement sans bouton de validation

Bonsoir à tous,

Est-il possible d'afficher un message d'info sans aucun bouton de validation ? Le message s'affiche durant un laps de temps, puis disparaît.

Exemple : "Impression en cours. Veuillez patienter, SVP."

Merci de votre aide.

oui, avec VBA. Ici avec une forme, mais si on veut cela sur plusieurs feuille, c'est mieux de prendre un userform (modeless).

Public dNext
Sub starten()
     stoppen
     dNext = Now + TimeSerial(0, 0, 3)     '3 sec visible
     With Sheets("blad1").Shapes("Forme_Impression")
          b = .Visible
          .Visible = Not b
          If Not b Then Application.OnTime dNext, "Starten"
     End With
End Sub

Sub stoppen()
     On Error Resume Next
     Application.OnTime dNext, "Starten", , 0
     On Error GoTo 0
End Sub

Bonjour à tous,

Comme je travaillais aussi dessus je poste malgré tout ma solution à base de USF comme l'avais dit BsAlv :

Sub MESSAGE_BOX()
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
Unload Me
End Sub

Ergotamine

Bonjour BsAlv et Ergotamine,

Formidable ! Ça marche aussi bien pour vous deux.

Merci beaucoup.

PS : Mon projet est presque terminé... Avec beaucoup de satisfactions grâce au forum ! Grand merci à tous.

Ne vous inquiétez pas, je vais revenir () : j'ai encore beaucoup de choses à vous demander...

Bonjour à tous,

Il est peut-être utile de préciser qu'Excel refuse catégoriquement d'ouvrir les fichiers de BsAlv et d'Ergotamine, une fois téléchargés : il n'y a même pas d'indication "Activer le contenu ou les macros" ou autre, par prudence naturellement à cause des macros.

Il est précisé qu'on peut les "débloquer" si les fichiers peuvent être utilisés en toute confiance, ce qui est le cas évidemment... (Lol )

Pour ce faire :
- quitter Excel,
- aller dans le dossier des fichiers,
- cliquer-droit sur chacun des fichiers,
- et cliquer sur Propriétés,
- puis cliquer sur la case "Débloquer".

Vous pourrez alors faire afficher vos messages ("Veuillez patienter." etc.) qui apparaîtront, puis disparaîtront après un temps déterminé par vous-même.

@+

Bonsoir Ergotamine,

A quoi sert cette procédure vide ?

Private Sub Label1_Click()

End Sub

J'ai d'abord cru qu'on pouvait y mettre un message par exemple (ex : "MsgBox « Vous voulez arrêter ? »"), mais non, rien ne se passe...

Bonsoir BsAlv,

Où est la forme "Impression en cours" ? Je ne la vois nulle part, même dans l'IDE...

bonjour,

il est là mais invisible, utilisez la macro pour la montrer/cacher et la forme vous suit maintenant (=cellule active)

Sub On_Off()
     With Sheets("blad1").Shapes("Forme_Impression")
          .Visible = Not .Visible     'cacher si visible ou montrer si invisible
          .Left = ActiveCell.Left     'côté gauche = ma cellule actuelle
          .Top = ActiveCell.Top     'côté haut= cellule actuelle
     End With
End Sub

Impressionnant ! Il fallait y penser !

Merci de ton aide.