Bonjour,
je vous sollicite une nouvelle fois car je suis confronté à un problème sur lequel je ne parviens pas à trouver de solution.
Le code ci-dessous est chargé de copier coller dans une autre feuille les lignes qui ont la colonne A vide puis de supprimer les lignes de la feuille d'origine ensuite :
Le code fonctionne bien mais le problème est que le nombre de lignes de la feuille est variable car il s'agit d'un import d'un fichier CSV.
Dans le code actuel, la boucle va uniquement jusqu'à la ligne 40 mais il peut y en avoir X fois plus de lignes.
J'ai fait le test avec un fichier de 800 lignes en remplaçant
par
mais le problème est que le temps de traitement est long et qu'en plus je n'ai pas toujours le même nombre de lignes dans ma feuille1...
Ma question est donc de savoir comment je peux faire pour que ma boucle tienne compte du nombre de lignes dans ma feuille 1 qui est donc variable.
Est-il possible de modifier ce script pour qu'il s'exécute plus rapidement lorsqu'il y a beaucoup de lignes?
Merci de votre aide.
Bonne journée.
Grhum29
je vous sollicite une nouvelle fois car je suis confronté à un problème sur lequel je ne parviens pas à trouver de solution.
Le code ci-dessous est chargé de copier coller dans une autre feuille les lignes qui ont la colonne A vide puis de supprimer les lignes de la feuille d'origine ensuite :
Code:
j = 1
For i = 2 To 40
'de la deuxième ligne à la XXX
If Sheets("Feuil1").Cells(i, 1) = "" Then
Sheets("Feuil1").Select
Rows(i).Copy
Sheets("Feuil2").Select
Cells(j, 1).Select
ActiveSheet.Paste
j = j + 1
End If
Next i
Sheets("Feuil1").Select
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Le code fonctionne bien mais le problème est que le nombre de lignes de la feuille est variable car il s'agit d'un import d'un fichier CSV.
Dans le code actuel, la boucle va uniquement jusqu'à la ligne 40 mais il peut y en avoir X fois plus de lignes.
J'ai fait le test avec un fichier de 800 lignes en remplaçant
Code:
For i = 2 To 40
Code:
For i = 2 To 800
Ma question est donc de savoir comment je peux faire pour que ma boucle tienne compte du nombre de lignes dans ma feuille 1 qui est donc variable.
Est-il possible de modifier ce script pour qu'il s'exécute plus rapidement lorsqu'il y a beaucoup de lignes?
Merci de votre aide.
Bonne journée.
Grhum29
Pièces jointes
Dernière édition: