Bonjour à tous,
Débutant en VBA, j'ai un petit problème concernant le traitement d'une immensitées de fichiers.
Pourriez vous m'aider dans la mesure du possible biensur.
J'ai plus au moins 1600 fichiers csv, contenant chacun plus au moins entre 10 et 15.000 lignes.
Mon premier boulot serait le traitement du fichier, pour cela je dois:
- supprimer toute les lignes dont les valeurs dans la colonne B sont inférieur à 1.
- supprimer toute les lignes dont les valeurs dans la colonne C sont supérieure à 200
- supprimer toute les lignes dont les valeurs sont la colonne I sont inférieure à 100
Sachant que la colonne B est un incrément ou chaque ligne correspont à 30 seconde, je voudrais calculé le temps réel dans une colonne P par exemple.
Une fois le fichier traité, celui ci devrait s'enregistrer dans un dossier X, reprennant tout les fichiers traité, gardant les originaux en place.
Après cela, je voudrais reprendre certains résultats dans un fichier de synthèse comme présenté dans le fichier annexe:
entre autre, une ligne reprendrai le nom du fichier traité ainsi que le temps total sachant comme dit précédement que une ligne équivaut à 30 sec.
J'ai déjà repris deux trois bout de code mais ceux ci sont très long, il faut 3min pour une macro.
Est il possible de lancer le traitement depuis le fichier analyse ?
Débutant en VBA, j'ai un petit problème concernant le traitement d'une immensitées de fichiers.
Pourriez vous m'aider dans la mesure du possible biensur.
J'ai plus au moins 1600 fichiers csv, contenant chacun plus au moins entre 10 et 15.000 lignes.
Mon premier boulot serait le traitement du fichier, pour cela je dois:
- supprimer toute les lignes dont les valeurs dans la colonne B sont inférieur à 1.
- supprimer toute les lignes dont les valeurs dans la colonne C sont supérieure à 200
- supprimer toute les lignes dont les valeurs sont la colonne I sont inférieure à 100
Sachant que la colonne B est un incrément ou chaque ligne correspont à 30 seconde, je voudrais calculé le temps réel dans une colonne P par exemple.
Une fois le fichier traité, celui ci devrait s'enregistrer dans un dossier X, reprennant tout les fichiers traité, gardant les originaux en place.
Après cela, je voudrais reprendre certains résultats dans un fichier de synthèse comme présenté dans le fichier annexe:
entre autre, une ligne reprendrai le nom du fichier traité ainsi que le temps total sachant comme dit précédement que une ligne équivaut à 30 sec.
J'ai déjà repris deux trois bout de code mais ceux ci sont très long, il faut 3min pour une macro.
Est il possible de lancer le traitement depuis le fichier analyse ?
Code:
Sub del_reltmr_1()
'Efface les lignes dont la valeur de la colonne B est inférieur à 1 seconde
For i = [B20000].End(xlUp).Row To 2 Step -1
If Cells(i, 2) < 1 Then Rows(i).Delete
Next i
End Sub
Sub del_rloadr()
'Efface les lignes dont la valeur de la colonne C est supérieur à 200
For i = [C20000].End(xlUp).Row To 2 Step -1
If Cells(i, 3) > 200 Then Rows(i).Delete
Next i
End Sub
Sub del_rloads()
'Efface les lignes dont la valeur de la colonne I est inférieur à 100
For i = [I20000].End(xlUp).Row To 2 Step -1
If Cells(i, 9) < 100 Then Rows(i).Delete
Next i
End Sub