Bonjour,
Est il possible à des moments donnés d une procédure d afficher quelques secondes (2s par exemple) un message rappelant la valeur d une variable ? Ceci me permettrait de suivre en direct le cheminement de mon programme. Merci
Cdlt.
Jérôme
Bonjour,
Est il possible à des moments donnés d une procédure d afficher quelques secondes (2s par exemple) un message rappelant la valeur d une variable ? Ceci me permettrait de suivre en direct le cheminement de mon programme. Merci
Cdlt.
Jérôme
Salut,
tu peux faire un splash screen.
Pour cela, il te suffit de :
1 - créer un formulaire.
2 - créer une macro qui ferme le formulaire
https://silkyroad.developpez.com/VBA/UserForm/#LIII-C
3 - ajouter dans l'evenement d'initialisation du formulaire un Application.OnTime
https://excel.developpez.com/faq/?pa...ignoterCellule
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Bonjour,
Tu peux aussi le faire avec une ligne que tu mets là où tu veux et autant de fois que tu veux dans ta procédure.
Code : Sélectionner tout - Visualiser dans une fenêtre à part CreateObject("Wscript.shell").Popup "ton message", 2, "Message d'information", vbInformation
Je teste dès demain....Et si je veux afficher pendant 2 secondes la valeur de la variable "Compliant_Delivery" à un moment précis du déroulement de la macro comment dois je faire ? Merci bcp.
Cdlt
Jérôme
Bonjour à tous,
tu peux aussi utiliser la barre de status.
Ca te permet de laisser affiché la progression aussi longtemps que tu veux, sans entraver la suite du programme
eric
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim statusBarInitial As Long statusBarInitial = Application.DisplayStatusBar Application.DisplayStatusBar = True If lig Mod 100 = 0 Then Application.StatusBar = "Ligne " & lig & " / " & derlig - 1 DoEvents End If '..... Application.DisplayStatusBar = statusBarInitial
Normalement on utilise Debug.Print pour afficher des info dans la fenetre d'execution quand on est en train de developper son code dans le VBE.
Tu peux utiliser une simple routine comme la suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Attend(ByVal Secs As Single) Dim sngPrevTimer As Single sngPrevTimer = Timer Do If Timer - sngPrevTimer >= Secs Then sngPrevTimer = Timer: Exit Do End If DoEvents Loop End Sub
Et puis, dans ton code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Test() Dim i As Long For i = 0 To 10 Debug.Print i Attend 2 'secs Next i End Sub
Bonjour et merci à tous,
J'ai entré la ligne suivante pour avoir l'affichage de la valeur de "nbr" pendant 1 seconde sauf que j'ai un message d'erreur. Où se trouve l'erreur ? Merci encore.
Cdlt.
Code : Sélectionner tout - Visualiser dans une fenêtre à part CreateObject("Wscript.shell").Popup "Nbr = " &nbr", 1, "Message d'information", vbInformation
un " de trop après la variable nbr !
Code : Sélectionner tout - Visualiser dans une fenêtre à part CreateObject("Wscript.shell").Popup "Nbr = " & nbr, 1, "Message d'information", vbInformation
Merci beaucoup Jean_2940 !! Ca fonctionne !!
Cdlt.
Jérôme
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager