paramétrer une progressbar

[cabsen]

Bonjour le forum,

Mon problème du jour est le suivant :

Je souhaite paramétrer une barre de progression en fonction de l'avancement du traitement d'un nombre de cellules connu.

L'exemple que j'ai trouvé et que je joins provient du site microsoft et fonctionne bien (phénomène rare sous Excel X pour macintosh 😉). Il génère des nombres aléatoires dans un nombre de cellules fini et ajuste l'affichage de la barre de progression.

Dans mon cas, un fichier Excel réalise la synchronisation de 19198 cellules entre deux fichiers de structures identiques. Cette opération prend 2 minutes 21 secondes sur ma station de travail mais peut très bien varier en fonction de la mémoire disponible sur d'autres postes.

Je cherche comment remplacer le compteur du fichier d'exemple (qui compte des boucles) par un autre qui compterait les cellules sélectionnées depuis le début du processus de synchronisation.

Mon fichier travaille ainsi :
• mise à jour de 10 cellules sur une page d'accueil
• mise à jour de 369 cellules sur 52 feuilles semaines (52 boucles For i … Next i)

Je suppose que j'ai besoin d'une variable "n" qui passerait par les états suivants : 10, 379, 748… 19198 au fur et à mesure du travail et d'une formule de la forme 100 * n / 19198 pour mettre à jour ma barre de progression ?

Si quelqu'un voit une solution, je lui serais fort redevable 🙂

D'avance merci de m'avoir lu !

 

[cabsen]

Re : paramétrer une progressbar

Bonjour le fil,

J'ai intégré les macros "Array UBound" dans mon fichier et j'obtiens l'alerte suivante :

Erreur d'exécution '9':
Indice en dehors de la plage

N'étant pas familiarisé avec la fonction UBound, j'ai du mal à interpréter le point d'arrêt sur la ligne Wks

For n = 0 To UBound(acopier) - 1
Workbooks("source.xls").Sheets("Sem " & i).Range(acopier(n)).Copy Destination:=Workbooks("version_new.xls").Sheets("sem" & i).Range(vers(n))
Next n

Je vais avoir besoin de vos lumières.

Merci 🙂

 

[pierrejean]

Re : paramétrer une progressbar

bonjour

A verifier:

"source.xls"
"Sem " & i
"version_new.xls"
"sem" & i

pour s'assurer que l'orthographe est conforme a celle des fichiers
Les fichiers source (ou Source) et version_new doivent etre ouverts

a te lire

 

[cabsen]

Re : paramétrer une progressbar

Merci pierrejean,

C'était l'espace dans

"sem "

qui posait problème !

avec

"sem"

tout marche à merveille.

Merci beaucoup

 

[cabsen]

Re : paramétrer une progressbar

Bonsoir le fil !

Alors, nouvelle question 🙂

La fonction "array" possède-t-elle une limite dans son nombre d'arguments ? Car le dernier bloc "S23;W47" n'est pas transféré lors du processus de copie ?

 

[cabsen]

Re : paramétrer une progressbar

Bonjour,

J'ai fragmenté le bloc "S23;W47" en deux de la manière suivante :

… "S23:W35", "S26:W47") dans la variable "acopier"

et en modifiant

… "S23", "S36") dans la variable "vers"

Je n'ai pas plus de succès, le dernier bloc "S36" n'est pas copié vers le fichier de destination alors que les autres blocs de la même fonction Array ne posent pas de problème…

Si quelqu'un a une petite idée sur ce qui pourrait être la cause de ce problème, je suis prêt à essayer.

Merci !

 

[pierrejean]

Re : paramétrer une progressbar

bonjour cabsen

Accepte mes excuses et modifie:

For n = 0 To UBound(acopier)
 
au lieu de 
 
For n = 0 To UBound(acopier[COLOR=blue][COLOR=black])[/COLOR]-1[/COLOR]

 

[cabsen]

Re : paramétrer une progressbar

Merci pierrejean,

Je venais à l'instant d'installer les compléments excel pour avoir accès à l'aide VBA : ce "-1" m'intriguait un peu 😉

En tout cas, merci mille fois, Array me faisait peur depuis toujours et je commence maintenant à l'apprivoiser en l'adaptant à d'autres fichiers. Le gain de temps est prodigieux !

Il ne me reste plus qu'à régler mon soucis de barre de progression même s'il est devenu moins "nécessaire" pour le cas présent…

 

[pierrejean]

Re : paramétrer une progressbar

bonjour cabsen

C'est la fonction ubound qui m'a induit en erreur
Je pensais qu'il s'agissait du nbre d'elements d'un tableau
Or c'est l'indice le plus haut
exemple: Si je declare tablo(2 to 10) ubound(tableau) me renverra 10 alors qu'il y a 9 elements dans le tableau
ce qui renvoie a l'eternel probleme des piquets et des intervalles (lol) !!!