Extraire Données

Bonsoir a Tous

Dans le fichier joint j'ai une feuille sur laquelle j'ai importer plusieurs fichier texte dans cette feuille a la suite

ce que je souhaiterai faire c'est pour chaque fichier TXT extraire en feuille 2 la cellule contenant "VISA RT NO FX8094" et pour associe

en fin de chaque fichier" le total signe shipments 235" et le poids "wieght lbs kgs 2440.3 1106.9 " pour cela j'ai mis tout ca en gras de couleurs rouge et faire cela pour tous les fichiers dans cette feuille.

et cela en VBA

ps: en feuille 2 resultat que je veux obtenir

Merci d'avance

Salut Kamellias,

voici ton fichier! Un petit bouton rouge à cliquer...

Dim tTabO, tTabF()
'
With Worksheets("Extract")
    iRow = .Range("A" & Rows.Count).End(xlUp).Row
    tTabO = .Range("A1").Resize(iRow, 5)
End With
'
For x = 1 To UBound(tTabO, 1)
    If Left(CStr(tTabO(x, 2)), 4) = "VISA" Then
        iIdx = iIdx + 1
        ReDim Preserve tTabF(8, iIdx)
        tTabF(0, iIdx) = tTabO(x, 2)
        For y = x To UBound(tTabO, 1)
            If CStr(tTabO(y, 1)) = "ROUTE" Then
                tTabF(1, iIdx) = "TOTAL SINGLE PIECE SHIPMMENTS"
                tTabF(2, iIdx) = tTabO(y + 3, 2)
                tTabF(3, iIdx) = "Weight"
                tTabF(4, iIdx) = "LBS"
                tTabF(5, iIdx) = Trim(Split(tTabO(y + 3, 4), "   ")(0))
                tTabF(6, iIdx) = "KGS"
                tTabF(7, iIdx) = Trim(Split(tTabO(y + 3, 4), "   ")(1))
                x = y + 3
                Exit For
            End If
        Next
    End If
Next
With Worksheets("Results")
    .Cells.ClearContents
    .Range("A2").Resize(iIdx, 8) = WorksheetFunction.Transpose(tTabF)
    .Columns("A:H").AutoFit
End With

Bon travail!

A+

C'est super tu es un pro et encore merci pour le temps que tu as consacre a me faire cette macro

bonne soiree

Je vais encore te solliciter une fois

lorsque j'essaye de supprimer toute la feuille 1 j'ai un message d'erreur , peux tu voir svp

merci

bonsoir

je souhaiterai garder juste les lignes mis en gras et rouge et supprimer tout le reste en vba si possible

je vous joint le fichier

merci

Bonjour a tous encore besoin de votre.

Je souhaiterai la meme chose que le code via ci dessus mais par contre les avoir avec les mis en gras /Rouge

sur la feuille "Extract" ces données ce sont plusieurs fichier txt que j' importe tous les jours regrouper sur cette feuille a la suite

j'ai chercher toute la nuit mes connaissances en vba sont pas terrible

Merci de votre support

Salut Kamellias,

pas bien compris : que veux-tu exactement?

- garder la feuille 'Results' mais mettre les résultats en gras et rouge

ou

- n'avoir QUE la feuille 'Extract' avec les seules lignes VISA et autres, toujours en gras et rouge en éliminant le reste?

Pas clair...

A+

c'est vrai c'est pas clair

alors ce que je veux comme résultat:

avoir sur la deuxième feuille "VISA RT NO FX8094/ TOTALS /253 /------WEIGHT-----LBS KGS /2482.9 1126.2

comme présenter sur la feuille .

Merci

Salut Kamellias,

ainsi?

A+

merci d avoir pris le temps de me repondre

bonne soiree

je viens faire un essai mais par contre il ne m a pas extrait la derniere partie alors j ai refait importer des tout les fichier txt et il oublie toujours le dernier

as tu une idée pour quelle raison ?

Salut Kamellias,

désolé, une distraction coupable dans l'adressage d'un tableau...

Voici ton fichier corrigé!

Avec plaisir!

A+

Bonsoir Curulis57,

C'est parfait exactement le resultat souhaite, je sais pas comment te remercie car tu va me faciliter une grande parti de mon travail,

ENCORE UN GRAND MERCI , ET DE NOUS CONSACRE DU TEMPS POUR NOUS AIDER

BONNE SOIREE