Appliquer le code jusqu'à la dernière ligne non vide
Bonsoir la Communauté,
le code fonctionne, par contre avec le "xlDown" Excel calcule pendant 1 minute. Il faudrait qu'il s'arrête à la dernière ligne non vide.
Si l'un de vous à quelques minutes pour une correction
Merciiii
Hello,
Je ne sais pas ce que tu cherches à faire ici :
Range("a1:a" & [s200000].End(xlDown).Row)Le :
[s200000].End(xlDown).Rowsignifie qu' à partir de la cellule S200000 descend jusqu'à ce que tu trouve le contraire de ce qu'il y a dans la cellule S200000 c'est à dire que si la cellule est vide alors descend jusqu'à ce que une cellule soit remplie .... et inversement.
Or dans ton fichier, à partir de cette cellule tu n'as que du vide jusqu'à la dernière ligne de la feuille ... soit la ligne 1 048 576.
Donc ici :
For Each Cel In Range("a1:a" & [s200000].End(xlDown).Row)tu parcours de la ligne 1 à la ligne 1 048 576 X 19 colonnes ...
Je pense que ceci est + adapté :
For Each Cel In Range("a1:a" & [s200000].End(xlUp).Row)Bonsoir,
oui c'est ce que j'avais fait à la base, mais la macro ne traite que la première ligne ??
oui c'est ce que j'avais fait à la base, mais la macro ne traite que la première ligne ??
Si ta colonne S est vide oui, si tu as une valeur par exemple à S100, ça devrait parcourir les celulles A1:A100