Recherche dernière ligne d'une colonne avec import d'information à la suite

Question

J'ai beau retourner le problème dans tous les sens, je bloque ! Voici le sujet : Dans ma colonne AD10 (Ligne 10), je récupère des informations depuis un autre outil, ces informations commencent toutes par SA* A la suite de cette colonne AD, je souhaite retrouver mes informations commençant par EL* Pas de problème pour la macro récupérant les informations, le problème est plus sur se positionner sur la première ligne blanche afin d'enchainer avec la deuxième macro Voici ce que j'ai fait mais ça bloque : Range("AD10:AE20000").ClearContents Call Run("CODA_elementListWithClear", "AD10", "HARMELLE", "3", "SA*", True, False) DoEvents Let NumLigne = 10 Let ColTraite = 30 Cells(NumLigne, ColTraite).Select ActiveCell.End(xlDown).Select Let NumFinLigne = ActiveCell.Row If NumFinLigne = 1048576 Then NumFinLigne = NumLigne End If If NumFinLigne = 10 Then NumFinLigne = 9 End If Call Run("CODA_elementListWithClear", Range(Cells(NumFinLigne + 1, ColTraite)), "HARMELLE", "3", "EL*", True, False) DoEvents Pour les infos en rouge, pas de problème, ça fonctionne, c'est principalement la partie en jaune qui pose problème, du moins c'est ce que je pense... Merci à tous pour votre aide Micka...

MFerrand · Answer

Si tu cesses de te positionner inutilement pour agir, cela cessera d'être un problème ! Cordialement...

MFerrand · Answer

Chaque fois que tu Select une cellule tu déplaces le curseur, c'est toujours une action parasite s'il y a une action qui suit à réaliser. Donc si tu ne bouges plus en éliminant tout Select et donc sans recourir à ActiveCell mais en te contentant d'adresser les cellules visées, ton code sera plus clair, plus fiable et plus rapide... Quant à ta partie en jaune, pas très lisible !!, on ne sait pas ce que tu fais précisément avant et après, mais tu devrais savoir à l'avance si tu excèdes la capacité en lignes de la feuille, et si tu reviens en AD9 tu vas écraser AD10 en faisant +1.....

MFerrand · Answer

En préambule, je t'inciterais à apprendre à utiliser les balises Code pour citer du code dans un post ! Tous les intervenants te sauront gré de leur faciliter la lecture du code. Ceci étant, on n'a pas connaissance du contexte, on ne sait ce que fait ta procédure appelée, on ignore aussi si la macro citée est complète ou ne constitue qu'un fragment, en l'absence d'instructions de déclarations de procédures, donc on ne peut qu'en rester à des idées générales et quelques spéculations... L'élimination des Select, Selection, ActiveCell... de ton code est une recommandation générale qui vaut pour tout code... Dès qu'on trouve un Select dans un code, c'est une scorie d'enregistrement, ou d'imitation de code enregistrée, indice d'un code de qualité douteuse, situation dont il est toujours souhaitable de sortir en s'affranchissant des contraintes liant les instructions à des éléments actifs... J'éliminerais aussi volontiers quelques autres fioritures dont on n'a nul besoin : Call, Run, Let... En ce qui concerne End, il vaudrait mieux utiliser le paramètres xlUp plutôt que xlDown, il réserve moins de surprises... Et ne pas oublier que la première cellule vide est celle qui suit la cellule renvoyée par la propriété. Cordialement...

MFerrand · Answer

Vraiment une manie de vouloir toujours se positionner...

D'après ce que je vois de ton premier appel sur AD10 :

cc = Range("AD" & Rows.Count).End(xlUp) (2).Address

cc est une variable à déclarer en début de procédure, de type String.

Et tu remplaces Range(Cells(NumFinLigne + 1, ColTraite)) par cc dans ton appel.

Ce sera bien analogue au premier appel, dans lequel tu fournis l'argument : "AD10" (soit la référence de cellule sous forme de valeur String).

Ce sera ainsi la même chose, et de plus sans positionnement inutile (et chronophage)

Cordialement.

MFerrand · Answer

Merci du retour, et bonne continuation...