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

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

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

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