Problème avec Barre de Progression, aide expert

XanorK

XLDnaute Occasionnel

• 25 Septembre 2006

• #2

Re : Problème avec Barre de Progression, aide expert

Bonjour,

Essaye de mettre le Counter = Counter + 1
apres le next c

 

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 25 Septembre 2006

• #3

Re : Problème avec Barre de Progression, aide expert

bonsoir lex, le forum

J'ai adapté une progress bar trouve sur excelTI a ton fichier, regarde si ca te va!!

attention, j'ai supprimé pas mal de truc dans ta base et une feuille pour que ca ne depasse pas 48ko
@micalement

 

Pièces jointes

• SESAME.zip

  43.2 KB · Affichages: 56
• SESAME.zip

  43.2 KB · Affichages: 55
• SESAME.zip

  43.2 KB · Affichages: 56

Vote positif 0 Vote négatif

L

Lex O'Mil

XLDnaute Nouveau

• 25 Septembre 2006

• #4

Re : Problème avec Barre de Progression, aide expert

Gexk5,
Déjà merci d'avoir pris en considération ma demande.
Petit souci j'ai l'impression que tu as fait un peu la même chose que moi.
En effet il me semble que la barre de progression ne soit pas vraiment adapté au traitement des données.
En effet j'ai l'impression que cela a ralenti le traitement.

Lex

 

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 25 Septembre 2006

• #5

Re : Problème avec Barre de Progression, aide expert

re le forum,lex

Ca depend a partir de quelle action tu veux declencher la progress bar, moi je l'ai mis comme dans ton fichier.
Je n'au pas l'impression que ca ralenti le fichier

@micalement

 

Vote positif 0 Vote négatif

L

Lex O'Mil

XLDnaute Nouveau

• 25 Septembre 2006

• #6

Re : Problème avec Barre de Progression, aide expert

Gexk5,

Justement cela ne tient pas vraiment compte de l'action
au click de la combo du ROME.

Code:

Private Sub ComboBox2_Click()
On Error Resume Next
UserForm1.Show

Dim OngletBassin As String
Dim Rome As String
Dim PlageSource As Range, CellSource As Range
Dim CellCible As Range
Dim c As Byte


If ComboBox1.ListIndex = -1 Then Exit Sub
 

Set CellCible = ActiveSheet.Range("A64")
OngletBassin = ComboBox1.Value
Rome = ComboBox2.Value


With Sheets(OngletBassin)

    Set PlageSource = .Range(.Range("A5"), .Range("A500").End(xlUp))
End With

 

Vote positif 0 Vote négatif