Résolu Comment créer une "interface" "Ne plus afficher ce message"

[jhlamoustache]

Bonjour le forum,

J'ai un message d'alerte dont le texte est assez long, et je voudrais que l'utilisateur puisse ne plus afficher ce message une fois qu'il l'aura lu.
Faut-il utiliser une msgbox, un userform, ou msdialog qu'il faudrait pouvoir paramétrer ?
Comment s'y prendre ?

Quelqu'un a-t-il vu un post en ce sens sur ce site pour m'éclairer ? (car afficher message ramène de nombreuses réponses)

 

[Lone-wolf]

Bonsoir jhlamoustache

Dans un formulaire met un label avec le texte, ensuite

Private Sub UserForm_Activate()
PauseTime = 20
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Il faudra régler PauseTime d'après le texte.

 

[Lone-wolf]

Re

Une autre façon de faire. En Z1 00:00:20, format mm:ss

Option Explicit
Public counter As Range

Sub Start_Timer()
Set counter = Sheets(1).Range("z1")
Application.OnTime Now + TimeValue("00:00:01"), "CaR"
End Sub

Sub CaR()
Start_Timer
UserForm1.Show
counter.Value = counter.Value - TimeValue("00:00:01")
If counter.Value = 0 Then Application.OnTime Now + TimeValue("00:00:01"), "CaR", , False: _
Unload UserForm1: counter.Value = TimeSerial(0, 0, 20)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

 

[Dranreb]

Bonjour et bonne année.

Sub Init()
ThisWorkbook.Names.Add "Alerte", "=TRUE"
End Sub
Sub Test()
If [Alerte] Then If MsgBox("Il y a de quoi faire etc." & vbLf & vbLf & "Annulez pour ne plus afficher ce message.", _
   vbOKCancel + vbInformation, "Test") = vbCancel Then ThisWorkbook.Names.Add "Alerte", "=FALSE"
End Sub

 

[jhlamoustache]

Bonjour les amis.

Accaparé par d'autres tâches, je n'avais pas vu toutes ces réponses. Désolé.
Merci, je vais les étudier.

 

[jhlamoustache]

Re,

J'ai utilisé la solution de Dranreb, l'autre avec Userform plante.
Implantée dans Workbook_Open. Nickel.
Gros merci