Barre de progression

Nonno 94 · 26 Novembre 2012

Bonjour le Forum,

j'ai besoin de votre aide pour me dire pour quelle raison, lorsque dans le fichier joint, la macro ci-dessous est lancée,

Code:

Sub ShowUserForm()
    UserForm1.Show
End Sub

la barre de progression s'affiche avec ce code :

Code:

Private Sub UserForm_Activate()
    UserForm1.Label2.Width = 0
    Call Main
End Sub

et pas avec celui-là :

Code:

Private Sub UserForm_Activate()
    UserForm1.Label2.Width = 0
    Call Insérer        'Main
End Sub

???

Je vous remercie par avance pour vos réponses et vous souhaite un bon après-midi.
Cordialement.

Nonno 94.

ERIC S · 26 Novembre 2012

Re : Barre de progression

Bonjour

je ne comprends pas trop ta question, dans insérer tu ne fais rien relativement à la barre de progression

dans main :

For r = 1 To RowMax
For c = 1 To ColMax
Cells(r, c) = Int(Rnd * 1000)
Counter = Counter + 1
Next c
PctDone = Counter / (RowMax * ColMax)
UpDateProgressBar PctDone
Next r

jpb388 · 26 Novembre 2012

Re : Barre de progression

Bonjour à tous
prendre initialize au lieu de activate
et ne pas oublie de supprimer le unload de la routine inserer
a+
jp

Nonno 94 · 26 Novembre 2012

Re : Barre de progression

Bonjour Eric S et merci d"avoir répondu.

En fait je souhaite créer une barre de progression qui s'affiche lors de l'enregistrement, la copie et la fermeture de mes fichiers; procédure relativement longue dont j'aimerais suivre la progression.

Le code que j'utilise est le suivant :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)


            Sheets("Cours 3 mois").Visible = False
            Sheets("Objectifs JDF 3 mois").Visible = False

        Sheets("Consensus").Select

       ActiveWorkbook.Save
       
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Edmond\Documents\Médoc (Excel 2003)\R'sIG\Copies et Matrices (Excel 2003)\Copies\Consensus - Potentiels 3 mois Copie.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        'Range("A1").Select

Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Saisissez le mot de passe :", "R'sIG")

                    Dim bonjour As String

    bonjour = MsgBox(prompt:="Le R'sIG vous remercie de votre visite et espère vous revoir bientôt.", Title:="Espace 'Rékia's I G'")
    'décommenter la ligne suivante pour que le programme se termine après l'affichage du message
    'unload me


End Sub

Ma demande est-elle réalisable avec un tel code ?

Nonno 94.

Nonno 94 · 26 Novembre 2012

Re : Barre de progression

Bonsoir jpb388 et merci pour votre réponse.

Si j'en juge par #2 et #3, les Bretons sont déchaînés cet après-midi !!!

J'ai modifié les codes ainsi que vous me l'avez indiqué :

Code:

Private Sub UserForm_Initialize()         'Activate
    UserForm1.Label2.Width = 0
    Call Insérer      'Main'Insérer
End Sub

Code:

Sub Insérer()
'
' Insérer Macro
' Macro enregistrée le 26/11/2012 par Edmond
'

'
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    
    Bonjour
    
    
    Save
    
        'Unload UserForm1
End Sub

mais malheureusement, sans résultat si ce n'est que le UserForm reste affiché.

Nonno 94.

phlaurent55 · 26 Novembre 2012

Re : Barre de progression

Bonjour à tous,

En fait je souhaite créer une barre de progression qui s'affiche lors de l'enregistrement, la copie et la fermeture de mes fichiers; procédure relativement longue dont j'aimerais suivre la progression.

il ne faut pas predre de vue que l'ajout d'une barre de progression va inévitablement allonger la procédure
est-ce le but recherché ?

à+
Philippe

Nonno 94 · 26 Novembre 2012

Re : Barre de progression

Bonjour et merci pour la réponse.

Si ma demande est réalisable avec le code communiqué en #4, j'aimerais bien essayer afin de pouvoir choisir.
Cela me permettra de plus d'apprendre (je pars de très loin comme vous pouvez vous en rendre compte !).

Cordialement.
Nonno 94.

jpb388 · 26 Novembre 2012

Re : Barre de progression

re
il faut appeler votre formulaire soit dans la routine inserer ou bonjour
selon votre convenance
a+
jp

Nonno 94 · 27 Novembre 2012

Re : Barre de progression

Bonjour Jpb388 et merci pour votre réponse.

Voici la modification de code que j'ai apportée sur votre conseil.

Code:

Sub Insérer()
'
' Insérer Macro
' Macro enregistrée le 26/11/2012 par Edmond
'

'
ShowUserForm

    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets.Add
    
    Bonjour
    
    
    Save
    
Unload UserForm1
End Sub

Le résultat, ainsi que vous pourrez le voir dans le fichier joint, n'est malheureusement pas celui attendu.
Ma modification n'est-elle pas la bonne ?

