Barre de Progression

[Acnd31]

Bonjour à tous,

Je vous expose mon problème:

J'ai un fichier contenant plus de 55'000 lignes sur 20 colonnes remplient d'informations. Je dois quotidiennement les mettre à jours. Pour cela, j'ai une macro qui fonctionne bien, mais qui dure plus d'une demi heure.

Alors pour me rendre compte de l'avancement, je me suis dis qu'une progressbar avec un petit texte indiquant les articles restants à traiter serait sympa.

Mais voilà, lorsque je lance la macro "pas à pas", tous va bien, mais dés que je la lance en "automatique", la userform se fige, le texte ne se met plus à jour. Donc je ne vois plus l'avancement de la macro.

Quelqu'un a-t'il une idée pour m'aider?

Merci d'avance

Meilleures salutations

 

[Pierrot93]

Re : Barre de Progression

Bonjour acnd

n'aurais tu pas une ligne de code comme ci dessous, au début de ta macro :

Application.ScreenUpdating = False

cette instruction désactive le raffraichissement d'écran...

bonne journée
@+

 

[Acnd31]

Re : Barre de Progression

Bonjour Pierrot,

Alors j'ai essayé avec ta solution, la progressbar, bouge, mais pas le texte.

Merci quand même pour ta réponse.

 

[Pierrot93]

Re : Barre de Progression

Re

sans voir le code utilisé, difficile de t'en dire plus...

@+

 

[Acnd31]

Re : Barre de Progression

Voilà celle que j'utilise pour tester la barre de progression

Public Sub TransfertDonnees()
On Error Resume Next

Application.ScreenUpdating = False

Sheets("Feuil2").Select

Dim i As Long
Dim Val As String
Dim pc
UF1.Show 0
For i = 1 To 10000

pc = Round(((100 / 10000) * i), 0)

UF1.Label1.Caption = "Transfert de : " & i & " Chiffres"
UF1.Show 0
UF1.ProgressBar1.Value = pc
Sheets("Feuil2").Select
Range("A1").Select
Val = ActiveCell.Offset(i, 0).Value

Sheets("Feuil1").Select
Range("A1").Select
ActiveCell.Offset(i, 0).Value = Val
Next i
UF1.Hide
End Sub


Merci de ton aide

 

[Acnd31]

Re : Barre de Progression

Voilà celui que j'utilise pour faire les essais de progressbar

le UF1 est un userform avec une progressbar et un label

merci de ton aide


Public Sub TransfertDonnees()
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Feuil2").Select

Dim i As Long
Dim Val As String
Dim pc
UF1.Show 0
For i = 1 To 10000

pc = Round(((100 / 10000) * i), 0)

UF1.Label1.Caption = "Transfert de : " & i & " Chiffres"
UF1.Show 0
UF1.ProgressBar1.Value = pc
Sheets("Feuil2").Select
Range("A1").Select
Val = ActiveCell.Offset(i, 0).Value

Sheets("Feuil1").Select
Range("A1").Select
ActiveCell.Offset(i, 0).Value = Val
Next i
UF1.Hide
End Sub

 

[Pierrot93]

Re : Barre de Progression

Re

retires cette ligne de code dans tes 2 procédures :

Application.ScreenUpdating = False

@+

 

[Acnd31]

Re : Barre de Progression

Ben toujours le même problème, la progressbar fonctionne, mais le texte ne se met à jour qu'à la fin...

 

[Acnd31]

Re : Barre de Progression

J'ai résolu mon problème. En mettant un userform.repaint, ça marche. le texte ce remet automatiquement à jour.

Merci quand même Pierrot de t'être penché sur mon problème