Barre de progression

Hello tout le monde,

Je suis actuellement en train de coder une macro relativement longue à s’exécuter, et j'aimerais savoir si le délicieux langage qu'est le VBA permet d'afficher une barre (verte si possible, sinon pas grave) qui se remplirait au fur et à mesure que le programme. (Qui arriverait a 100 % lorsque le programme se termine). Je ne peux malheureusement pas vous partager de fichier pour des raison de confidentialité.

Si quelqu'un peut m'aider, c'est cool

Bjr,

en VERT et contre tout ....

Merci, vraiment un gros gros gros merci, t'es un monstre !!!

Mais puisqu'en j'en suis à t’embêter, le problème que j'ai maintenant c'est d'exécuter ta macro en même temps que la mienne. La barre de chargement doit indiquer le nombre de temps avant la fin de l'autre programme (ou une estimation que j'aurais rentrée "en dur").

Donc si mon bouton pouvait déclencher les 2 macros en même temps, sans que remplir la barre n'entre en conflit avec l'exécution de la mienne, ça serait ouf !

Il n'est pas "que" de moi, mais c'est un module que j'aime bien et ai déjà souvent utilisé !

Copie la feuille BarreProgression et le module ModBarreProgression intégralement

Pour l'intégration, il y a quelques consignes ici :

Sub Votre_Routine()

    timedebut = Now()

    Application.ScreenUpdating = False
    BarreProgression.Show vbModeless

    ' à customiser ==================================
    BarreProgression.Caption = "test"

    For compteur = 0 To 100 Step 5
        BarreDeProgression compteur / 100
        Application.Wait (Now + TimeValue("0:00:01"))
    Next
    ' ===============================================

    Unload BarreProgression

    MsgBox ("Terminé en " & Format((Now() - timedebut), "n' ss''") & " !")

End Sub

donne un titre

BarreProgression.Caption = "test"

trouve un paramètre pour remplacer ce compteur

BarreDeProgression compteur / 100

et si tu as 2 macros qui se suivent, répète alors la partie customisée avec un second titre et un second compteur

si tu es perdu, passe ton fichier

je reformule ...

au début de ta macro, tu mets :

Application.ScreenUpdating = False
BarreProgression.Show vbModeless
BarreProgression.Caption = "test"

dans la boucle :

BarreDeProgression compteur / 100

remplace compteur par TA valeur de progression recalculée (de 1 à 100)

à la fin :

Unload BarreProgression

C'est nickel, merci beaucoup !

je pensais te dresser une statue, ou les hommes et les femmes viendraient t’idolâtrer durant les siècles à venir, alors, tu la préfère en marbre ou en ivoire ?

En vrai c'est sublime, merci

Holà, je reste modeste

un code c'est comme un pot de yaourt, on le fait toujours à partir d'un exemple glané que l'on enrichit

Holà, je reste modeste

un code c'est comme un pot de yaourt, on le fait toujours à partir d'un exemple glané que l'on enrichit

Je te volerais cette expression, c'est obligé !

Salut à Steelson,

Excusez moi je sais que la discussion est bouclée depuis plus d'un an,

mais ce sont mes recherches concernant l'intégration d'une barre de

progression à une macro qui m'a ramené ici.

J'ai bien l'air que la solution que vous avez proposé à Just2test a l'air

de lui convenir! Et il se fait que j'ai presque le même soucis.

Tout ce que je voudrais faire c'est c'est intégrer cette macro qui vide les

cellules de trois (03) feuilles de calcul dans votre claseur de barre de

progression:

Sub Effacer()

Application.screenupdating=False

Feuil1.Range("A2:O1200").ClearContents

Feuil2.Range("A2:N1200").ClearContents

Feuil3.Range("A2:H1200").ClearContents

Application.screenupdating=False

End sub

Comme l'exécution de la macro risque de prendre du temps, je souhaite

pouvoir visualiser l'état d'avancée grâce à la barre de progression. Mon seul

problème est que je ne sais pas où mettre mon code et dans quel évenement

le lancer. Je précise que je suis un gros bricoleur en VBA, la plupart de mes

codes, je les gagne sur internet et ensuite les adapte. Mais pour ce qu'il est

de la barre de progression, cela fait des jours que je galère.

J'espère pouvoir enfin voir le bout du tunnel. Merci d'avance en tout cas!

OK, j'ai mis entre

'##############################

et j'ai ajouté une tempo pour que tu voies la barre car sinon la macro est tellement rapide qu'on ne la voit pas !

les éléments importants !

et ajouter les modules qui conviennent (il ne faut rien y changer)

87projet-blablabla.xlsm (367.71 Ko)

Steelson

T'es un champion! Tout ce que j'attendais depuis plusieurs jours.

Je vais prendre un café et je reviens continuer mon projet!

Merci infiniment!

Rechercher des sujets similaires à "barre progression"