Integrer une barre de progression dans un code

[THIERRY35]

Bonjour,

bien qu'elle ne soit pas nécessaire (c'est juste pour comprendre ), je souhaite intégrer une barre de progression dans le code VBA ci-après, mais je n'arrive pas à le mettre au bon endroit !!
Si quelqu'un peux m'aider.


Code barre progression :
Sub Attente()
F_BarreAttente.Show
F_BarreAttente.Caption = "20%"
F_BarreAttente.Label1.Width = 20
DoEvents
For a = 1 To 100000000: Next a
F_BarreAttente.Caption = "60%"
F_BarreAttente.Label1.Width = 60
DoEvents
For a = 1 To 100000000: Next a
F_BarreAttente.Caption = "100%"
F_BarreAttente.Label1.Width = 100
DoEvents
For a = 1 To 100000000: Next a
Unload F_BarreAttente
End Sub


Code VBA, installé dans une combobox liste déroulante

Private Sub Worksheet_Activate()
ComboBox2.Value = "Sélectionner une filiale"
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized

End Sub
Private Sub ComboBox2_Click()
Sheets(ComboBox2.Text).Select
End Sub

Private Sub ComboBox2_DropButtonClick()
ComboBox2.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "FILIALE 1" Or Sheets(i).Name = "FILIALE 2" Then
ComboBox2.AddItem Sheets(i).Name
End If
Next
End Sub

Ci joint fichier

Merci

A +

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,

as-tu paramétré Excel pour qu'il accepte les macros

Pour la version 2003, cliquer sur "Outils"......... "Marcos".............." Sécurité" , onglet " Niveau de sécurité"

à+
.

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

C'est ok de ce côté, merci.