XL 2021 msgbox : timer vbyes

Option Explicit

Sub TestMsg()

Dim Wsh As Object, Reponse As Integer
Set Wsh = CreateObject("WScript.Shell")

Reponse = Wsh.popup("Voulez vous faire ceci blablabla ?", 1, "Demande de confirmation", vbYesNo + vbDefaultButton2)
Select Case Reponse
    Case -1                 'Pas de réponse ==> Mon code fais ceci
        'Le code si pas de reponse
        MsgBox "Tu n'as pas répondu, c'est pas bien", vbInformation, "Réponse utilisateur"
    Case 6                  'Réponse oui ==> Mon code fais ceci
        'Le code si reponse Oui
        MsgBox "Tu as répondu OUI", vbInformation, "Réponse utilisateur"
    Case 7                  'Réponse Non ==> Mon code fais ceci
        'Le code si reponse Non
        MsgBox "Tu as répondu NON", vbInformation, "Réponse utilisateur"
End Select
 
'La suite du code si besoin
End Sub

Reponse = Wsh.popup("Voulez vous faire ceci blablabla ?", 1, "Demande de confirmation", vbYesNo + vbDefaultButton2)

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @isandre

Je te propose ce code

VB:

Option Explicit

Sub TestMsg()

Dim Wsh As Object, Reponse As Integer
Set Wsh = CreateObject("WScript.Shell")

Reponse = Wsh.popup("Voulez vous faire ceci blablabla ?", 1, "Demande de confirmation", vbYesNo + vbDefaultButton2)
Select Case Reponse
    Case -1                 'Pas de réponse ==> Mon code fais ceci
        'Le code si pas de reponse
        MsgBox "Tu n'as pas répondu, c'est pas bien", vbInformation, "Réponse utilisateur"
    Case 6                  'Réponse oui ==> Mon code fais ceci
        'Le code si reponse Oui
        MsgBox "Tu as répondu OUI", vbInformation, "Réponse utilisateur"
    Case 7                  'Réponse Non ==> Mon code fais ceci
        'Le code si reponse Non
        MsgBox "Tu as répondu NON", vbInformation, "Réponse utilisateur"
End Select
 
'La suite du code si besoin
End Sub

*A noter c'est le 1 qui donne le temps pour fermer le pseudo message
Donc ici 1 = 1 seconde


*A noter bis
Par choix c'est le bouton Non qui à le focus

Ce n'est pas une boite de message proprement dit mais une imitation
Sur le site si tu cherches bien il y a une longue discussion sur ce sujet

Merci de ton retour

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour,
Sinon tu as cette ressource:

Icône de la ressource

VBA - Temporiser MsgBox ou un Userform ou n'importe quelle application - Une méthode simple

24 Mars 2024

VBA - Time out MsgBox or a Userform or any application - A simple method

• Dudu2
• Utilitaires

Ça ne te rendra pas vbNo si le timer s'est déclenché mais une variable publique te le dira.

VB:

Sub Exemple()
    Call SetMsgBoxTimer(2.5)
    MsgBox "Vous avez 2 secondes et demie pour cliquer sur le bouton !"
    If SetMsgBoxTimerTimeOut Then MsgBox "Trop tard !"
End Sub

Cliquez pour agrandir...

isandre à dit:

J'ai tenté d'adapter ta macro :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Vérification de la date de mise à jour (cellule B1, feuille Feuil1). Approbation pour actualiser.

...

End Sub

Mais j'ai deux problèmes :

Cliquez pour agrandir...

fanch55 à dit:

Comme le préconisent @Phil69970 et @patricktoulon ,
Un code à mettre dans le module Thisworkbook, il ne se déclenche qu'à la fermeture du classeur :

VB:

