fenetre de suivi de deroulement

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches enchainees l es
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defiler le
deroulement du programme ainsi que les problemes potentiels si c'est le c as
quelqu'un pourrait il me preciser comment faire ce popup de suivi ?
je precise que je n'aimerai pas le status bar qui ne montre qu'une ligne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moyen-fai ble"
bonne journee
jacky

Je supposes que l'écriture dans le fichier log se fait avec:
Print#1,x

Il suffit d'ajouter après cette instruction:
UserForm1.ListBox1.AddItem x

JB

merci pour cette reponse mais j'aimerai plus simple du style
une fenetre qui affiche par exemple
** tache 1 terminee sans erreur
** tache 2 une erreur ligne 3
** tache 3 veuillez preciser la valeur xyz
etc...
ou precise autrement : un fichier log qui s'affiche a l'ecran au fur et a
mesure du deroulement . J'arrive a creer ce fichier mais j'aimerai AUSSI
visualiser en temps reel son contenu de maniere a ce que l'utilisateur pu isse
stopper l'excution si il y a a trop d'inconnues
merci
jacky

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches enchaine es les
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defiler le
deroulement du programme ainsi que les problemes potentiels si c'est le cas
quelqu'un pourrait il me preciser comment faire ce popup de suivi ?
je precise que je n'aimerai pas le status bar qui ne montre qu'une li gne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moyen -faible"
bonne journee
jacky

http://cjoint.com/?bqtXTjXWos

Sub auto_open()
Console.Show
Console.ListBox1.Clear
'--- tache1
MajConsole "Début de tâche1:" & Time
tache1
MajConsole "Fin de tâche1:" & Time
'--- tache2
MajConsole "Début de tâche2:" & Time
tache1
MajConsole "Fin de tâche2:" & Time
'--- tache3
MajConsole "Début de tâche3:" & Time
tache1
MajConsole "Fin de tâche3:" & Time
'--- tache4
MajConsole "Début de tâche4:" & Time
tache1
MajConsole "Fin de tâche4:" & Time
End Sub

Sub MajConsole(message)
Console.ListBox1.AddItem message
n = console.ListBox1.ListCount - 1
Console.ListBox1.ListIndex = n
Console.Repaint
End Sub

Sub tache1() ' simulation d'une tâche
For i = 1 To 2500
For j = 1 To 120000
Next j
Next i
End Sub

Je supposes que l'écriture dans le fichier log se fait avec:
Print#1,x

Il suffit d'ajouter après cette instruction:
UserForm1.ListBox1.AddItem x

JB

merci pour cette reponse mais j'aimerai plus simple du style
une fenetre qui affiche par exemple
** tache 1 terminee sans erreur
** tache 2 une erreur ligne 3
** tache 3 veuillez preciser la valeur xyz
etc...
ou precise autrement : un fichier log qui s'affiche a l'ecran au fur et a
mesure du deroulement . J'arrive a creer ce fichier mais j'aimerai AUSSI
visualiser en temps reel son contenu de maniere a ce que l'utilisateur puisse
stopper l'excution si il y a a trop d'inconnues
merci
jacky

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches enchai nees les
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defiler le
deroulement du programme ainsi que les problemes potentiels si c'es t le cas
quelqu'un pourrait il me preciser comment faire ce popup de suivi ?
je precise que je n'aimerai pas le status bar qui ne montre qu'une ligne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moy en-faible"
bonne journee
jacky

encore merci mais ..... c'est bien la premiere fois que je vois console.show
es ce un userform ? ou un objet different
la je suis sec ! excuse moi

bonne soiree
jacky

http://cjoint.com/?bqtXTjXWos

Sub auto_open()
Console.Show
Console.ListBox1.Clear
'--- tache1
MajConsole "Début de tâche1:" & Time
tache1
MajConsole "Fin de tâche1:" & Time
'--- tache2
MajConsole "Début de tâche2:" & Time
tache1
MajConsole "Fin de tâche2:" & Time
'--- tache3
MajConsole "Début de tâche3:" & Time
tache1
MajConsole "Fin de tâche3:" & Time
'--- tache4
MajConsole "Début de tâche4:" & Time
tache1
MajConsole "Fin de tâche4:" & Time
End Sub

Sub MajConsole(message)
Console.ListBox1.AddItem message
n = console.ListBox1.ListCount - 1
Console.ListBox1.ListIndex = n
Console.Repaint
End Sub

Sub tache1() ' simulation d'une tâche
For i = 1 To 2500
For j = 1 To 120000
Next j
Next i
End Sub

Je supposes que l'écriture dans le fichier log se fait avec:
Print#1,x

Il suffit d'ajouter après cette instruction:
UserForm1.ListBox1.AddItem x

JB

merci pour cette reponse mais j'aimerai plus simple du style
une fenetre qui affiche par exemple
** tache 1 terminee sans erreur
** tache 2 une erreur ligne 3
** tache 3 veuillez preciser la valeur xyz
etc...
ou precise autrement : un fichier log qui s'affiche a l'ecran au fur et a
mesure du deroulement . J'arrive a creer ce fichier mais j'aimerai AUSSI
visualiser en temps reel son contenu de maniere a ce que l'utilisateur puisse
stopper l'excution si il y a a trop d'inconnues
merci
jacky

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches enchainees les
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defiler le
deroulement du programme ainsi que les problemes potentiels si c'est le cas
quelqu'un pourrait il me preciser comment faire ce popup de suivi ?
je precise que je n'aimerai pas le status bar qui ne montre qu'une ligne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moyen-faible"
bonne journee
jacky

