Userform d'attente avec image GIF

Résolu/Fermé
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 17 déc. 2015 à 15:54
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 21 déc. 2015 à 11:17
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

16 réponses

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
17 déc. 2015 à 20:20
oui oui !!!!!avec votre fichier tout est bon ; l'image est animée du début à la fin des macros
2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2015 à 07:29
Bonjour,

Si vous pouvez mettre votre fichier a dispo, je pourrai voir ce qui cloche
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 déc. 2015 à 16:43
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
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
17 déc. 2015 à 17:57
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 déc. 2015 à 18:49
Re,

Et avec le fichier que j'ai modifie, Homer cour un peu ???
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 déc. 2015 à 08:29
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

0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2015 à 09:28
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
18 déc. 2015 à 09:54
oui mais faudrait voir le code réel....
je te laisse le bébé
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
18 déc. 2015 à 11:12
Re,

Ok, j'attends le mouflet
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
18 déc. 2015 à 13:27
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 déc. 2015 à 13:33
Mettre le fichier en .zip en non en .7z

Merci
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 18/12/2015 à 14:20
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2015 à 17:05
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+
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
18 déc. 2015 à 17:22
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 déc. 2015 à 18:05
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
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
18 déc. 2015 à 18:08
Bien vu !!!!!!

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

merci
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 19/12/2015 à 07:53
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"
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 déc. 2015 à 09:13
Bonjour Julia, F89

F89, tu bosses sur quelle macro , histoire de ne pas partir dans tous les coins ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 déc. 2015 à 11:18
Bonjour,

Sub PLANQ1SSRNUT()
et
Sub affichnut()


voila ou j'en suis:: https://www.cjoint.com/c/ELtkrHpPQjf
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
19 déc. 2015 à 10:41
Bonjour les gars
merci à vous .....
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 déc. 2015 à 11:19
Re,

f894009 - 19 déc. 2015 à 11:18 26s avec "Bart"
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 déc. 2015 à 17:10
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

0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 déc. 2015 à 18:54
Re,

Suis interese, donc je prends, mais 17s pas 5,5. Je vais adapter la chose dans le fichier de Julia Namor pour voir
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
20 déc. 2015 à 08:37
bonjour
chez moi c'est bien 5,5 4go de RAM, proc 2 core....
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
Modifié par f894009 le 20/12/2015 à 08:52
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 !!!!!!!!!!!
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
20 déc. 2015 à 09:04
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!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
Modifié par f894009 le 20/12/2015 à 09:17
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2015 à 09:39
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......
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2015 à 10:33
Re Michel_m,

en modifiant ton fichier comme suit, perf a peu pres equivalente :
https://www.cjoint.com/c/ELujFAZxdbf
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
21 déc. 2015 à 10:42
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 déc. 2015 à 11:17
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
0