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 +

 

[jp14]

Re : Integrer une barre de progression dans un code

Bonsoir

Un exemple de barre de progression.

JP

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Bonjour,

merci pour cette réponse, je garde ton code pour une autre utilisation.

Mais je souhaiterais garder la structure de présentation d'origine de mon fichier actuel et utiliser le code que j'avais initialement retenu.

Si il est possible de m'aider comme décrit dans mon 1er post.

A +

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Bonjour à nouveau le forum,

plus personne pour me dépanner ... !!! pourtant c'est la dernière touche
à un nouveau fichier qui fonctionne grâce au forum et à mes discussions précédentes.

Si donc quelqu'un peut m'aider à intégrer un code de progress bar, comme
précisé dans mon 1er post ça me permettrait de conclure en beauté ce projet.

Merci

A +

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Bonjour Thierry,

vois si cela te convient
à+
Philippe
.

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Bonjour phlaurent55,

merci de ton aide et d'une réponse si rapide mais j'ai un message d'erreur (que je n'avais jamais vu auparavant d'ailleurs) :

"Erreur de compilation : Projet ou bibliothèque introuvable".

J'ai enregistré le fichier à tout hasard sur le disque dur de mon ordi, mais le bug persiste.

As tu le même problème ?, je travaille sur Excel 2007

Merci

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,

autre façon de le faire via usf

essaie et commente
à+
Philippe

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Merci encore,

mais désolé d'être si bête sur ce coup là... mais j'ai toujours
le même message d'erreur ... et je ne comprens pas !

A +

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,

mais j'ai toujours le même message d'erreur ...

sur quelle ligne as-tu le message ?

à+

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Sur la ligne :

Private Sub ComboBox1_DropButtonClick()

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,

à essayer

à+
Philippe

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

Désolé, mais la liste déroulante n'est plus accessible aprés l'installation de ton code (à mon avis en tout cas).

Merci

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,
Ok

j'ai mis la procédure dans WorkBook Open

à+

 

[phlaurent55]

Re : Integrer une barre de progression dans un code

Re,
une autre façon de faire

à+

 

[THIERRY35]

Re : Integrer une barre de progression dans un code

BOnjour et merci mais désolé la macro plante dés l'ouverture du fichier.

Dois je faire une manip particulière pour que ton code fonctionne ?

A +