C'est bien un userform. Il est nommé Console.
Le userForm est bien mle moyen le + simple pour obtenir une fenêtre.

JB

encore merci mais ..... c'est bien la premiere fois que je vois console.s how
es ce un userform ? ou un objet different
la je suis sec ! excuse moi

bonne soiree
jacky

http://cjoint.com/?bqtXTjXWos

Sub auto_open()
Console.Show
Console.ListBox1.Clear
'--- tache1
MajConsole "Début de tâche1:" & Time
tache1
MajConsole "Fin de tâche1:" & Time
'--- tache2
MajConsole "Début de tâche2:" & Time
tache1
MajConsole "Fin de tâche2:" & Time
'--- tache3
MajConsole "Début de tâche3:" & Time
tache1
MajConsole "Fin de tâche3:" & Time
'--- tache4
MajConsole "Début de tâche4:" & Time
tache1
MajConsole "Fin de tâche4:" & Time
End Sub

Sub MajConsole(message)
Console.ListBox1.AddItem message
n = console.ListBox1.ListCount - 1
Console.ListBox1.ListIndex = n
Console.Repaint
End Sub

Sub tache1() ' simulation d'une tâche
For i = 1 To 2500
For j = 1 To 120000
Next j
Next i
End Sub

Je supposes que l'écriture dans le fichier log se fait avec:
Print#1,x

Il suffit d'ajouter après cette instruction:
UserForm1.ListBox1.AddItem x

JB

merci pour cette reponse mais j'aimerai plus simple du style
une fenetre qui affiche par exemple
** tache 1 terminee sans erreur
** tache 2 une erreur ligne 3
** tache 3 veuillez preciser la valeur xyz
etc...
ou precise autrement : un fichier log qui s'affiche a l'ecran au fu r et a
mesure du deroulement . J'arrive a creer ce fichier mais j'aimerai AUSSI
visualiser en temps reel son contenu de maniere a ce que l'utilisat eur puisse
stopper l'excution si il y a a trop d'inconnues
merci
jacky

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches en chainees les
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defil er le
deroulement du programme ainsi que les problemes potentiels si c'est le cas
quelqu'un pourrait il me preciser comment faire ce popup de sui vi ?
je precise que je n'aimerai pas le status bar qui ne montre qu' une ligne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moyen-faible"
bonne journee
jacky

merci beaucoup , je ne pensais pas a cela
j'imaginais un appel a une API , je vais essayer donc ce que tu as conseillé

bonne journee et encore merci
jacky

C'est bien un userform. Il est nommé Console.
Le userForm est bien mle moyen le + simple pour obtenir une fenêtre.

JB

encore merci mais ..... c'est bien la premiere fois que je vois console.show
es ce un userform ? ou un objet different
la je suis sec ! excuse moi

bonne soiree
jacky

http://cjoint.com/?bqtXTjXWos

Sub auto_open()
Console.Show
Console.ListBox1.Clear
'--- tache1
MajConsole "Début de tâche1:" & Time
tache1
MajConsole "Fin de tâche1:" & Time
'--- tache2
MajConsole "Début de tâche2:" & Time
tache1
MajConsole "Fin de tâche2:" & Time
'--- tache3
MajConsole "Début de tâche3:" & Time
tache1
MajConsole "Fin de tâche3:" & Time
'--- tache4
MajConsole "Début de tâche4:" & Time
tache1
MajConsole "Fin de tâche4:" & Time
End Sub

Sub MajConsole(message)
Console.ListBox1.AddItem message
n = console.ListBox1.ListCount - 1
Console.ListBox1.ListIndex = n
Console.Repaint
End Sub

Sub tache1() ' simulation d'une tâche
For i = 1 To 2500
For j = 1 To 120000
Next j
Next i
End Sub

Je supposes que l'écriture dans le fichier log se fait avec:
Print#1,x

Il suffit d'ajouter après cette instruction:
UserForm1.ListBox1.AddItem x

JB

merci pour cette reponse mais j'aimerai plus simple du style
une fenetre qui affiche par exemple
** tache 1 terminee sans erreur
** tache 2 une erreur ligne 3
** tache 3 veuillez preciser la valeur xyz
etc...
ou precise autrement : un fichier log qui s'affiche a l'ecran au fur et a
mesure du deroulement . J'arrive a creer ce fichier mais j'aimerai AUSSI
visualiser en temps reel son contenu de maniere a ce que l'utilisateur puisse
stopper l'excution si il y a a trop d'inconnues
merci
jacky

Bonjour,

Dans une zone de liste d'un userformnon modal:

http://cjoint.com/?bqolgozYPn

Sub essai()
UserForm1.Show
UserForm1.ListBox1.Clear
UserForm1.ListBox1.AddItem ("Tache1:" & Time)
'--- tache1
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache2:" & Time)
'--- tache2
t = Timer()
Do While Timer() < t + 5
DoEvents
Loop
UserForm1.ListBox1.AddItem ("Tache3:" & Time)
End Sub

JB

Bonjour a toutes et tous
j'ai une macro qui execute la generation de plusieurs taches enchainees les
unes a la suite des autres et aimerai
presenter une fenetre dans laquelle l'utilisateur verrait defiler le
deroulement du programme ainsi que les problemes potentiels si c'est le cas
quelqu'un pourrait il me preciser comment faire ce popup de suivi ?
je precise que je n'aimerai pas le status bar qui ne montre qu'une ligne
merci beaucoup pour les reponses qui s'adressent a utilisateur "moyen-faible"
bonne journee
jacky