ecrire variable dans une progress bar

**noakiss** · 01/04/2008, 15h52

Voila j'ai juste une petite question, est il possible d'écrire une variable dans une progressbar en VBA? Parce que dans mon code les seules options que j'ai c'est pbar.ouvrir pbar.fermer pbar.avancer pbar.couleurFond pbar.Minuterie pbar.CouleurComplementaire et pbar.ChoixCouleur.
Or j'ai vu que certaines personnes utilisaient pbar.Value = ...
Seulement j'ai essayé mais ca me met un message d'erreur...

Je voulais préciser que la variable que je veux afficher est le numero de la ligne traité car en fait le traitement est long , ca permetterai à l'utilisateur de savoir que l'ordianteur n'a pas planté, et s'il plante, grace a cette variable il retrouverai facilement la ligne dans le fichier exel qui n'est pas passée.

**hellmaster78** · 02/04/2008, 12h48

Pour ta pbar, si tu utilises le VBA, tu as effectivement des propriétés non affichés dans "l'aide à la frappe" à savoir :

Pbar.Max : Valeur maximum à donnée à ta progress bar
Pbar.Min : Valeur minimum

Le Pbar.value fonctionne normalement...

**noakiss** · 02/04/2008, 12h51

Oui je suis bien en VBA. Je vais tester le pBar.Max ca serai super que ca marche.Pour le pBar.value c'est sur ca ne marche pas

**noakiss** · 02/04/2008, 12h57

Ah ben nan aparament ca ne marche pas le Pbar.Max, ca me met une erruer et ca revient sur mon code

**hellmaster78** · 02/04/2008, 13h12

Sisi, je t'assure que ça marche, je l'utilise actuellement dans 3 applications qui sont en production depuis plusieurs mois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
 Me.pbar.Min = 1
 Me.pbar.Value = 1
 Me.pbar.Max = rs_load.RecordCount + 1 'rs_load est un recordset
 
While Not rs_load.EOF
            'TRAITEMENT
 
            rs_load.MoveNext
            Me.pbar.Value = Me.pbar.Value + 1
        Wend

Et cela fonctionne parfaitement

**noakiss** · 02/04/2008, 14h10

ben écoute je ne comprend pas il me met le message membre de méthode ou de données introuvable...

**hellmaster78** · 02/04/2008, 14h24

Un peu vague tout ça, tu n'as pas un bout de code ^^ ?

**noakiss** · 02/04/2008, 14h30

je déclare ma barre de progression comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Pbar As New BarreDeProgression

ensuite je l'ouvre comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pbar.Ouvrir

Puis je l'initialise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pbar.Minuterie 0

et enfin je teste ce que tu me dit avec une valeur quelconque pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pbar.Max = 570

J'ai essayé de cette facon puis en metant Me... ca donne la même chose

**hellmaster78** · 02/04/2008, 15h50

Ha d'accord. Je ne fais pas ça du tout.

Quand tu es sur ton formulaire, en mode création, vas dans le menu : Insertion=> Contrôles ActiveX

Et Sélectionnes "Microsoft progressBar control 6.0"

Celle-ci va apparaître sur ton formulaire. Tu n'as plus qu'à lui donner un nom, et l'utiliser dans ton code (plus besoin de déclaration, tu l'utilises directement dans le code).

En mode création, si tu double-cliques dessus, tu peux également modifier certains paramètre (apparence, ect.)

Voilouu

De plus