XL 2010 Réducteur de ligne

[auverland]

Bonjour à Tous

Auriez-vous dans vos macros une tite moulinette pour réduire la fréquence de mes acquisitions ?

Je souhaiterais garder une ligne toutes les 449 lignes car on m'a fourni des acquisition à 450Hz ald 50hz

Merci d'avance et bon dimanche

 

[Victor21]

Bonjour.

A défaut de macro : Une colonne : =MOD(LIGNE();449) puis filtrer sur les 0 : seules les lignes 449, 898, 1347... apparaitront.

 

[auverland]

Merci
C'est une solution sauf qu'il faut absolument que je re-génère un txt à 50Hz pour pouvoir le traiter dans un outils.
Un filtre masquera uniquement les lignes

 

[job75]

Bonjour auverland, Patrick, le forum,

Il faut être plus précis et nous dire laquelle des 450 données vous voulez conserver, sur quel critère ?

Bonne journée.

 

[Victor21]

Re, bonjour, Gérard.

Un filtre permet également de supprimer les lignes non filtrées.

 

[auverland]

Bonjour Job75, Patrick, le forum,

J'ai pas forcement de critères particulier
J'ai des colonnes Date heure temps avec toutes mes données

Date	Heure	Temps
16/06/2019​	20:24:47​	00:00.0​

J'aimerais garder par exemple une ligne, supprimer les 449ieme suivante garder la 450iem et suprimer les 449 suivantes et cela jusqu'à la fin de mes acquis

 

[Laurent78]

Bonjour,
Vous souhaitez :
- supprimer les lignes dans le fichiers TXT d'acquisition ? (assez simple avec PowerQuery)
- supprimer les lignes dans le fichiers Excel, une fois l'importation faite ?
- faire une importation via une macro, en ne prenant qu'une 1 toutes les 50 lignes ?

A vous lire
Bon dimanche
Laurent

 

[auverland]

Bonjour,

J'importe mes fichiers txt dans excel j'en ai pas beaucoup donc pas besoin d'automatiser cette phase.
Effectivement je souhaiterais supprimer mes lignes une fois que le fichier est importé

 

[Laurent78]

re Bonjour,
ci-joint un fichier Excel utilisant Power Query (besoin d'aide?) avec les 2 requêtes, l'une sur le fichier .txt à mettre dans c:\Temp, l'autre sur la table Excel.

A priori, je préfère la requête sur le TXT, puisqu'elle n'important que ce dont on a besoin.
A+
Laurent

 

[auverland]

Bonjour Laurent78
Merci je fais le test en fin de journee
Bon dimanche

 

[job75]

Re, bonjour Laurent78,

Pour ceux qui comme moi n'ont pas Power Query voici une solution VBA très classique :

Sub Import()
Dim fichier$, texte$, lig&, a$(), n&, b(), s, ub%
fichier = ThisWorkbook.Path & "\Fichier TXT.txt" 'à adapter
Open fichier For Input As #1 'accès au fichier
Do While Not EOF(1) 'EndOfFile: fin du fichier
    Line Input #1, texte 'récupère la ligne
    If lig Mod 450 = 0 Then
        ReDim Preserve a(n) 'base 0
        a(n) = texte
        n = n + 1
    End If
    lig = lig + 1
Loop
Close #1
'---transposition---
ReDim b(n, 2) 'base 0
For n = 0 To UBound(a)
    s = Split(a(n), ";")
    ub = UBound(s)
    If ub > -1 Then b(n, 0) = CDate(s(0))
    If ub > 0 Then b(n, 1) = s(1)
    If ub > 1 Then b(n, 2) = s(2)
Next
'---restitution---
With [A2]
    .Resize(n, 3) = b
    .Resize(n, 3).Sort .Cells, xlAscending, Header:=xlNo 'tri sur les dates
    .Offset(n).Resize(Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

 

[job75]

J'ai testé avec un fichier texte de 1 000 000 de lignes : ma macro s'exécute en 1, 6 seconde chez moi.

 

[Laurent78]

J'ai testé avec un fichier texte de 1 000 000 de lignes : ma macro s'exécute en 1, 6 seconde chez moi.

Bonjour Job75,
Juste pour ceux qui lirais ce fils, Power query est dispo depuis certaines versions d'Excel 2010, et plus généralement depuis la version 2013.
Merci pour la macro, cela peut aussi servir
Petite question, est-il plus rapide faire ainsi (tableau "a" intermédiaire) que de remplir la feuille Excel au fur et à mesure ?

Bon dimanche

 

[job75]

L'intérêt des tableaux VBA c'est qu'ils permettent de remplir une feuille Excel d'un seul coup, c'est beaucoup plus rapide.

 

[Laurent78]

L'intérêt des tableaux VBA c'est qu'ils permettent de remplir une feuille Excel d'un seul coup, c'est beaucoup plus rapide.

Merci pour l'info, je n'ai jamais fait de benchmark là dessus.