Problème avec Barre de Progression, aide expert

[Lex O'Mil]

Bonjour à tous,

Désolé je réitère ma question car j'éprouve des difficultés.
J'ai utilisé une barre de progression trouver dans cet excellent forum.
Le souci est que la barre de progression apparaît dans mon fichier presque de manière décorative, car je n'ai pas su l'adapter à ma tâche.

Je m'exprime surement mal.
Je transmet le fchier et demande vraiment de l'aide.
Car le fichier final avec lequel je travaille pèse plus de 50 Mo et l'attende dure 10 s environ.
Voilà je vou remercie tous d'avance.

Lex.

 

[XanorK]

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

Bonjour,

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

 

[Gexk5]

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

 

[Lex O'Mil]

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

 

[Gexk5]

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

 

[Lex O'Mil]

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.

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