Remplir un tableau à l'aide d'un fichier texte

[Claire]

Bonjour à tous,

Bon alors voilà, je n'y connait strictement rien en programmation et j'aimerais automatiser un truc que je fais à la main et qui deviens de plus en plus lourd !

J'ai un fichier texte de 60 lignes, avec par ligne :
un nom, une abscisse, une ordonnée

Ce que je doit faire, c'est mettre le nom à la bonne intersection sur ma feuille excel (avec un remplissage de couleur sous ce nom !)

Pouvez vous m'aider d'une manière simple ?

 

[@+Thierry]

Coucou Claire

vite fait avant dodo

la différence est là :


X = Sheets("Map 1").Range("B1")
Y = Sheets("Map 1").Range("A2")

CoefCol = 2 + (-X)
CoefLig = 2 + Y


For Each Cell In PlageTxt
Col = Cell.Offset(0, 1) + CoefCol
Lig = Cell.Offset(0, 2) - CoefLig
Lig = Lig - Lig * 2



.........


big bizou
@+Thierrry

 

[@+Thierry]

Bonjour Claire, le Fil et le Forum

Donc normalement avec ce calcul, la procédure devrait appliquer automatiquement le bon coefficient de correspondance selon tes tableaux...

Je me suis basé sur tes indications :

Tableau 1 :
coordonnée -127;100 en B2
coordonnée 0;0 en DY102

Tableau 2 :
coordonnée -127;74 en B2
coordonnée 0;0 en DY76

Tableau 3 :
coordonnée 0;50 en B2
coordonnée 0;0 en B52

Tableau 4 :
coordonnée -150;50 en EV52

Et (normalement) le calcul devrait tomber juste pour synchroniser tous tes tableaux... Je ne sais pas si tu as fait des essais (?) mais tu devrais voir la différence...

Il ne reste plus qu'à gérer le nom de la Feuille "Map 1" et le nom du fichier TXT...

Bonne Soirée
@+Thierry

 

[@+Thierry]

Re: DEMO IMPORT TXT & répartition auto des données (compatible Excel 97)

Bonjour le Fil,

C'est grave çà, Claire a disparue sans laisser de trace (!) ni Longitude ni Latitude... et aucun TXT à l'horizon....

Dommage après un tel boulot...

Bonne Nuit à tous et à toutes
@+Thierry

 

[Claire]

Salut Thierry,

Navrée de ma disparition (pbs perso et informatiques n'aidant pas ...)

Merci énormément du boulot que vous avez fait, ça me sert bcp.

A bientôt, et encore merci, vous êtes formidable !

 

[@+Thierry]

Bonjour Claire, le Forum

Vieux motard que jamais !

Heureux que celà ait pu te servir dans ton boulot.

bonne journée
@+Thierry