Barre de Progression

Pierrot93

XLDnaute Barbatruc

• 17 Janvier 2009

• #2

Re : Barre de Progression

Bonjour acnd

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

Code:

Application.ScreenUpdating = False

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

bonne journée
@+

 

Vote positif 0 Vote négatif

A

Acnd31

Guest

• 17 Janvier 2009

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Janvier 2009

• #4

Re : Barre de Progression

Re

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

@+

 

Vote positif 0 Vote négatif

A

Acnd31

Guest

• 17 Janvier 2009

• #5

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

 

Vote positif 0 Vote négatif

A

Acnd31

Guest

• 17 Janvier 2009

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Janvier 2009

• #7

Re : Barre de Progression

Re

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

Code:

Application.ScreenUpdating = False

@+

 

Vote positif 0 Vote négatif

A

Acnd31

Guest

• 17 Janvier 2009

• #8

Re : Barre de Progression

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

 

Vote positif 0 Vote négatif

A

Acnd31

Guest

• 17 Janvier 2009

• #9

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

 

Vote positif 0 Vote négatif