Discussion :

[Loch-ma]

Bonjour à tous,

Je souhaiterai perfectionner au mieux un fichier sur lequel je travaille pour ça j'aimerai pouvoir bénéficier de votre aide s'il vous palit.
Je voudrais faire en sorte que lorsque je clique sur un bouton qui affiche l'états des contrats, ces états puissent disparaître quelques temps après ? Un laps de temps d'environ 5min puis ça s'effacerait définitivement en attendant qu'on clique de nouveau sur ce bouton.

En espérant que vous puissiez m'aider,

Cordialement,

[Diablo_22]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

[Loch-ma]

Tout d'abord merci beaucoup pour votre réponse !!

Savez-vous comment je peux le combiner avec ce code déjà créé ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton_Vert()
    'Sub crée en temps qu'exemple
      Dim I As Long, nbLignes As Long
Indicateur:        Cells(13, 1) = "Indicateur 1"
 
    nbLignes = Sheets("owssvr").Cells(Rows.Count, "L").End(xlUp).Row 'choisir autre colonne que L au besoin
    For I = 3 To nbLignes
        If (Range("L" & I) < Date) Then
            Cells(5, 1) = "Un contrat a expiré"
        ElseIf (Range("L" & I) - Date < 15) Then
            Cells(6, 1) = "Un contrat va bientôt expirer"
        End If
    Next
End Sub

Cordialement,