macro importer fichier texte sur excel Fermé

Question

Bonjour
J'ai posé il y a quelques jours une question pour exporter du fichier texte a partir d'excel et j'ai eu une réponse.
J'ai donc voulu faire une macro qui fait le contraire mais vu que pour l'instant je suis un peu might en VBA, je galère donc si quelqu'un peux me donner un coup de main voila ce que je vaux faire.
J'ai un fichier texte composer de listing (voir ci-desssous)et je voudrais récupérer :
la plus grande valeur du 3 et 5 eme listing des colonnes 2 et 3.
Le nombre de signe - dans listing 3 et 5 colonne 2.
Sous le listing 3 (dans études des armatures) récupérer la plus grande valeur colonne 3 et 6 et vérifié dans colonne 7 que on a bien D1.
Le petit probleme est que selon mais hypothèse de départ les lignes ne sont pas a la meme hauteur.
Pour cele j'ai essai de faire une macro en me servant de l'algo suivant je lui fait testé les cellules et lorsque il trouve pour la deuxieme fois sommet du contour extérieur il a le 3eme listing et me donne la plus grande valeur.
Et ainsi desuite.
Le probleme c'est que je n'y arrive pas, donc si quelqu'un peut m'aider se serai cool.
Si je me suis mal expliqué je peux répondre a vos questions.

Voici le fichier

SEB13 · Answer

Désolé j'avais oublié le fichier, voila une partie

***> DONNEES LUES SUR 80 COLONNES

*ETUDE SECTION STANDARD

*ETUDE SECTION STANDARD

*ETUDE SECTION S1

*ETUDE SECTION S1

**GEOMETRIE SECTION S1

CONTOUR EXTERIEUR NOMBRE DE SOMMETS = 50
NUMERO DU SOMMET ABSCISSE ORDONNEE
1 3.600 .000
2 3.572 .451
3 3.487 .895
4 3.347 1.325
5 3.155 1.734
6 2.912 2.116
7 2.624 2.464
8 2.295 2.774
9 1.929 3.040
10 1.533 3.257
11 1.112 3.424
12 .675 3.536
13 .226 3.593
14 -.226 3.593
15 -.675 3.536
16 -1.112 3.424
17 -1.533 3.257
18 -1.929 3.040
19 -2.295 2.774
20 -2.624 2.464
21 -2.912 2.116
22 -3.155 1.734
23 -3.347 1.325
24 -3.487 .895
25 -3.572 .451
26 -3.600 .000
27 -3.572 -.451
28 -3.487 -.895
29 -3.347 -1.325
30 -3.155 -1.734
31 -2.912 -2.116
32 -2.624 -2.464
33 -2.295 -2.774
34 -1.929 -3.040
35 -1.533 -3.257
36 -1.112 -3.424
37 -.675 -3.536
38 -.226 -3.593
39 .226 -3.593
40 .675 -3.536
41 1.112 -3.424
42 1.533 -3.257
43 1.929 -3.040
44 2.295 -2.774
45 2.624 -2.464
46 2.912 -2.116
47 3.155 -1.734
48 3.347 -1.325
49 3.487 -.895
50 3.572 -.451

**GEOMETRIE SECTION S1

*ETUDE SECTION S1

*ETUDE SECTION S1

**BETON SECTION S1

NUMERO DE LA LOI DE COMPORTEMENT = 1
EB = 727. MPA
FC = 4.00 MPA FT = .00 MPA
KC = 1.000 KT = 1.000
DOMAINE DES DEFORMATIONS ADMISSIBLES :
( 0.000E+00 , 5.504E-03 )

**BETON SECTION S1

*ETUDE SECTION S1

*ETUDE SECTION S1

**FERRAILLAGE PASSIF SECTION S1

NAT LCS JC DIA.NOM. DIA.ENC. FE ES KS-GS EPSU
1 2 1 1.00 2.00 500.00 200000. 1.1500 1.00E-02

**FERRAILLAGE PASSIF SECTION S1

NOMBRE D'ARMATURES DEFINIES = 1
ARMATURE Y Z NAT
1 .000 .000 1

**FERRAILLAGE PASSIF SECTION S1

*ETUDE SECTION S1

*ETUDE SECTION S1

**PRECONTRAINTE SECTION S1

