Problème d'affichage avec un Userform

**beaubourg** · 23/11/2020, 08h08

Bonjour

Je m'excuse d'avance si la question a déjà été posée mais je n'ai à priori rien trouvé sur le forum.
Voici mon problème.
1) J'ai une feuille qui est alimentée à intervalles réguliers par des données externes récupérées grâce à une fonction Timer. ici pas de soucis, tout se passe bien
2) J'ai créé un userform modless dans lequel sont affichées des données triées dans une userlist.
3) Lorsque j'initialise mon userform, la liste est alimentée sans pb. Un bouton intégré dans le userform permet de rafraîchir manuellement la liste.
4) J'ai créé une procédure public d'abord intégrée au userform déclenchée par le timer qui devrait rafraîchir la liste mais là ça ne fonctionne pas alors que à la mano pas de pb.
5) le Userform accède sans pb à la feuille (appels "manuels" fc correctement)
J'ai essayé les manips suivantes toutes négatives :
- intégrer les appels timer directement dans le Userform avec la procédure toutes déclarées public
- j'ai sorti les fc timer dans un module indépendant en laissant la procédure dans le userform
- j'ai tout sorti en essayant de rafraîchir via un appel style userform.userlist : cette procédure fonctionne manuellement (je ne savais pas que les objets incorporés à un userform étaient public !)
mais rien n'y fait.
J'ajoute que lorsque je fais tourner "à la mano" c'est à dire hors timer, là ça fonctionne.
Le timer appelle bien mes procédures donc là aussi pas de pb.
Alors je n'y comprends rien.

Je ne sais pas si j'ai été très clair dans mon exposé mais si vous aviez une idée ou une amorce de solution, vous m'en verrez ravi.

Cordialement

**beaubourg** · 23/11/2020, 08h13

Les procédures tournent sans message d'erreur simplement rien ne se passe.
Voilà

**Patrice740** · 23/11/2020, 09h36

Bonjour,

Quand tu parles de timer je suppose que tu veux dire OnTime ....
Essaies :
1) Ajoutes une méthode (i.e. une procédure publique) "rafraichir" à ton usf.
2) Exécutes cette méthode (LeUserform.rafraichir) en fin de la procédure de mise à jour lancée par le OnTime ?

**beaubourg** · 23/11/2020, 12h16

Je te remercie pour ta réponse.
Il s'agit en effet de Application.OnTime
Je vais vérifier ce soir mais il me semble que j'ai déjà tenté cette solution avec la procédure timer dans un module externe avec un résultat infructueux.
Je te tiens au courant
CDT

**beaubourg** · 24/11/2020, 14h22

Bonjour

Comme suggéré plus haut j'ai donc mis mon sub déclaré en public directement dans le userform -> audcune amélioration. J'ai aussi vérifié que le sub est bien appelé par le timer ce qui est le cas.
J'ai aussi mis userform.repaint. Au début ça semblait marcher mais au bout de 10mn plus rien.
Voici mon sub :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub essais_ecrit()
Me.TextBox1.Text = "test" 'uniquement pour forcer le rafraichissement du CTL
Me.ListBox2 = ""
'Me.TxtBox_Num_dev.Value = ""
Me.ComboBox1.Value = "TOUS"
Me.TextBox1.Text = ""
Call cherche("", "TOUS", "")
'Call Me.essais_ecrit
Formulaire_Saisie.Repaint
'MsgBox "procedure essais_ecrit appelée" 'pour test appel
End Sub
A noter que le ME est juste là pour la lisibilité du code. Si on le supprime ou que l'on mette userform.<nom_ctl>, ça ne change strictement rien.
Voici maintenant le contenu du bouton RAZ qui fonctionne à tous les coups !
Private Sub BTN_RAZ_Click()
Me.TextBox1.Text = ""
Me.ListBox2 = ""
Me.ComboBox1.Value = "TOUS"
Call cherche("", "TOUS", "")
End Sub

Bon bref je m'arrache les cheveux et ne trouve rien alors si par hasard ne serait-ce que l'amorce d'une idée ou une piste à explorer ,je suis preneur.

Bien cordialement

**Patrice740** · 24/11/2020, 15h23

Bonjour,

Tout d'abord, merci de modifier ton post avec les balises de code # :
https://www.developpez.net/forums/d3...-balises-code/
http://club.developpez.com/aidenouve...es/Balises.gif

Il faudrait que tu publies la totalité du code :
- celui du formulaire
- celui du module standard qui met à jour tes données.
C'est dans ce dernier qu'il faut mettre le rafraichissement du formulaire.

**beaubourg** · 24/11/2020, 15h57

Merci pour ta réponse. Je suis en train de tester une nouvelle solution qui semble fonctionner via userform.activate.
Je vais vérifier
En ce qui concerne le code ça va être un peu compliqué car la procédure d'appel est assez longue.
JE te tiens au courant de mes tests.

CDT

**beaubourg** · 25/11/2020, 12h23

Bonjour

Je me suis résolu à créer un truc tout simple (userform + simple fc externe d'affichage) et j'ai fini par mettre le doigt sur ce qui coince. Voici le code du sub appelé qui pose problème :

Code :

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

1
2
3
4
5
6
7
8
 
Option Explicit
 
Sub Gere(Formulaire As String)
Application.WindowState = xlMinimized
VBA.UserForms.Add(Formulaire).Show vbModeless
'Application.WindowState = xlMaximized
End Sub