Erreur de compilation de donnée

Question

J'ai un banc de mesure qui enregistre les données avec labview en format txt. Il s'avere lors de la création de ce programme que dans la gestion d'écriture des données, à un moment donné, il y a eu une erreur entre une tabulation et un retour à la ligne. Résultat je dois remettre en place mes données pour 25k lignes. Exemple sur les deux premières lignes: Le fichier donne ca Time Tension (ChA) Courant (ChA) Tension (ChB) Courant (ChB) 13:27 1.0000E-3 1.18630e-01 1.0000E-3 1.18861e-01 13:28 1.0000E-3 1.18589e-01 1.0000E-3 1.18822e-01 Je souhaite avoir ceci Time Tension (ChA) Courant (ChA) Tension (ChB) Courant (ChB) 13:27 1.0000E-3 1.18630e-01 1.0000E-3 1.18861e-01 13:28 1.0000E-3 1.18589e-01 1.0000E-3 1.18822e-01 Je présume que la solution doit etre une macro...

Pedro22 · Answer

Peux-tu envoyer ton extrait sous forme de fichier exploitable plutôt que collé dans ton post ? Ce sera plus facile de t'aider de cette manière...

Pedro22 · Answer

Voilà une proposition de macro :

Sub RemiseEnForme()

'Désactive l'affichage en temps réel
Application.ScreenUpdating = False

'Déclaration des variables
Dim LigMax As Long, Lig As Long

With Sheets("resistance supercam")
    'Determine la dernière ligne
    LigMax = .Range("C" & .Rows.Count).End(xlUp).Row
    'Parcourir 1 ligne sur 2 en partant de la derniere
    For Lig = LigMax To 2 Step -2
        If IsEmpty(.Cells(Lig, 1)) Then 'Contrôle l'absence de valeur en colonne A (edit : sécurité à tester)
            .Cells(Lig - 1, 4) = .Cells(Lig, 3) 'Reporter la valeur en colonne C sur la colonne D de la ligne précédente
            .Cells(Lig - 1, 5) = .Cells(Lig, 4) 'Idem colonne D et E
            .Rows(Lig).Delete 'Supprimer la ligne
        Else: Lig = Lig + 1 'Si valeur en colonne A, on décale le traitement d'une ligne
        End If
    Next Lig
End With

End Sub

A coller dans un nouveau module dans l'éditeur VBA (accessible via ALT + F11) et à exécuter manuellement au besoin.