NCT KPB LCP AP DIAM. CMIN EP FPE FPR RO-GP MUP
1 0 3 2250. 10.0 190000. 1670. 1860. 1.15 .90

**PRECONTRAINTE SECTION S1

NOMBRE D'ARMATURES DEFINIES = 5
ARMATURE Y Z SPG ALFA NCT
101 3.100 .000 1002.00 .00 1
102 .958 2.948 1002.00 .00 1
103 -2.508 1.822 1002.00 .00 1
104 -2.508 -1.822 1002.00 .00 1
105 .958 -2.948 1002.00 .00 1

**PRECONTRAINTE SECTION S1

*ETUDE SECTION S1

**MECANIQUE SECTION S1

=== SECTION S1 TYPE 1 ===

--- CARACTERISTIQUES PRINCIPALES ---
CALCULS EN SECTION BRUTE
SURFACE = 4.0608E+01
CENTRE DE GRAVITE ABSCISSE YG = .00000 ORDONNEE ZG = .00000
ANGLE ALPHA DU REPERE PRINCIPAL D'INERTIE = .00 DEGRES
INERTIES PRINCIPALES IYP = 1.3122E+02
IZP = 1.3122E+02
MOMENT STATIQUE SY+ = 3.0981E+01
MOMENT STATIQUE SZ+ = 3.0981E+01

**MECANIQUE SECTION S1

*ETUDE SECTION S1

*ETUDE SECTION S1

ENTREE DANS LE MODULE RESISTANCE
***> OPTIONS PAR DEFAUT : CALCUL ITERATIF
SOLLICITATIONS EN REPERE DE TRAVAIL OXYZ

**RESI-ITER SECTION S1

**RESI-ITER SECTION S1

**RESI-ELAS SECTION S1

SECTION HOMOGENEISEE / AUX ARMATURES PASSIVES
AVEC LE COEFFICIENT D'EQUIVALENCE N = **
** NG MYG MZG ?
SOLLICITATIONS LUES EN REPERE DE TRAVAIL

CHARGEMENT PERMANENT NG = 1.2440E+01
MYG = 0.0000E+00
MZG = 0.0000E+00
***> SOLLICITATIONS EDITEES EN REPERE DE TRAVAIL

VECTEUR CONTRAINTE A L'ETAT PERMANENT SIGMAB(0) = 3.0634E-01
EN REPERE DE TRAVAIL D(SIGMAB)/DZ = 0.0000E+00
D(SIGMAB)/DY = 0.0000E+00

CONTRAINTE SIGMAB
A L'ETAT PERMANENT
SOMMET DU CONTOUR EXTERIEUR
1 .306
2 .306
3 .306
4 .306
5 .306
6 .306
7 .306
8 .306
9 .306
10 .306
11 .306
12 .306
13 .306
14 .306
15 .306
16 .306
17 .306
18 .306
19 .306
20 .306
21 .306
22 .306
23 .306
24 .306
25 .306
26 .306
27 .306
28 .306
29 .306
30 .306
31 .306
32 .306
33 .306
34 .306
35 .306
36 .306
37 .306
38 .306
39 .306
40 .306
41 .306
42 .306
43 .306
44 .306
45 .306
46 .306
47 .306
48 .306
49 .306
50 .306

**RESI-ELAS SECTION S1

EFFETS DE LA DECOMPRESSION DU BETON SUR LES ARMATURES DE PREC. ADHERENTES
AVEC LE COEFFICIENT D'EQUIVALENCE N = **

SEB13 · Answer

Voila l'algo que j'essai de mettre en place sans succés

importer le fichier et remplacer . par,

boucle i=0 lorsque l'on a sommet du contour extérieur (je pense 1 mot^par cellule du a l'importation)
alor i= i+1
lorsque i=2 alors on prend la plus grande des 5O valeurs de la colonne 2 et 3 et on compte combien de signe -

lorsque i=4 alors on prend la plus grande des 5O valeurs de la colonne 2 et 3 et on compte combien de signe -

fin boucle

on lit le fichier
et lorsque Etude des armatures de précontraintes adhérentes alors on prend les plus grandes valeurs de la ligne 3 aprés cette phrase et collonne 3 et 6. puis on prend l'inscription de la 7 eme collonne.

Voila ce que je veux faire mais je galère vraiment notament a trouver les fonctions.

Macro importer fichier texte sur excel

2 réponses

Discussions similaires