XL 2021 msgbox : timer vbyes

isandre · 28 Juin 2025

bonjour à tous,
Rien de professionnel ; pour faire travailler mes neurones, je "joue" avec Vba, mais mes connaissances sont assez légères.
Aujourd'hui, j'essaie de fermer automatiquement, donc par Vba, une MsgBox qui demande l'autorisation d'enregistrer (ou pas) un classeur.
Tout ce que j'ai trouvé sur le Net ne fonctionne pas, certainement parce qu'il me manque un élément.
voici un fragment de mon code
màj = Sheets("feuil1").Range("B1").Value
If màj >= Date Then GoTo fin 'si la date de la cellule F1 est celle du jour, passer à la fin de la condition.
If MsgBox("La dernière mise à jour date du " & màj & " Voulez-vous l'actualiser ?", vbYesNo) = vbYes Then
Sheets("feuil1").Range("B1").Value = Date
End If
fin:

Ce que je cherche à obtenir, c'est que cette MsgBox renvoie la valeur VbNo si l'utilisateur ne répond pas dans un délai déterminé.
Mais je tourne en rond...
Une solution ?

Dudu2 · 28 Juin 2025

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

Ç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

isandre · 11 Juillet 2025

TooFatBoy à dit:
J'avoue que je n'ai pas bien compris ce que tu veux faire, donc ce n'est pas moi qui pourrait t'aider. 🙁

En pratique, c'est quasiment réglé, mais c'est le dilemme entre la pratique et la théorie :
La pratique, c'est quand ça fonctionne et qu'on ne sait pas pourquoi.
La théorie, c'est quand ça ne fonctionne pas, mais qu'on sait pourquoi.

Phil69970 · 11 Juillet 2025

Bonjour à tous

@isandre

Je suis en train de tout refaire à la vitesse de l'escargot..... entre mes diverses occupations.

J'ai fini la feuille "DVD & BR"
J'ai fini ==> Affichage_des_enregistrements_programmés.

J'en suis à la reconstruction de tes MFC bouton "Réinitialisation" qui ne colle pas toujours avec les plages que tu indiques en commentaire .....

Juste pour info ta formule matricielle dans la feuille "MKV" en N1 je l'ai remplacé par :

=NB.SI(L:L;"=en co*")

qui fonctionne très bien et bien plus simple et non matricielle....

J'essaye de comprendre à quoi servent tes formules ci dessous pour voir si on peut faire plus court et/ou les remplacer par du code VBA !!!

'*********************************************************************************************************
'*********************************************************************************************************
'J'ai pas compris à quoi servent tes formules car tes formules ne sont pas compatibles avec excel 2010
'et peut être sont remplaçable par du code VBA ou des formules plus simple
'*********************************************************************************************************
'*********************************************************************************************************

'Remise en place de la formule de TCD des différentes vidéos en fonction du nombre de lignes de la feuille "MKV" (variable "j"),sur "Feuil2".
Worksheets("Filtre").Range("A5").Formula2R1C1 = "=IF(OR(ISBLANK(R[-3]C),ISBLANK(R[-1]C)),""Il manque de type de vidéo ou le support."",FILTER(MKV!R[-2]C:R[1995]C[7],(MKV!R[-2]C[1]:R[1995]C[1]=R[-3]C)*(MKV!R[-2]C[2]:R[1995]C[2]=R[-1]C),""Modifiez le type de vidéo ou le support.""))"

'Remise en place de la formule de comptage des différentes vidéos en fonction du support, "Feuil2".
Worksheets("Filtre").Range("F4").FormulaLocal = "=SI(OU(GAUCHE(A5;5)=""Modif"";GAUCHE(A5;5)=""Il ma"");""Pas de correspondance aux critères demandés"";SI(NB.SI(B3:B1000;A2)=0;"""";SI(A2=""Documentaire"";SOMME(H:H);NB.SI.ENS(B3:B1000;A2;C3:C1000;A4))&(SI(GAUCHE(A2)=""S"";"" ""&GAUCHE(A2;5)&""s TV sur ""&A4&"" en ""&SOMME(H:H)&"" épisodes"";"" ""&A2&""s sur ""&A4&"".""))))&""."""

