Retraitement automatisé d'un Grand Livre (Final)

Bonjour à tous,

J'espère que vous allez bien.

J'ai un fichier de Base qui est une extraction d'un grand livre issu d'un logiciel.

Ma principale difficulté vient de la colonne A qui n'est pas du tout adapté pour examiner ma base de données car elle contient à la fois des informations sur la date de l’écriture ainsi que sur le numéro de compte.

Ma seconde difficulté vient de la colonne C qui inclut le « N° de pièce » et l’Intitulé du numéro de compte.

J’ai effectué manuellement les retraitements afin d'obtenir le résultat dans l'onglet RÉSULTAT (voir fichier joint).

Je souhaite de l'aide afin d'automatiser ma tâche et avoir un rendu (final) comme le contenu présent dans l'onglet RÉSULTAT.

Besoin de votre aide s'il vous plait,

Dans l’attente,

Cordialement

bonjour Past007,

un essai

Bonjour BsAlv,

Désolé du retard,

Merci beaucoup, ton code fonctionne à merveille.

J'ai une autre requête stp : peux-tu (mieux) expliquer ton code ? Je suis novice et j'arrive à peine à le déchiffrer.

Ci-dessous, ce que tu as mis dans le fichier :

Sub Résultat()
Dim aA, aOut, Compte

aA = Sheets("gl").UsedRange.Resize(, 20).Value2 'lire le contenu de GL
ReDim aOut(1 To UBound(aA), 1 To 9)
For i = 1 To UBound(aA)
If aA(i, 3) <> "" Then

If Len(aA(i, 1)) = 6 Then
ptr = ptr + 1
Compte = aA(i, 1)
libellé = aA(i, 3)
ElseIf IsNumeric(aA(i, 1)) And aA(i, 1) <> "" Then
ptr = ptr + 1
aOut(ptr, 1) = Compte 'n° compte
aOut(ptr, 2) = aA(i, 1) 'date
aOut(ptr, 3) = aA(i, 2) 'CJ
aOut(ptr, 4) = aA(i, 3) 'n° pièce
aOut(ptr, 5) = IIf(Left(aA(i, 6), 7) <> "A.N. au", aA(i, 6), "")
aOut(ptr, 6) = aA(i, 10) 'let
aOut(ptr, 7) = aA(i, 13)
aOut(ptr, 8) = aA(i, 16)
aOut(ptr, 9) = aA(i, 19)
End If
End If
Next

With Sheets("resultat").Range("K2")
.Offset(1).Resize(10000, 9).ClearContents
.Resize(ptr, 9).Value = aOut
End With
End Sub

Dans l'attente,

Cordialement

re,

je l'ai ajouté dans la macro

Merci beaucoup BsAlv