Cordialement.
Nonno 94.

jpb388 · 27 Novembre 2012

Re : Barre de progression

Bonjour à tous
j'ai mis ce qui faut au bon endroit
j'ai moi quand je lance "inserer" les feuilles s'ajoutent et les chiffres s'inscrivent pendant que la barre défile jusqu'à 100

Nonno 94 · 27 Novembre 2012

Re : Barre de progression

Effectivement, "ça marche bien". Bravo.

Dans l'attente, j'ai poursuivi la recherche de nouvelles améliorations.
En voici une que je n'ai pas réussi à réaliser; à savoir l'affichage d'une barre de progression pendant l'enregistrement, la copie et la fermeture de mes fichiers.
Ce traitement dure plusieurs minutes pour certains d'entre eux et j'aimerais pouvoir surveiller son avancement avec cette barre.

Les codes que j'utilise sont dérivés de celui qui figure dans "WorkBook" du fichier joint.
Pensez-vous possible de le modifier pour afficher la barre pendant l'exécution de :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'ShowUserForm

                ActiveWorkbook.Save
                
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Edmond\Documents\Médoc (Excel 2003)\R'sIG\Barre progression Copie.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        'Range("A1").Select
                

Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Saisissez le mot de passe :", "R'sIG")

                    Dim bonjour As String

    bonjour = MsgBox(prompt:="Le R'sIG vous remercie de votre visite et espère vous revoir bientôt.", Title:="Espace 'Rékia's I G'")
    'décommenter la ligne suivante pour que le programme se termine après l'affichage du message
    'unload me


End Sub

Merci pour votre réponse et bon après-midi.
Cordialement.

Nonno 94.

jpb388 · 27 Novembre 2012

Re : Barre de progression

re
non ce n'est pas (selon mes connaissances bien sur)
mais on peut soit :
mettre le curseur en sablier
inconvénient aucun et facile à mettre en place
ou
faire un simulacre de barre qui va défiler pendant un temps déterminer à l'avance,ceci pendant l'enregistrement et ensuite fermer le classeur
inconvénient si l'enregistrement est court il faudra attendre que la barre soit finie
si trop long la barre aura finie mais pas l'enregistrement

Nonno 94 · 27 Novembre 2012

Re : Barre de progression

Merci pour la peine que vous vous donnez pour mes demandes pour le moins inhabituelles si ce n'est "farfelues'.

Concernant les 2 possibilités que vous proposez, j'aimerais essayer les 2 si cela ne vous ennuie pas trop. Cela me permettra de découvrir de nouvelles possibilités d'Excel et peut-être (soyons optimistes) de ......progresser !!

Je m'en remets à vous et vous remercie une nouvelle fois pour votre disponibilité et votre ....patience.

Cordialement.
Nonno 94.

jpb388 · 27 Novembre 2012

Re : Barre de progression

re
voici les classeurs non testé mais normalement fonctionnel (pasfait de chemin identique)
remettre dans le before les parties vertes en service

Code:

'                ActiveWorkbook.Save
'
'    ActiveWorkbook.SaveAs Filename:= _
'        "C:\Users\Edmond\Documents\Médoc (Excel 2003)\R'sIG\Barre progression Copie.xls" _
'        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
'        ReadOnlyRecommended:=False, CreateBackup:=False

Nonno 94 · 28 Novembre 2012

Re : Barre de progression

Bonjour Monsieur le Finistérien sudiste et MERCI pour les 2 solutions proposées que je découvre ce matin à mon retour.

Concernant la solution "barre", celle-ci s'affiche bien en début de traitement pour s'effacer à la fin mais atteint 100 % AVANT le début du traitement et reste à 100 % pendant toute sa durée.
Ce problème est plus facile à observer avec des traitements longs.
Est-il possible de corriger ?
Voir le fichier : "Essai 2.2.3_Barre" joint.

Concernant la solution "curseur", je ne parviens pas à le voir.
De plus lorsque dans le fichier "Essai 2.2.3_Curseur" joint, on clique sur "Non" pour la copie, le fichier se ferme mais Excel continue de "tourner" !!!!

Ma demande apparaît de plus en plus "farfelue" et je crois qu'il serait préférable de se contenter de ce que propose Excel.
Peut-être en jugerez-vous différemment ?
Bonne journée.

Cordialement.
Nonno 94.

Barre de progression

Nonno 94

XLDnaute Occasionnel

Pièces jointes

ERIC S

XLDnaute Barbatruc

jpb388

XLDnaute Accro

Nonno 94

XLDnaute Occasionnel

Nonno 94

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Nonno 94

XLDnaute Occasionnel

jpb388

XLDnaute Accro

Nonno 94

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

Pièces jointes

Nonno 94

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

Nonno 94

XLDnaute Occasionnel

jpb388

XLDnaute Accro

Pièces jointes

Nonno 94

XLDnaute Occasionnel

Pièces jointes

Discussions similaires