Progressbar

bonjour,

si le goto 1 doit s'exécuter lorsque le test if.... est vérifié, il faut mettre ce goto 1 à la fin de la ligne d'instruction après ....Then
ActiveCell.Offset(i, 0).EntireRow.Delete Shift:=xlUp : goto 1

tel qu'il est dans la macro, il s'exécute tout le temps.

A+

Salut Marc

Non mon goto 1 est après le then et apres le Else sa c normal je pense. Tant que i n'est pas égal a 65535 je retourne a 1
Mais apres le then i garde la meme valeur et apres le else j'ajoute 1 a i
Je ne pense pas me tromper ;-)

En tous les cas merci pour ton aide

@+ sur le forum

VB@D

La boucle For... Next ne servait dans l'exemple que tu as repris, qu'à montrer le déroulement du progressbar, mais aucune action ne lui était associée réellement, c'est pourquoi, avant de reprendre un code tel quel, il est important d'en comprendre le fonctionnement.
Ce que tu fais dans ta macro, c'est une boucle qui couvre la totalité de la colonne, même s'il n'y a que quelques lignes à tester, ce qui est une perte de temps considérable. Il vaut donc mieux déterminer l'étendue réelle de la plage avant de commencer.

Regarde l'exemple que je joins, il reprend le principe de ta macro (sélection de la première cellule de la colonne à tester et suppression des doublons directs de celle-ci).

Remarque : l'utilisation d'un tel progessbar est très jolie, mais c'est aussi une grosse perte de temps. Personnellement quand une action est susceptible de durer, je préfère en annoncer la progression dans le statusbar, ça évite bien des manipulations, c'est beaucoup plus simple et ça va plus vite.

Bonjour ce fil,

Ah ben j'vois que Ti est déjà passé !...lol...bon ben comme j'étais entrain de terminer le prog je le mets quand même ici...c'est presque comme Ti...lol...enfin de toute facon comme je me suis déjà inspiré de son fichier Lien supprimé...la ressemblance n'est pas loin...

Voilà comme çà tu as deux exemples...lol

Tiens c'est bizarre Ti...pourquoi ton Zip est plus lourd que le mien !!!...pourtant c'est pratiquement la même chose

bonjour Veriland et Ti
Quand je telecharge j'ai:
l'objet Progressbar1 n'est pas dispo sur votre machine!!RRRrrrr
comment le rendre dispo
je suis alle faire un tour dans l'ajout de controles mais bon ....rien trouvé
(Windows 95 Ecxel 97)et oui y en a encore!!!!!!!!!!!
bonne journée
Evelynetfrancois

Bonjour Evelynetfrancois et toi le Forum,

...ben oui c'est à cause de ta version 97 qui n'a pas toutes les fonctions disponibles par rapport aux versions plus récentes...

regarde dans VBA dans Outils / contrôles supplémentaire si tu as Microsoft ProgressBar Contôle dans la liste ou quelque chose de semblable...

Pour ce faire, tu te places sur un usrform (dans VBA) et tu actives la boite à outils......ensuite tu fais Outils / contrôles supplémentaire et tu coches Microsoft ProgressBar Contôle...chez moi c'est la version 6.0...tu dois bien en avoir une...mais bon......j'suis pas sûr

p'têt que Ti a d'autres infos...lol

Excel 97, ça fait déjà bien des années que je ne le pratique plus...

Véri, mon fichier est plus lourd (je suppose) parce que j'ai mis une colonne d'exemple de 2000 lignes.

Merci a tous de votre aide

Comme tu me le conseil Ti je vais essayer de définir l'étendu de la plage cellule comme dans vos exemple et on verra si j'ai toujours besoin d'une progressbar.

Je regarde le code et je repose des questions si j'ai des probleme dans ce post

Bye

VB@D