Bonjour à tous,
Vous m'avez toujours été d'une grande aide donc je reviens à vous.
Je souhaiterai créer une barre de progression (de chargement) lorsque j'ouvre un classeur Excel.
A l'ouverture de ce classeur, une macro se déclenche et met 7 secondes à se charger.
Ce que je souhaiterai, c'st que l'utilisateur ne croit pas à un bug mais puisse voir une barre de chargement le temps que la macro s'éxécute.
J'ai créé ce petit code montrant ce que je veux faire (Voir ci-joint ou ci-dessous)
Et ce que j'aimerai c'est que lorsque j'affiche ce code, la macro s'exécute en même temps.
C'est pour ça que je n'ai pas pris les méthodes énoncées sur les autres forums, je ne souhaite pas à avoir à cliquer sur "Activer l'userform" pour que l'appli se lance, je souhaiterai que tout soit automatique dès l'ouverture (donc aucun bouton).
Voici le code de la macro d'attente que je souhaite obtenir:
Merci par avance de votre aide
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Sub Macro_chargement() Range("C7").Interior.ColorIndex = 3 Range("C7") = 0 Range("D7").Interior.ColorIndex = 3 Application.Wait Time + TimeSerial(0, 0, 1) Range("E7").Interior.ColorIndex = 3 Range("E7") = 0.2 Application.Wait Time + TimeSerial(0, 0, 1) Range("F7").Interior.ColorIndex = 3 Range("G7").Interior.ColorIndex = 3 Range("G7") = 0.4 Application.Wait Time + TimeSerial(0, 0, 1) Range("H7").Interior.ColorIndex = 3 Range("I7").Interior.ColorIndex = 3 Range("I7") = 0.6 Application.Wait Time + TimeSerial(0, 0, 1) Range("J7").Interior.ColorIndex = 3 Range("K7").Interior.ColorIndex = 3 Range("k7") = 0.8 Application.Wait Time + TimeSerial(0, 0, 1) Range("L7").Interior.ColorIndex = 3 Range("M7").Interior.ColorIndex = 3 Range("m7") = 1 Application.Wait Time + TimeSerial(0, 0, 1) Range("C7:M7") = EmptyCells Range("C7:M7").Interior.ColorIndex = 0 End Sub.
Partager