Sujet Précédent Sujet Suivant

Transformer une feuille excel en une autre avec une macro

fabaco Messages postés 4 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 19 octobre 2009 - 19 oct. 2009 à 11:26
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 19 oct. 2009 à 14:18
Bonjour
Je voulais de l'aide pour écrire une macro qui transforme un fichier sous excel à un autre bien ordonné en suprimant les pointillés, et l'afficher sous forme d'un tableau.Voici le fichier à transformer.
MERCI

+----------------------------------------------------------------------------------------------------------------------------------+
Code caisse : 19867 B.E.DE RHONE ALPES Page nｰ 1
Code 騁at : SF0 UGB ARRETE DU 30/09/2009 DES PRODUITS DEPOT-EPARGNE
Date d"馘ition : 01/10/2009 - ETAT DES STOCKS SAINS -
Heure d"馘ition : 01 32 10 23
Destinataire : 00007 DIRECTION COMPTABLE
+----------------------------------------------------------------------------------------------------------------------------------+
TYPO. CN VARIANTE CAPITAUX IPNC ICNE
CE PRODUIT DEBITEURS CREDITEURS DEBITEURS CREDITEURS
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
COMPTE 121900001 00001

8 8 J20R01 0 19 976,29 0 0 0

8 8 J20R03 0 11 452,65 0 0 0

8 8 J51R25 0 106 846,43 0 0 0

8 8 020R03 0 4 800,00 0 0 0

------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
TOTAL COMPTE 121900001 00001
0 143 075,37 0 0 0
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
COMPTE 162110001 00001

99 99 J31R01 0 0 0 0 0

99 99 031R01 4 844,85 0 0 0 0

------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
TOTAL COMPTE 162110001 00001
4 844,85 0 0 0 0
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
COMPTE 203140003 00001

850 8 CCAPJ1 0 1 416,61 0 0 0

------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
TOTAL COMPTE 203140003 00001
0 1 416,61 0 0 0
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
COMPTE 205200002 00001

8 8 CCR184 0 6 925 269,02 0 0 0

8 8 CCR185 0 798 459,28 0 0 0

8 8 CCR186 0 166 119,57 0 0 0

850 8 E08019 3 100 519,94 2 327,25 0 0 0

------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
TOTAL COMPTE 205200002 00001
3 100 519,94 7 892 175,12 0 0 0
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------

page 1

+----------------------------------------------------------------------------------------------------------------------------------+
Code caisse : 19867 B.E.DE RHONE ALPES Page nｰ 2
Code 騁at : SF0 UGB ARRETE DU 30/09/2009 DES PRODUITS DEPOT-EPARGNE
Date d"馘ition : 01/10/2009 - ETAT DES STOCKS SAINS -
Heure d"馘ition : 01 32 10 23
Destinataire : 00007 DIRECTION COMPTABLE
+----------------------------------------------------------------------------------------------------------------------------------+
TYPO. CN VARIANTE CAPITAUX IPNC ICNE
CE PRODUIT DEBITEURS CREDITEURS DEBITEURS CREDITEURS
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
COMPTE 251110001 00001

2 4 J08R10 0 104 184,67 0 0 0

2 4 008R10 2 126,87 261 108,80 0 0 0

4 4 CDT001 17 270 303,43 549 460 463,27 0 0 0

4 4 CDT004 1 956 339,42 102 715 771,80 0 0 0

4 4 CDT006 444 396,80 3 497 553,19 0 0 0

4 4 CDT010 441 283,23 8 661 383,59 0 0 0

4 4 CDT011 232 530,97 5 981 496,21 0 0 0

4 4 CJ4W06 0 686,87 0 0 0

4 4 CVR008 7 442,04 5 378 169,83 0 0 0

4 4 CVR011 546 222,77 69 638 466,61 0 0 0

4 4 CVR013 11 368,74 962 798,25 0 0 0

4 4 CVR015 745 838,95 36 149 202,51 0 0 0

4 4 CVR017 31 358,48 316 225,88 0 0 0

4 4 JDT001 53 177,52 7 077 098,60 0 0 0

4 4 JDT002 5 248 367,03 295 456 218,03 0 0 0

4 4 JDT004 516 015,15 55 535 934,41 0 0 0

4 4 JDT006 60 138,96 943 146,43 0 0 0

4 4 JDT010 506,82 118 228,70 0 0 0

4 4 JDT011 728,73 59 461,54 0 0 0

4 4 J04052 19 139,75 465 750,31 0 0 0

4 4 J04053 1 815,26 36 569,58 0 0 0

+----------------------------------------------------------------------------------------------------------------------------------+

page 2

+----------------------------------------------------------------------------------------------------------------------------------+
Code caisse : 19867 B.E.DE RHONE ALPES Page nｰ 3
Code 騁at : SF0 UGB ARRETE DU 30/09/2009 DES PRODUITS DEPOT-EPARGNE
Date d"馘ition : 01/10/2009 - ETAT DES STOCKS SAINS -
Heure d"馘ition : 01 32 10 23
Destinataire : 00007 DIRECTION COMPTABLE
+----------------------------------------------------------------------------------------------------------------------------------+
TYPO. CN VARIANTE CAPITAUX IPNC ICNE
CE PRODUIT DEBITEURS CREDITEURS DEBITEURS CREDITEURS
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
4 4 J07R03 46 922,13 6 710 143,14 0 0 0