' infos sur wscript.popup
' https://www.vbsedit.com/html/f482c739-3cf9-4139-a6af-3bde299b8009.asp
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' [Màj] est le nom de la cellule B1 de la Feuil1
    Dim Rep
    Dim Delay As Integer: Delay = 4
    If [Màj].Value <> Date Then
        Rep = CreateObject("WScript.Shell").Popup( _
             "La dernière mise à jour date du " & [Màj] & vbLf _
           & "Voulez-vous l'actualiser ?", Delay, "Attention, " & Delay & " secondes pour répondre", 0 + 48)
        '    Stop
        If Rep = 1 Then 'OK
            [Màj] = Date: Me.Save
        Else
            Me.Saved = True
        End If
    End If
End Sub

Cliquez pour agrandir...

fanch55 à dit:

Bonjour,
Il y a une précision à donner :
Quand le temps donné à la réponse est écoulé, que voulez-vous faire ?
Fermer le classeur sans le sauvegarder ?
Et si j'ai bien compris votre code, le msg n'est produit qu'à la première maj de la journée ?

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,


D'abord, il manque un morceau dans ta macro puisqu'il n'y a pas de code pour traiter la non réponse dans le temps imparti.

Ensuite, il manque un morceau dans ton message puisque tu dis que tu as deux problèmes mais tu ne les décris pas.

Cliquez pour agrandir...

Phil69970 à dit:

@isandre

Vite fait en regardant ton code :
Ton code me semble un chouia torturé et avec une seule condition ... à chaque fois autant passer par un if
En clair tu ne gère pas le la réponse Non ou la non réponse !!!
Et les Goto pas top !

Remarques

1) Il me semble avoir lu que le temps se calcule sans mouvement de la souris ou du clavier.
Un temps inférieur à la seconde me semble court et je ne sais pas si cela fonctionne je pense que le minimum est 1 seconde mais sans certitude.

2) Pour rendre digeste et lisible ton code il faut le mettre entre balise
Regarde la pièce jointe 1219864

3) Si tu veux que l'on adapte le code sur ton fichier il est préférable d'avoir un fichier représentatif de ton vrai fichier

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.
En clair tu fais une copie de ton fichier que tu anonymises si besoin pour respecter le RGPD

4) Avec un fichier cela nous donne une vision d'ensemble de ce que tu veux faire et de voir la/les solutions qui nous paraissent les plus optimales.

N’oublie pas de nous donner toutes les explications :
Exemple : je veux faire ceci ou cela dans la feuille X ou Y si ceci dans la feuille Z etc

Bonne lecture

Cliquez pour agrandir...

isandre à dit:

Merci de ta réponse .
J'ai tenté d'adapter ta macro :

Cliquez pour agrandir...

isandre à dit:

Le "Non" est traité par défaut, puisque je n'ai que le Case6 (donc "Oui") qui est traité.

Cliquez pour agrandir...

Bonjour fanch55.
Je veux que les dates de mise à jour des feuilles 1 et 2 s'actualisent si :
1-la date est antérieure à aujourd'hui,
2-et si je ai réagi à la boite de dialogue, avec un délai raisonnable (quelques secondes)
Donc, par défaut, si je ne fais rien, la date ne change pas.

Cliquez pour agrandir...

' ------------------------------------------------------------------------------------------------
' infos sur wscript.popup : https://www.vbsedit.com/html/f482c739-3cf9-4139-a6af-3bde299b8009.asp
' ------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' [Maj] est le nom des cellules indiquant la dernière mise à jour d'une feuille quand le nom existe
    Dim Rep, Sh As Worksheet
    On Error Resume Next
    For Each Sh In Me.Worksheets
        If Not IsError(Sh.[Maj]) Then PopupMsg Sh.[Maj]
    Next
    ' Cancel = True
    Me.Saved = True
End Sub
Sub PopupMsg(ByRef Maj)
Dim Rep
Dim Delay As Integer: Delay = 4  ' 4 secondes pour répondre
    If Maj.Value <> Date Then
        Rep = CreateObject("WScript.Shell").Popup( _
             "La dernière mise à jour de la feuille " & Maj.Parent.Name & vbLf _
           & "             date du " & Maj & vbLf _
           & "            Voulez-vous l'actualiser ?", Delay, _
             "Attention, " & Delay & " secondes pour répondre", 4 + 48)
        If Rep = 6 Then Maj.Value = Date: Me.Save
    End If
End Sub