supprimer des lignes dans un fichier excel

[Mimidoc1]

Bonjour tout le monde,

Je suis debutant en VBA excel. J'essaie de developper une petit application. Je me demandais si quelqu'un pourrait me donner un petit coup de main. J'ouvre un fichier csv (une dizaine de colonnes) dans ecxel et je me retrouve avec 990000 lignes. Je souhaiterais simplifier mes données en supprimant par exemple 4 lignes sur 5. Quelqu'un pourrait il m'indiquer comment je peux realiser une telle operation.

Merci d'avance.

Mimidoc1

 

[JNP]

Re : supprimer des lignes dans un fichier excel

Re Mimidoc1 🙂,
Ce serait bien de déjà regarder les réponses à tes questions et d'y répondre avant d'ouvrir une nouvelle discussion...
https://www.excel-downloads.com/threads/copie-de-feuille-excell-avec-un-nom-donne.117146/
Maintenant, tu veux supprimer 4 lignes sur 5. Lignes vierges, ou décision aléatoire ?
A te lire 😎

 

[Mimidoc1]

Re : supprimer des lignes dans un fichier excel

Bonsoir JNP,

J'ai effectivement lance une discussion sur le forum concernant un probleme que je rencontrais avec excel. Suite a ta reponse (je t'en remercie), j'ai pu debloquer ce premier probleme. Ayant rencontre un second probleme independant du premier, j'ai prefere ouvrir une nouvelle discussion plutot que de reutiliser la discussion initiale. J'espere que ceci ne pose pas de probleme.

Revenons a nos moutons. Je souhaite reduire la taille de mon fichier excel qui est trop gros a mon gout (deux colonnes, plusieurs miliers de lignes). Pour ce faire, je pensais calculer la moyenne sur les n (5 ou 10)premiers points de chaque colonne puis sur les n suivants et ainsi de suite jusqu'a atteindre la fin de mon fichier. Je pensais stocker les valeurs obtenues sur deux autres colonnes en vue de leur utilisation.

PS1: La longeur des fichiers peut varier.
PS2: j'ai joint un echantilon de fichier type

J'ai mis un echantillon representatif du fichier

Comment puis-je m'y prendre pour faire ceci "proprement".

Merci d'avance pour vos reponses, Mimidoc1

 

[JNP]

Re : supprimer des lignes dans un fichier excel

Bonsoir Mimidoc1,
Tu as très bien fait d'ouvrir une nouvelle discussion, mais il est bien de clôturer les dicussions ouvertes...
Pour ton nouveau problème

Sub Réduction()
Dim I As Double
Dim J As Double
I = 1
While Cells(I, 1) <> ""
J = Replace(Cells(I, 1), ".", ",")
Cells(I, 1) = J
J = Replace(Cells(I, 2), ".", ",")
Cells(I, 2) = J
I = I + 1
Wend
I = 1
While Cells(I, 1) <> "" And Cells(I + 4, 1) <> ""
Cells(I, 1) = (Cells(I, 1) + Cells(I + 1, 1) + Cells(I + 2, 1) + Cells(I + 3, 1) + Cells(I + 4, 1)) / 5
Cells(I, 2) = (Cells(I, 2) + Cells(I + 1, 2) + Cells(I + 2, 2) + Cells(I + 3, 2) + Cells(I + 4, 2)) / 5
Range("A" & I + 1 & ":B" & I + 4).Delete Shift:=xlUp
I = I + 1
Wend
End Sub

devrait aller dans le sens que tu souhaites.
Bonne soirée 😎