Macro de conversion d'un tableau

Bonjour,

J'ai un fichier sous MsMOnney 2002 et ce logiciel me pompe donc j'ai décidé de passer mes comptes sur Excel.
Le hic c'est que l'exportation du compte se fait sous un format qif et lorsque je l'ouvre sous excel, j'ai un tableau sur une seule colonne comme suit:

Citation:

---

^
D18/06'2001
C*
MCholet - Paris
T-20.89
LDéplacement:SNCF
^
D18/06'2001
C*
MSergio Bossi Cholet
T-39.18
LCoiffeur
^
D19/06'2001
C*
MPharmacie
T10.09
LRemboursement Mutuelle:CPAM
^
D20/06'2001
C*
T-2.50
LFrais bancaires:Compte Service CA

---

Après les séparateur, je ne peux rien faire car chaque ligne n'est pas identique.

Voici les correspondances :
^ => nouvelle ligne
D => jj/mm'aaaa (date)
C => opération marquée si présence de *
M => commentaire
T => débit si - ou crédit si rien
L => catégorie:sous catégorie


Mon souhait (mais je ne sais pas par où et comment commencer) c'est de remettre cette unique colonne en 7 colonnes :
Date / Catégorie / Sous Catégorie / Commentaire / Crédit / Débit / Validé

et ce pour chaque opération.

Dans mon exemple par exemple, j'ai :
[QUOTE]A1 ^
A2 D18/06'2001
A3 C*
A4 MCholet - Paris
A5 T-20.89
A6 LDéplacement:SNCF
[QUOTE]

Il faudrait que j'obtienne:
[QUOTE]A1 ^
B1 D18/06'2001
B2 C*
B3 MCholet - Paris
B4 T-20.89
B5 LDéplacement:SNCF
[QUOTE]

Le truc c'est que pour une ligne sous ms money on a pas obligatoirement sous excel 5 lignes car si par exemple je n'ai pas de commentaire la ligne M n'existe pas


Est ce que qq1 peux m'aider ?

Par avance merci

Nini

Bonjour,

Je suppose que tu as déjà réfléchie a comment faire non?
Je te propose d'essayer de faire un algorythme qui ressemble a ca (tu le transforme en VBA et en cas de souci tu nous dit ce qui coince mais ne compte pas sur moi pour le faire a ta place :mouarf:)

tu parcour ta colonne
Pour chaque cellule tu testes la première lettre avec un select case

Code:

---

select case left(cells(i,1),1)

---

pour chaque cas
tu copies le reste dans un autre onglet

Utilise une variable pour savoir a quelle ligne le copier tu incrémente la variable à chaque ^

Code:

---

1 2 3 4 5

case "^" Lignedecopie=lignedecopie+1 case "D" cells(lignedecopie,1)=right(cells(i,1),len(cells(i,1))-1) case...

---

pour le cas C pense a travailler sur la ligne de dessous et à incrémenté i de 1 de plus que pour les autres

Je te laisse commencer, en cas de soucis revient avec un code

Voici une proposition,
Etudie le code pour pouvoir le reproduire si tu en as besoin.
J'ai testé sur ton cas et chez moi ça fonctionne.
Donc ta colonne venant de Money est en colonne A de la feuil1, le tableau se créé en feuille 2 et commence à se remplir en ligne 2.
Je te laisse mettre les en têtes de colonne à la main.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Sub tri() Dim Derlig As Long Dim Plage As Range, C As Range Dim i As Long Dim F As Worksheet Dim Tableau() As String   Derlig = Range("A65536").End(xlUp).Row Set F = Worksheets(2) Set Plage = Range("A1", "A" & Derlig) i = 1 For Each C In Plage   If C.Value = "^" Then i = i + 1   If Left(C.Value, 1) = "D" Then F.Cells(i, 1).Value = Right(C.Value, 10)   If Left(C.Value, 1) = "L" Then C.Value = Replace(C.Value, "L", "") Tableau = Split(C.Value, ":") On Error Resume Next F.Cells(i, 2).Value = Tableau(1) F.Cells(i, 3).Value = Tableau(2) End If   If Left(C.Value, 1) = "M" Then F.Cells(i, 4).Value = Right(C.Value, Len(C.Value) - 1)   If Left(C.Value, 1) = "T" Then If Mid(C.Value, 2, 1) = "-" Then F.Cells(i, 6).Value = Right(C.Value, Len(C.Value) - 2) Else F.Cells(i, 5).Value = Right(C.Value, Len(C.Value) - 1) End If End If   If Left(C.Value, 1) = "C" And Mid(C.Value, 2, 1) = "*" Then F.Cells(i, 7).Value = "Validé"   Next C   End Sub