4 4 J07R04 2 949,40 1 221 482,21 0 0 0

4 4 J07R05 8 046,15 2 180 435,28 0 0 0

4 4 J07R06 0 754 803,79 0 0 0

4 4 J07R07 4 344,00 563 792,05 0 0 0

4 4 J08R13 1 080 914,77 101 680 258,76 0 0 0

4 4 J08R15 2 681,14 444 071,99 0 0 0

4 4 J08R16 215 333,27 209 688 111,69 0 0 0

4 4 J08R17 123 395,84 75 571 561,16 0 0 0

4 4 J08R18 6 312,48 1 719 155,45 0 0 0

4 4 J08R19 27 298,29 946 262,46 0 0 0

4 4 J08R20 191,77 81 515,52 0 0 0

4 4 4052 37 640,81 832 270,52 0 0 0

4 4 4053 9 511,21 203 594,92 0 0 0

4 4 007R03 106 579,54 11 514 576,11 0 0 0

4 4 007R04 1 562,92 266 487,55 0 0 0

4 4 007R07 3 371,25 716 285,23 0 0 0

4 4 007R08 0 118 741,84 0 0 0

4 4 008R13 1 988 966,85 143 669 522,07 0 0 0

4 4 008R15 8 381,63 1 628 858,07 0 0 0

4 4 008R16 329 641,22 114 822 619,66 0 0 0

4 4 008R17 400 189,56 40 794 534,70 0 0 0

+----------------------------------------------------------------------------------------------------------------------------------+

page 3

+----------------------------------------------------------------------------------------------------------------------------------+
Code caisse : 19867 B.E.DE RHONE ALPES Page nｰ 4
Code 騁at : SF0 UGB ARRETE DU 30/09/2009 DES PRODUITS DEPOT-EPARGNE
Date d"馘ition : 01/10/2009 - ETAT DES STOCKS SAINS -
Heure d"馘ition : 01 32 10 23
Destinataire : 00007 DIRECTION COMPTABLE
+----------------------------------------------------------------------------------------------------------------------------------+
TYPO. CN VARIANTE CAPITAUX IPNC ICNE
CE PRODUIT DEBITEURS CREDITEURS DEBITEURS CREDITEURS
------- ----- ---------- -------------------- -------------------- -------------------- --------------------- --------------------
4 4 008R19 87 864,95 1 364 532,24 0 0 0

4 4 008R20 3 198,35 736 801,15 0 0 0

4 4 052R02 0 0 0 0 0

450 2 C04016 0 11 343,64 0 0 0

450 2 C04017 4,91 43 140,59 0 0 0

450 2 C04018 0 4 927,17 0 0 0

450 4 DCDY01 5 618,76 2 126 881,03 0 0 0

450 2 DCDY04 11 598,52 306 408,74 0 0 0

450 4 JCDY01 2 740,42 719 525,16 0 0 0

450 2 JCDY04 736,51 55 485,44 0 0 0

450 4 J04054 146,32 144 491,79 0 0 0

450 4 4054 662,25 222 137,91 0 0 0

8 8 A08010 0 88 992,33 0 0 0

8 8 A08011 19,39 22 939,00 0 0 0

8 8 A08012 5 983,84 205 058,35 0 0 0

8 8 A08020 0 103 612,15 0 0 0

8 8 A08021 0 200,85 0 0 0

8 8 A08022 0 251 103,52 0 0 0

8 8 A08031 0 346,52 0 0 0

8 8 A08032 39,34 1 090,82 0 0 0

8 8 CCR001 1 086 296,17 7 529 763,75 0 0 0

8 8 CCR002 385,32 291 812,80 0 0 0

+----------------------------------------------------------------------------------------------------------------------------------+

2 réponses

Réponse 1 / 2
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
19 oct. 2009 à 13:10
Salut
Et quel est ton problème technique ?
Qu'as-tu fais ?
Sur quoi bloques-tu ?

Sais-tu lire un fichier texte ligne par ligne ?
--> Aide de VBA dans Excel "ouvrir fichier texte"
--> Open, Line Input #, Close #

Sais-tu faire une boucle ?
--> Aide de VBA dans Excel : "boucle"
--> Do-Loop

Sais-tu manipuler les chaines de caractères ?
--> Aide de VBA dans Excel : Left, Mid, Right, Split, Join, Instr, InstrRev ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
Réponse 2 / 2
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
19 oct. 2009 à 14:18
Bonjour,

Pourquoi faire une macro, si le nombre de fichier à traiter est de 1 ?...

Amicalement,
Us.
0

Discussions similaires

COMMENT CALCULER LE VOLUME DE MORTIER POUR MONTER UN MUR EN PARPAINGS
STEPH1966 -
STEPH1966 -

5 réponses
calculer un ecart type sur vba excel
monaldinho -
monaldinho -

3 réponses
Calculer le BµIC à partir de l'IBAN
scn68100 -
scn68100 -

3 réponses
Calcul d'une vitesse
vanelotof -
aziz36 -

5 réponses
EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute
wind3813 -
wind3813 -

2 réponses
Rejoignez-nous