Discussion :

[vbomars]

Bonjour à tous,

Je souhaiterais mettre en place un userform simple qui mette en évidence les différentes étapes de traitement de ma macro (qui prend environ 10 minutes de traitement, nécessite d'ouvrir plusieurs fichiers, de les refermer et de copier les informations d'un fichier à un autre.

Est-ce que quelqu'un saurait m'aider ? J'imagine que je dois pouvoir placer des balises mais aucune idée de comment coder cela.

Exemple:

Ouverture des fichiers...
Traitement des informations...
Calcul des formules...
Mise en place des TCD...

Et qu'à chaque fois qu'une étape est accomplie, un DONE vienne se rajouter à la fin de la ligne correspondante.

Merci beaucoup pour votre aide par avance !

[Mr Poulpe]

Bonjour,
Avant d'utiliser un userform, tu peux utiliser la status bar de excel (la barre d'information en bas à gauche).

Tu l'utilises comme ça :

Code :

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

Application.StatusBar = "Macro qui tourne"

Et une fois que tu as fini, tu rends la main à Excel avec

Code :

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

Application.StatusBar = False]

Sinon, tu peux juste créer un userform avec une textbox et changer sa valeur à chaque point d'étape de la macro, avec par exemple un

Code :

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

userform1.textbox1.value = "Macro qui tourne"

J'aurais quand même tendance à te conseiller la première solution, elle me semble plus élégante.

Poulpe

[Marc-L]

Bonjour, bonjour !

Lire les règles du forum, en particulier le point IV-M …


Sinon juste comprendre qu'une p'tite procédure traitée en 18 secondes est passée à 48 secondes (donc + 30 s !)
juste en utilisant une barre de progression dans un Userform !

Comme c'est un sujet récurrent, effectuer donc une recherche dans les discussions de ce forum
ou ailleurs, pleins d'exemples sur le net !

Sinon bien moins gourmand est l'affichage dans la barre d'état d'un pourcentage de progression par exemple,
consulter l'aide VBA intégrée concernant la propriété StatusBar …

[vbomars]

@ Mr Poulpe

Merci Mr Poulpe !

Très utile, et rapide qui plus est !

@ Marc-L

C'est bien noté !

J'avais néanmoins bien cherché, il ne s'agit pas d'une barre de progression mais d'un userform qui se mette à jour en fonction des étapes de la macro, Mr Poulpe m'a donné la réponse un peu plus tôt !

Merci pour votre temps et vos lumières en tout cas.

[vbomars]

Re bonsoir,

Même après avoir cherché, je ne trouve pas de solution à mon problème...

Voici mon code:

Code :

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

1
2
3
4
5
6
7
    UserForm.Show
    Application.ScreenUpdating = False
 
    UserForm.TextBox2.SetFocus
    UserForm.TextBox2.Enabled = True
    UserForm.TextBox2.Locked = False
    UserForm.TextBox2.Text = "Essai"

Ces commandes ne fonctionnent pas, j'ai essayé aussi avec Value à la place de .text sur la dernière ligne, rien n'y fait, mon textbox reste vide...

Auriez-vous la solution ?

Merci !

[Mr Poulpe]

Je pense que le screenupdating = false empêche de voir le contenu de la textbox. Essaie peut être en le laissant activé.

Poulpe

[Marc-L]

Auriez-vous la solution ?

Parfois il est nécessaire de faire suivre l'affichage ou les modifications de l'UserForm par l'instruction DoEvents …

Maintenant s'il s'agit d'un affichage par défaut, c'est bêta d'effectuer une modification par code,
il suffit juste de le paramétrer directement dans l'UserForm !


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

regarde la pièce jointe!