---

Edit:
Moi j'ai pris le temps de le faire car ça m'a permis de m'entrainer à la manipulation de caractère.Pas totalement désinterressé l'oiseau.:mouarf:
Si tu veux être capable de le reproduire, je te propose de lire mon code et de le reproduire ensuite à ta façon. Un lien sur la manipulation de chaines de caractères:
http://silkyroad.developpez.com/VBA/...racteres/#LI-B
Sinon comme le propose Krovax on peut mettre

Code:

---

Select case=left(c.value,1)

---

et ensuite remplacer tous les If left(c.value,1)=
par

Code:

---

1 2	case is "C" case is "D" '...

---

Citation:

---

Envoyé par diude54

Moi j'ai pris le temps de le faire car ça m'a permis de m'entrainer à la manipulation de caractère.Pas totalement désinterressé l'oiseau.:mouarf:

---

Rah quel égoïste il en profite pour apprendre et empêcher les autres de progresser. Tu as bien raison c'est comme cela que l'on apprend le plus :ccool: et tant pis pour ce qui ne veulent pas apprendre :mouarf:

Merci

Je vais voir ce que je peux en faire pour l'intégrer et le digérer !

Il est vrai que le mieux serait que je ponde le code tout seul mais mon niveau est vraiment faible et je fonctionne plus à la bidouille de code qu'à la ponte de code.

Mais j'y travaille :roll:

J'ai fait un pas à pas pour étudier le code.

1er question ?

Le 1er End if ferme quel If ?
Je croyais qu'à chaque If, il fallait un End if

Pas forcement si tu mets

Code:

---

If ... then "ce que tu veux faire"

---

Alors pas besoin de end if

Si tu veux faire plusieurs choses. Alors il faut :

Code:

---

1 2 3 4 5

If ... then 1 ère chose 2ème chose ... end if

---

le code pour les données commençant pas L

Bravo :ccool:

c'est tout ce que j'ai a dire

Clairement et j'en suis désolé pour moi même, je n'ai pas ce niveau.

Par contre j'aurai du penser à la structure du code car çà n'impose pas de connaissance sur le code mais il faut avoir un cerveau pour réfléchir.
C'est peut être par là qu'il faut que je commence ;)

Merci encore pour votre aide (code ...)

Nini la loose

Tu sais, il y a deux mois je ne connaissait rien à VBA et j'ai appris tout seul. (Enfin presque il y a le forum DVP.net heureusement)
Je n'ai donc pas un niveau exeptionnel, loin de là. Tout ça pour dire que mon niveau est parfaitement accessible pour quelqu'un qui souhaite s'y mettre.;)

Citation:

---

Envoyé par liop49

Par contre j'aurai du penser à la structure du code car çà n'impose pas de connaissance sur le code mais il faut avoir un cerveau pour réfléchir.
C'est peut être par là qu'il faut que je commence ;)

---

Oui c'est la première étape, réfléchir a l'algo sans penser langage ca "tout le monde" peut le faire.
Un cours pour apprendre algorithmique et a formaliser cette étape

Une fois le pseudo code réaliser le passer en VBA est l'affaire de quelques minutes, enfin pas toujours :aie:

JE tente, je tente !

D'ailleurs j'ai un pb avec le code suivant :

Code:

---

1 2 3 4 5 6 7

If Left(C.Value, 1) = "L" Then C.Value = Replace(C.Value, "L", "") Tableau = Split(C.Value, ":") On Error Resume Next F.Cells(i, 2).Value = Tableau(1) F.Cells(i, 3).Value = Tableau(2) End If

---

