arrêter boucle

Re : arrêter boucle

Bonjour,

comprends pas trop ton code, mais pour sortir d'une boucle do, il faut utiliser :


pour info, tous les "select" et "activate" ne sont pas nécessaire pour agir sur les objets en vba...

bon après midi
@+

Re : arrêter boucle

Bonjour pierrot, bonjour julfe,

Je te proposes ca, vu que je n'ai pas d'exemple je n'ai pas pu voir si cela fonctionnait

Re : arrêter boucle

Bonjour Pierrot
Ça m'aurait étonné aussi que mon code soit propre. Je vais devoir l'expliquer pour qu'on puise m'aider je pense.

Mes données :
Ma colonne est constituée de données d'un format se rapprochant vaguement des battement cardiaques (état stable ... perturbation .... état stable ...perturbation ...).
Il y a environ une vingtaine de "perturbations" dans ma liste, et je sais que cette "perturbation" correspond à une valeur supérieure à 1000 et dure 640 lignes.

Mon objectif :
Je cherche à récupérer ces 20 perturbations pour les arranger dans une nouvelle feuille du document en 20 colonnes consécutives pour traitement ultérieur.

Mon approche :
Donc je demande à ma macro de descendre de ligne en ligne jusqu'à rencontrer une valeur supérieure à 1000, sélectionner les 640 lignes suivantes, les copier/coller dans une nouvelle feuille, revenir à la liste de données en bas des 640 lignes précédemment sélectionnées et recommencer jusqu'à la fin de la liste de données.

C'est là que la bât blesse, je n'arrive pas à arrêter cette macro qui tourne jusqu'à la fin du tableau même quand il n'y a plus de données.

Que puis-je faire ?

Re : arrêter boucle

Je te remercie de m'aider et je ne m'attendais pas à ce que mon code soit propre, mais je vais devoir expliquer mon bazar si je veux être compris je pense.

Mes données :
Sur une colonne, un peu comme une série de battement cardiaque (état stable .....perturbation .... état stable ....perturbation ....). Il y a en tout une vingtaines de perturbations séparées d'au moins 640 lignes. Chaque perturbation correspond à une valeur supérieure à 1000 (pic et initialisation de la perturbation).

Mon objectif :
Récupérer les 640 lignes de chacune de ces perturbations pour les ranger dans autant de colonnes dans une unique nouvelle feuille du classeur.

Mon approche :
Ma macro
- descend ligne par ligne jusqu'à repérer une valeur supérieure à 1000,
- sélectionne les 640 lignes suivantes,
- les copie/colle dans une nouvelle feuille qu'elle renomme,
- revient à la fin de la sélection précédente, et recommence.

Mon problème :
La macro tourne même après qu'il n'y ait plus de données dans la colonne et descend jusqu'en bas de tableau avant d'afficher un message d'erreur. Or une fois ces données organisées je vais lancer un traitement dessus, à cause du message d'erreur je ne peux pas.

Je pense que je devrais l'organiser différemment mais je ne trouve pas la bonne approche.

Voilà, j'espère être plus clair, merci de me filer un coup de main je craque un poil là. 😛

Re : arrêter boucle

OK désolé pour le doublon et le temps de bidouiller je n'avais pas vu la réponse de GBI.

@GBI je ne comprends pas à quoi servent tes 2 lignes :
derlig = Sheets("Nom de ta feuille").Range("A65536").End(xlUp).Row
derlig = Sheets("Nom de ta feuille de destination").Range("A65536").End(xlUp).Row

Si c'est la manière de définir ce que doit être la dernière ligne ça ne va pas coller car ce n'est pas toujours la même dans mes différents fichiers. Je cherche à ce que la macro s'arrête à la première cellule vide rencontrée.

Mais sinon tu m'ouvres des perspectives de codage propre, je t'enr emercie.

Re : arrêter boucle

Re, bonjour GBI

sinon peut être modifier la condition de sortie ainsi :


@+

Re : arrêter boucle

julfe à dit:

ce n'est pas toujours la même dans mes différents fichiers.

Cliquez pour agrandir...

Ces lignes de code permettent justement de rechercher la dernière ligne remplie très rapidement la premiere dans la feuille de données la seconde dans ton fichier de destination

Un exemple nous aiderait à mieux t'aider
Cdt

Re : arrêter boucle

Yeah !
Merci GBI (j'ai compris ce que tu voulais dire, je vais m'en resservir par la suite) et Pierrot93, ça marche et comme d'habitude c'était simple comme truc.

Petit détail qui ne pose pas de problème, alors que mes données s'arrêtent à la ligne 15360, la macro s'arrête à la ligne 15859. Étrange, mais ça ne m'embête pas plus que ça.

à +