Discussion :

[EvaristeGaloisBis]

Bonjour,

Je cherche a savoir si il était possible de rafraichir toutes les n secondes une userforms sans géner l'utilisateur.

Par exemple rafrahir un label.

J'ai essayé de bricoler en vain ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub AutoRefresh()
  If Not CeQueJeDoisFaire Then Stop
  Call Reschedule
End Sub
 
Private Function Reschedule()
  Call Application.OnTime(Now() + TimeValue("00:00:05"), "ufTest.AutoRefresh")
End Function

Mais ça n'a pas l'air de fonctionner...

Est ce que quelqu'un a déja eu affaire a ce genre de problématique?

Merci pour vos réponses,

[Daniel.C]

Bonjour,

C'est quoi "CeQueJeDoisFaire" ? Qu'est-ce qui ne fonctionne pas ?

[EvaristeGaloisBis]

c'est une sub quelconque... ça ne vient pas du tout de la sub car je n'ai aucun message d'erreur qui indique qu'il ne la trouve pas.

[SfJ5Rpw8]

Bonjour,

crée ta procédure dans un module standard (pas une form..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AutoRefresh()
  ufTest.AutoRefresh
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnTime Now() + TimeValue("00:00:05"), "AutoRefresh"

[EvaristeGaloisBis]

Merci!! ça fonctionne parfaitement.

Seulement, n'existe t il pas une méthode plus propre que ça?

Bonne soir,ée

[SfJ5Rpw8]

ben,

du moment que tu utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnTime

tu as déjà enfreint toutes les règles de propretés ..

ensuite comme la procédure CeQueJeDoisFaire est secrète ...

pas grand chose de plus à ajouter. ..