La fonction split permet de renvoyer les 2 chaîne de caractères des 2 côtés de ":".
Sauf que la value de F.Cells(i,3) donne une chaine vide alors qu'il y a qqchose ?

Commence par virer tous les

Code:

---

on error resume next

---

Cela n'est pas une bonne idée, ca signifie que en cas d'erreur on passe a la suite et du coup tu ne voi jamais les bug de ton programme

Un avis personnel (qui est aussi pour diude) commence par avoir un code bien propre testé et tou et ensuite tu peux les utiliser mais même la il vaux mieu faire une vrai gestion d'ereur qui signale au moins le problème (le mieux et de la gérer)
exemple ( a tester)

Code:

---

1 2 3 4 5 6 7 8 9

on error goto gesterreur .... (tout le code) ... exit sub MsgBox "Erreur n°: " & Err.Number & Chr(13) & Err.Description Err.Clear Resume Next end sub

---

Mais même la ca ne te donnera pas la ligne ou se situ le problème

Pour le problème

Code:

---

1 2 3 4 5 6 7

If Left(C.Value, 1) = "L" Then C.Value = Replace(C.Value, "L", "") Tableau = Split(C.Value, ":") On Error Resume Next F.Cells(i, 2).Value = Tableau(0) F.Cells(i, 3).Value = Tableau(1) End If

---

Ok merci pour les conseils sur la gestion des erreurs

Par contre, juste pour comprendre par rapport à la fonction split.
Les tableaux sont obligatoirement 0 et 1, est ce bien çà ?

Pas obligatoirement 0 et 1 mais par defaut ils commencent a 0
pour savoir jusqu'ou ils vont

Code:

---

ubound(tableau)

---

Regarde

Code:

---

1 2 3 4 5 6

dim i as integer, tableau() as string tableau=split("10:11:12:13:14:15",":") for i = to ubound(tableau) msgbox i & "ème élément de tableau = " & tableau(i) next i

---

Là comme il n'y a qu'un seul séparateur il y a deux élément le 0 et le 1

ok 8O

Par contre sur ton code, j'ai un bug car il existe des zones de M où il n'y a pas de ":" c'est à dire que j'ai une catégorie mais pas de sous catégorie. Du coup, il bug car je n'ai pas de valeur pour tableau(1)

J'ai essayé ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

If Left(C.Value, 1) = "L" Then C.Value = Replace(C.Value, "L", "") If C.Value = ":" Then ' mon pb est ici car je voudrai lui dire s'il y a un : alors Tableau = Split(C.Value, ":") F.Cells(i, 2).Value = Tableau(0) F.Cells(i, 3).Value = Tableau(1) Else F.Cells(i, 2).Value = C.Value End If End If

---

Regarde le tuto que ta donnée diude

Teste la présence de :, c ne va pas valoir simplement : ma quelquchose:autrecose

Code:

---

if instr(c.value,":")<>0 then

---

j'ai trouvé !!!

Code:

---

1 2 3 4 5 6 7 8 9 10

If Left(C.Value, 1) = "L" Then C.Value = Replace(C.Value, "L", "") If C.Value Like "*:*" Then tableau = Split(C.Value, ":") F.Cells(i, 2).Value = tableau(0) F.Cells(i, 3).Value = tableau(1) Else F.Cells(i, 2).Value = C.Value End If End If

---

C'est pour cette raison que j'avais mi on error resume next.
Dans le cas ou il n'y a pas de :, donc pas de sous categorie, cela génère une erreur mais il passe quand meme à la suite.
Il est certain qu'il ne faut pas faire ça sur une grosse macro, mais sur une petite comme ça, je pensais pouvoir me le permettre.
Ensuite effectivement , le "tableau" commence à 0 et pas 1 comme je l'avasi fait. (comme je l'ai dit j'apprend aussi; enfin ça je le savais mais bon)
Si tu ne veux pas mettre on error resume next met une condition:


Bon je ne continue pas je vien de voir les autres réponses:lol:

L'idée n'est pas mauvaise mais dans ce cas repart directement en gestion normale juste après

Code:

---

1 2 3 4

On Error Resume Next F.Cells(i, 2).Value = Tableau(0) F.Cells(i, 3).Value = Tableau(1) on error goto 0

---