Userform d'attente avec image GIF

Résolu/Fermé
Signaler
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
-
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
-
Bonjour,chers toutes et tous

Voulant mettre un petit usf animé pendant l’exécution de mes macros
J’ai piqué sur le net un petit programme qui me plait beaucoup et qui permet à l’utilisateur de patienter pendant les 15 secondes d’exécution des macros. Ce programme utilise une image gif quelconque qui DOIT se trouver dans le même répertoire que le fichier Excel.
Seulement je n’arrive pas à faire apparaitre l’mage gif en question pendant l’exécution. La place de l’image dans l’usf reste désespérément vide mais La macro s’exécute bien jusqu’à la fin puis ferme l’usf.
Je sollicite vos aides chers amis

Le fichier joint


https://www.cjoint.com/c/ELroNO4ka3A

A voir également:

16 réponses

Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
oui oui !!!!!avec votre fichier tout est bon ; l'image est animée du début à la fin des macros
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,

Si vous pouvez mettre votre fichier a dispo, je pourrai voir ce qui cloche
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,

Fichier modifie avec mise a l'echelle de l'image en fonction du WebBrowser

https://www.cjoint.com/c/ELrpPa5y7wf

Pour que ca s'affiche correctement, il faut un certain temps d'attente, c'est pour cela que j'ai augmente le remplissage cellule
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Merci beaucoup
J'ai adapté le code à mes macros; au demarrage j'ai maintenant l'image du GIF qui apparait mais .....ne bouge pas .
le GIf est fixe pendant toute la durée de la macro puis se ferme ;`

Une petite idée de la cause ?

Bien cordialement
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,

Et avec le fichier que j'ai modifie, Homer cour un peu ???
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251
Bonjour
Excusez l'incruste

C'est plutôt la durée de 15 secondes qui pourrait certainement être réduite

Comme le demande F89 (bonjour)

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse

Dans l’attente

Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour michel_m,

En effet avec un figeage ecran et plage de cellules, pour le fichier que j'ai modifie ca passe de 19s a 12s. Pour le fichier d'origine de 2.9 a 1.4 et y a peut-etre mieux en travaillant plus en tableau memoire
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251 >
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021

oui mais faudrait voir le code réel....
je te laisse le bébé
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563 >
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021

Re,

Ok, j'attends le mouflet
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Bonjour à tous

je vous envoie mon fichier ( du moins la partie contenant le code) et l'image gif .
Effectivement comme dit michel , le code serait surement à optimiser. pour gagner en rapidité .
Si dans la foulée vous avez des solutions d'amélioration des codes ; JE PRENDS .

Merci à tous

http://www.cjoint.com/c/ELsmxBTzR8A
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251
Mettre le fichier en .zip en non en .7z

Merci
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,
Au premier rabord,
Code:
_manque le fonction mygif qui donne le chemin et le nom de l'image
_Il faut des DoEvents a chaque boucle de comptage

pour l'optimisation, je regarde car en effet c'est plutot long en traitement

Homer cour alertement: https://www.cjoint.com/c/ELsne6BD0If

Au deuxieme rabord, quand vous faites des blocs With End With, n'oubliez pas de mettre un point devant les range ou cells qui sont de la feuille definie par le With

Mettre les lettres de colonnes en majuscule
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,
Pour l'instant:
un fichier sans gif (env.23s) et un fichier avec gif(env.32s) au lieu des 175s du depart:

https://www.cjoint.com/c/ELsqfzUBC2f

A+
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Génial
Je me doutais bien qu'il y avait un lien avec les "do events".
"Homer" courT maintenant pendant l'execution des macros . ( désolée pour l'oubli de la fonction )
Justement en parlant des macros j'ai modifié comme vous me l'avez suggéré ;
Mais je ne gagne pas en vitesse.( je n'en perds pas non plus )

Si vous avez d'autres propositions pour gagner quelques secondes !!!!

MERCI et MERCI
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251
coucou

pour masquer les colonnes sans boucle (gain de temps si beaucoup de procédures identiques ?)

maquette perso à adapter

ref = Range("H2")
cellule = Rows(1).Find(ref, Range("A1"), xlValues).Address
Range("B1:" & cellule).EntireColumn.Hidden = True
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Bien vu !!!!!!

J'adapte à toutes mes procédures "masquages colonnes"

merci
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,

Mais je ne gagne pas en vitesse.( je n'en perds pas non plus ) Il n'y a pas que les modifs que j'ai suggérées a faire (celles-ci visaient a ca que "Bar Simpson" marche des le debut et surtout a eviter, pour les points, d'ecrire dans n'importe qu'elle feuille), regardez le fichier que j'ai mis a dispo le f894009 18 déc. 2015 à 17:05

Je vais ajouter la modif de masque colonne(s) de michel_m (merci de l'infos) et voir pour la mise en forme des cellules, y a surement kake chose a faire (deux boucles gastronomiques) et epithete qu'il y a plus a gratter

Renseignement pris, c'est "Bar Simpson" pas "Homer Simpson"
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251
Bonjour Julia, F89

F89, tu bosses sur quelle macro , histoire de ne pas partir dans tous les coins ?
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,

Sub PLANQ1SSRNUT()
et
Sub affichnut()


voila ou j'en suis:: https://www.cjoint.com/c/ELtkrHpPQjf
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Bonjour les gars
merci à vous .....
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,

f894009 - 19 déc. 2015 à 11:18 26s avec "Bart"
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251
Bonsoir

un autre machin pour faire patienter
temps pratiquement identique avec ou sans barre de progression
env 5,5 secondes pour remplir 256000 cellules texte

http://www.cjoint.com/c/ELtqiIgTb6O

Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,

Suis interese, donc je prends, mais 17s pas 5,5. Je vais adapter la chose dans le fichier de Julia Namor pour voir
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251 >
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021

bonjour
chez moi c'est bien 5,5 4go de RAM, proc 2 core....
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563 >
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021

Bonjour,

PC portable: Core I5-3210M, 8go RAM et 17s !!!!!!!

Perf en cours d'execution: deux Cores, 4 Proc logiques, 15% a 1.25 GHz !!!!!!!!!!!
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 251 >
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021

comprend pas...je viens de re-essayer 5,13 et des poussières sur 256000 cellules

bon, on na va pas en faire un drame!
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563 >
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021

Re,

Oui, mais non, car c'est l'ecriture des cellules qui "bouffe" les 10 a 11s et c'est le cas dans le fichier de Julia Namor. Donc je ne pige pas la limitation au niveau processeur

Il faudrait que Julia Namor essai ton fichier pour voir chez elle le temps d'execution
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,
Fichier Julia Namor:

calcul excel en manu:
Sans "Bart Simpson": 8.3
Avec "Bart Simpson": 11.2

c'est quand meme mieux a defaut d'etre top......
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re Michel_m,

en modifiant ton fichier comme suit, perf a peu pres equivalente :
https://www.cjoint.com/c/ELujFAZxdbf
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
Bonjour à tous
Vous avez fait du bon boulot .
Merci f894009 , j'ai adapté les codes optimisés et le GIF d'attente à mon fichier d'origine, tout fonctionne ; les macros s'executent en 13 secondes environ entre l'apparition de Bart et la fin de la procédure.
je trouve cette durée correcte vu le nombre de macros exécutées et..... Bart égaye un peu pendant l'attente .
Mention spéciale pour le regroupement des modules par types: cela permet d'y voir plus clair.

Merci michel: je me garde ta proposition sous la main. Elle pourra me servir ultérieurement pour d'autres traitements ....

Bien cordialement
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,
Je pense qu'il y avait encore 2 a 3 secondes a gratter, mais 13s c'est pas mal. Ok,Ca roule. Bon Noel et bonnes fetes de fin d'annees