'Remplacement de "1000" dans la formule par la variable "j", qui donne la dernière ligne de la feuille "MKV"
'Ws3.Range("F4").Replace What:="1000", Replacement:=j
Worksheets("Filtre").Range("F4").Replace What:="1000", Replacement:=j

'Remise en place des filtres sur MKV et Feuil2.
Worksheets("MKV").Range("A2:M" & j).AutoFilter Field:=2
Worksheets("MKV").Columns("A:M").VerticalAlignment = xlCenter

'*********************************************************************************************************
'*********************************************************************************************************

Et il manque à faire la totalité de ==> Workbook_BeforeClose(Cancel As Boolean) qu'il faut vraisemblablement tout reprendre.

La suite ..... bientôt

isandre · 12 Juillet 2025

Phil69970 à dit:
Bonjour à tous

@isandre

Je suis en train de tout refaire à la vitesse de l'escargot..... entre mes diverses occupations.

J'ai fini la feuille "DVD & BR"
J'ai fini ==> Affichage_des_enregistrements_programmés.

J'en suis à la reconstruction de tes MFC bouton "Réinitialisation" qui ne colle pas toujours avec les plages que tu indiques en commentaire .....

Juste pour info ta formule matricielle dans la feuille "MKV" en N1 je l'ai remplacé par :

qui fonctionne très bien et bien plus simple et non matricielle....

J'essaye de comprendre à quoi servent tes formules ci dessous pour voir si on peut faire plus court et/ou les remplacer par du code VBA !!!

Et il manque à faire la totalité de ==> Workbook_BeforeClose(Cancel As Boolean) qu'il faut vraisemblablement tout reprendre.

@Phil69970
Bonjour,

J’ai l’impression que tu prends ça comme un challenge !
Merci, ça me permettra certainement de progresser dans la compréhension d’Excel. Mais ne te prends pas la tête quand même !

Bien vu pour la formule en N1, je n’y avais pas pensé !

Pour les formules, je suis en Office 2021 :
Ces formules m'ont ennuyé un bon moment ! Je ne parvenais pas à les écrire en enregistrement de macro.

Pour la première (TCD), pas moyen de la faire en Formula.Local, ni de modifier ensuite le numéro de la dernière ligne ; j’ai donc mis R[1995], qui correspond à la ligne 2000, ce qui laisse de la marge.

Pour la deuxième (comptage), j’ai choisi la facilité en prenant la formule de la feuille, avec la valeur de « 1000 », et en remplaçant ensuite cette valeur par la variable « j ». Cette formule me donne le nombre de type de vidéos (choisi dans la cellule A2), en fonction du support (choisi dans la cellule A4), et de mettre une info si la liste est vide.

Ces formules me permettent de retrouver les vidéos enregistrées, par type et par support.

Je n’ai pas compris cette ligne rajoutée (en gras), qui n’existe pas dans mon code :

'Remplacement de "1000" dans la formule par la variable "j", qui donne la dernière ligne de la feuille "MKV"
'Ws3.Range("F4").Replace What:="1000", Replacement:=j
Worksheets("Filtre").Range("F4").Replace What:="1000", Replacement:=j

Bonne journée
André

Phil69970 · 12 Juillet 2025

@isandre

En clair et en français que veux tu que ta formule fasse ?

isandre à dit:
Pour la première (TCD), pas moyen de la faire en Formula.Local, ni de modifier ensuite le numéro de la dernière ligne ; j’ai donc mis R[1995], qui correspond à la ligne 2000, ce qui laisse de la marge.

Idem pour les autres formules ....

C''est ce que j'ai commencé à faire mais j'ai oublié de la supprimé dans le post

isandre à dit:
Je n’ai pas compris cette ligne rajoutée (en gras), qui n’existe pas dans mon code :

