Une ProgressBar n'est qu'un élément graphique qui va matérialiser la valeur que TON programme lui fournira.
Donc :
1) Il suffit de lui fournir une valeur partant du maxi pour atteindre le mini
If lCompteur < ProgressBar1.Maximum Then lCompteur =lCompteur + 1 ProgressBar1.Value = lCompteur Else MsgBox "Terminé" End If
If lCompteur < ProgressBar1.Maximum Then lCompteur =lCompteur + 1 ProgressBar1.Value = lCompteur Else Timer1.Enabled=False MsgBox "Terminé" End If