VBA progress bar

Paritec

XLDnaute Barbatruc

• 15 Juin 2013

• #2

Re : VBA progress bar

Bonjour Arpette le forum
pour cela il faut traiter ton incrémentation avec la proportion de chargement, mais sans fichier difficile de t'en dire plus
a+
papou

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 15 Juin 2013

• #3

Re : VBA progress bar

Bonsoir Papou,

merci pour ta réponse, mais ma macro fait 50 MO et appelle d'autres fichiers, donc impossible à poster sur le forum.

Je peux mettre le code.

Merci de ton aide
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 16 Juin 2013

• #4

Re : VBA progress bar

Bonjour Arpette le forum
faute de fichier mets toujours le code je regarderai si je peux m'en sortir avec, mais pas sur enfin donnes le dans un fichier et je regarderai
a+
papou

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 16 Juin 2013

• #5

Re : VBA progress bar

Bonjour Papou, ci-joint un fichier avec le code dans le module1. Il n'y a aucune données. Le code ouvre, des feuilles puis fait des filtres.
Je souhaiterais avoir une barre de progression qui s'affiche quand je lance le traitement.

Merci de ton aide.
@+

 

Pièces jointes

• Fichier Test.xlsm

  370.1 KB · Affichages: 150
• Fichier Test.xlsm

  370.1 KB · Affichages: 140
• Fichier Test.xlsm

  370.1 KB · Affichages: 146

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 20 Juin 2013

• #6

Re : VBA progress bar

Bonsoir à toutes et tous,
après plusieurs consultations sur le site, je ne trouve pas de réponse
Je ne comprend pas pourquoi, en lançant un module je ne peux pas avoir un progress bar alors que le timer me donne le temps d'exécution du module, suivant les données ou du PC utilisé.
Je ne comprend pas la question de Papou qui veut le code ( que je fasse 1+1 = 2 ou rechercheV, si tiiti = toto et que....)
Merci de votre aise,
@+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 20 Juin 2013

• #7

Re : VBA progress bar

Bonjour

Voici une solution
1 variable public et 1 fonction

Code:

Public nbEtape As Integer
Function ETAPE(no, txt)
[H1] = txt
[H2] = String(Int(no / nbEtape * 25), "g")
Application.ScreenUpdating = True
Application.ScreenUpdating = False
End Function

Dans ton code
Tu détermine le nombre d'étapes

Code:

[H1] = "": [H2] = ""
nbEtape = 3

Ensuite, dans le code, tu marque les étapes
ETAPE 1, "Ouverture de GDMOperation.new"

ainsi de suite...¸

En H2, ca te prend une couleur de fond, une couleur de texte et la police Webdings.
J'ai établie la largeur de la colonne H pour 25 caractères. Évaluer dans
[H2] = String(Int(no / nbEtape * 25), "g")


A tester!!!!

 

Pièces jointes

• Arpette.xlsm

  38.8 KB · Affichages: 113

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 21 Juin 2013

• #8

Re : VBA progress bar

Un fichier un peu plus concret.
Avec Combinaison.

J'ai appliquer la progression.

 

Pièces jointes

• combinHabs.xlsm

  109.3 KB · Affichages: 131
• combinHabs.xlsm

  109.3 KB · Affichages: 162
• combinHabs.xlsm

  109.3 KB · Affichages: 147

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 21 Juin 2013

• #9

Re : VBA progress bar

Bonsoir Habitude, j'essaie d'appliquer ton code mais dès le début j'ai une erreur 11 ivision par 0
ici :

Code:

ActiveSheet.[G6] = String(Int(no / nbEtape * 25), "g")

Merci de aide,
@+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 22 Juin 2013

• #10

Re : VBA progress bar

Bonjour

Tu dois d'abord definir le nombre total d'etape sinon il est egale a zero.

Ensuite tu declare les etapes

A relire en #7

 

Vote positif 0 Vote négatif