'Remplacement de "1000" dans la formule par la variable "j", qui donne la dernière ligne de la feuille "MKV"
'Ws3.Range("F4").Replace What:="1000", Replacement:=j
Worksheets("Filtre").Range("F4").Replace What:="1000", Replacement:=j

La ligne en gras viendra remplacé la ligne du dessous quand tout sera fini

isandre · 12 Juillet 2025

Phil69970 à dit:
@isandre
Sheets("Filtre").Range("A5").Formula2R1C1 = "=IF(OR(ISBLANK(R[-3]C),ISBLANK(R[-1]C)),""Il manque de type de vidéo ou le support."",FILTER(MKV!R[-2]C:R[1995]C[7],(MKV!R[-2]C[1]:R[1995]C[1]=R[-3]C)*(MKV!R[-2]C[2]:R[1995]C[2]=R[-1]C),""Modifiez le type de vidéo ou le support.""))"

En clair et en français que veux tu que ta formule fasse ?

Cette formule fonctionne comme je demande, pas de soucis sur cette feuille. Je n'ai pas trouvé comment la mettre en français (Formula.Local), a priori elle ne peut être mise qu'en Formula2R1C1
Cette fonction n'existe pas dans Office 2010.
Lien vers cette fonction : https://support.microsoft.com/fr-fr/office/fonction-filtre-f4f7cb66-82eb-4767-8f7c-4877ad80c759

C'est la fonction FILTRE ; La condition SI qui est avant FILTRE m'informe sur une erreur au niveau du choix dans les cellules A2 (choix de la vidéo) et A4 choix du support. Le SI me renvoie soit "Modifiez le type de vidéo ou le support" dans la cellule A5, et uniquement dans celle-ci, soit la liste de toutes les vidéos qui répondent aux deux critères.
En fonction du type de vidéos et du support sélectionné, le tableau m'affiche uniquement ceux qui correspondent à ces deux critères
En fait, j'ai expérimenté cette formule FILTRE , et elle me renvoie à partir de la ligne 5 les vidéos qui correspondent aux critères des cellules A2 (type de vidéo) et A4 (support).
En plaçant cette formule uniquement dans la cellule A5, elle agit sur le reste de la feuille Filtre, sans avoir à la recopier sur l'ensemble des cellules concernées.
Je ne sais pas si tu peux le voir, mais l'affichage de la formule dans la barre de formule est affichée en noir pour la cellule A5, et grisée pour les autres cellules

patricktoulon · 12 Juillet 2025

bonsoir
a la base filter travail en matriciel implicitement donc formulalocal ne peut fonctionner essaie formulaArray

Phil69970 · 12 Juillet 2025

Bonsoir à tous

@isandre

Que devrait ton avoir comme résultat ici
Moi je n'ai que des #Nom?

Mets une image du résultat attendu que je comprenne mieux.

TooFatBoy · 12 Juillet 2025

Phil69970 à dit:
Moi je n'ai que des #Nom?

Pareil, à cause du FILTRE. 🙁

fanch55 · 12 Juillet 2025

Phil69970 à dit:
Bonsoir à tous

Que devrait ton avoir comme résultat ici
Moi je n'ai que des #Nom?

Mets une image du résultat attendu que je comprenne mieux.

isandre · 13 Juillet 2025

fanch55 à dit:
Regarde la pièce jointe 1220334
Regarde la pièce jointe 1220335

fanch55 a été plus rapide que moi !

isandre · 13 Juillet 2025

patricktoulon à dit:
bonsoir
a la base filter travail en matriciel implicitement donc formulalocal ne peut fonctionner essaie formulaArray

Bonjour,
Merci de ta réponse; Pas trop compris l'utilisation de FormulaArray, mais comme mon code fonctionne bien avec FormulaR1C1, je crois que ça va rester comme ça.

XL 2021 msgbox : timer vbyes

isandre

XLDnaute Nouveau

Dudu2

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

isandre

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

isandre

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

isandre

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

isandre

XLDnaute Nouveau

isandre

XLDnaute Nouveau

Discussions similaires

XL 2021 msgbox : timer vbyes

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency