Discussion :

[licpegpon]

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

[Jean-Philippe André]

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

[anasecu]

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

[licpegpon]

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

[eriiic]

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

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

eric

[RAFAAJ2000]

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