Microsoft 365 Rafraichissement Userform

vgendron

XLDnaute Barbatruc

• 11 Août 2021

• #2

Bonjour

il va falloir que tu joues du F8 pour voir à quel moment ca bloque et pourquoi
un screenupdating=false malvenu?
une entrée utilisateur que le code attend? ou qui est erronée
une boucle infinie...??

bref...tu as le choix :-D

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Août 2021

• #3

Bonjour
merci pour la réponse
pour répondre aux propositions:

• un screenupdating=false malvenu? : je n'utilise pas le screenupdating, car l'ouverture des fichiers csv se fait via open file et non worksheet.open
• une entrée utilisateur que le code attend? ou qui est erronée : le code fonction (bien??) car il arrive toujours à la fin mais il y a juste l'écran qui se fige et qui se libère à la fin
• une boucle infinie...?? non car le code va bien jusqu'au bout et le phénome ne se passe pas toujours au même endroit...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Août 2021

• #4

re
bonjour
oui le problème est connu
essai simplement de faire un me.repaint juste avant la macro longue ou des les premiers tour de boucle
cela dit là on te répond en aveugle si on a pas au moins le code pour comprendre ce qui est si long ta question restera sans réponse concrète

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Août 2021

• #5

Bonjour,

Ton problème est un grand classique rencontré lors de longues boucles.
Hélas je ne saurais te donner une solution efficace à tous les coups...

Peut-être qu'un REPAINT bien placé (juste après la MàJ de la TextBox peut-être ?) pourrait fonctionner ?

Ou peut-être faut-il utiliser un DoEvent ?

 

Dernière édition: 11 Août 2021

Vote positif 0 Vote négatif

Solution

tbft

XLDnaute Accro

• 11 Août 2021

• #6

Je vous remercie pour vos réponses.
Maintenant que vous le dites, ce problème m'ai déjà arrivé sur d'autre fichier, en marquant aussi qu'Excel ne répond pas...comme si il avait planté...
J'utilise l'instruction me.repaint pour mettre l'userform lors de la modification des textbox qui servent à suivre l'avancement de la macro.
Par contre pouvez-vous m'en dire plus sure DoEvent, s'il vous plait?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Août 2021

• #7

re
doevents sert a libérer vba et un peu de mémoire pour qu'une éventuelle macro ou Evénement controls puisse se faire pendant qu'une macro lourde en mémoire

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Août 2021

• #8

D'accord...
Je vais essayer...

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 11 Août 2021

• #9

Bonjour Patrick,

patricktoulon à dit:

re
doevents sert a libérer vba et un peu de mémoire pour qu'une éventuelle macro ou Evénement controls puisse se faire pendant qu'une macro lourde en mémoire

Cliquez pour agrandir...

Doevents redone la main à Windows pour lui permettre de gérer sa pagination mémoire ce n'est pas la même chose car s'il n'a rien à libérer !!!!

Si tu utilises des set objet il faut obligatoirement un set Nothing car ça ça sature la mémoire !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Août 2021

• #10

@dysorthographie oui bon ben appelle ça comme tu veux crâneur !!!

 

Vote positif 1 Vote négatif

tbft

XLDnaute Accro

• 11 Août 2021

• #11

Je suis en train de faire un essai.
C'est pas optimale mais je parie que cela vient de la place du DoEvents que j'ai placé pourtant en utilisant une analyse très poussé : Euh.... au hasard en faite.
Comme vous m'avez indiquer cela rends la main et permet de débloquer Excel.
Il ne me reste plus qu'à trouver le ou les emplacements pour mettre l'instruction magique.

Un grand merci pour votre aide

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 11 Août 2021

• #12

En général dans un boucle

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Août 2021

• #13

J'ai ajouté DoEvent aux <<sous>> macros qui gère la mise à jours de l'affichage.
Sa beug encore quand l'affichage n'est pas rafraichit.
Il faut que je trouve où en ajouter.
Mais le résultat est déjà génial....

Merci encore...

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Août 2021

• #14

Je viens de trouvé un autre endroits pas mal.
J'ai quasiment plus de fige.... Trop content

 

Vote positif 0 Vote négatif