X données dans une cellule vers X cellules Fermé

Question

Bonjour, 

Lors de mon stage de fin d'étude, on me demande de réaliser un petit programme VBA basé sur Excel pour pouvoir transférer des données d'un logiciel de modélisation 3D vers un autre (type Google SketchUp).

Je me débrouille mais je ne suis pas expert, c'est pourquoi je fais appel à vos compétences.

Pour le moment, mon plus gros soucis est de récupérer plusieurs données contenues dans une cellule vers plusieurs cellules.
Pour être plus clair voici le contenu de la cellule en question :

[.1..face_1../..1.2.3.4./.Couleur_A01.]

J'ai rajouter des points pour mieux comprendre, il faut savoir qu'en réalité ce sont des espaces.
Je voudrais au final avoir sur plusieurs cellules chacune des données suivantes :

[      1      face_1      1      2      3      4      Couleur_A01      ]

De plus, il peut y avoir de 3 à 8 nombres à la place des 1 2 3 4.



Dans un second temps, je voulais savoir si il était possible de pouvoir copier une feuille Excel, puis la copier dans un fichier .txt pour ensuite modifier l'extension en .geo ?
Et ce avec la fenêtre qui propose de nommer le fichier ainsi que sa destination.


Si vous avez des bouts de codes, des tutos ou simplement des conseils, je suis preneur.


Un grand merci d'avance,

Mopo



Configuration: Windows 7 / Firefox 3.5.7

f894009 · Answer

Bonjour, 
Quel EXCEL?? 
Les donnees sont elles toujours au meme format?? 
Si vous pouviez mettre a disposition un fichier exemple sur le site ci-dessous, cela serait plus facile. 


https://www.cjoint.com/

exemple de repartition des donnees en A1 a Axxx sur x cellules

Sub Macro1()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 9), Array(4, 1), Array(5, _
        9), Array(6, 9), Array(7, 9), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 9), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
End Sub

Mopo · Answer

C'est Excel 2003.

Et oui les données sont toujours au même format comme cité avant, avec la seule différence le nombre de nombres (pas très beau comme phrase je sais) entre les "/" .
J'avais penser de faire "remplacer" les / par des espaces(ou des vides) mais j'ai toujours mon problème de passer de une cellule à plusieurs...

f894009 · Answer

Re,
le nombre de nombres (pas très beau comme phrase je sais) entre les "/" .=Format different.

Il faut un exemple de fichier.

Comment importez vous vos donnees dans excel??

mousekey · Answer

https://support.microsoft.com/fr-fr/office/importer-ou-exporter-des-fichiers-texte-txt-ou-csv-5250ac4c-663c-47ce-937b-339e391393ba?ocmsassetid=hp010099725&correlationid=357c7163-f49a-4f74-b34e-08ed203443e2&ui=fr-fr&rs=fr-fr&ad=fr 
https://support.microsoft.com/fr-fr/office/importer-ou-exporter-des-fichiers-texte-txt-ou-csv-5250ac4c-663c-47ce-937b-339e391393ba?ocmsassetid=hp010342598&correlationid=1d7ccd78-c9d7-43ee-88b9-8fc1c6fb978a&ui=fr-fr&rs=fr-fr&ad=fr 
https://www.excel-downloads.com/threads/conversion-excel-en-txt.45250/ 
https://www.google.ca/?gws_rd=ssl#hl=fr&sclient=psy-ab&q=excel+fichier+texte&oq=excel+fichier+texte&aq=f&aqi=g-v10&aql=&gs_l=serp.3..0i15l10.10406l17185l1l17458l19l19l0l2l2l0l122l1824l0j17l17l0.frgbld.&psj=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&fp=631d0dce27f14df9&biw=1366&bih=651 
Signature non conforme, Modération CCM

Mopo · Answer

Merci de vos réponses, je vais essayer de tester l'aide que vous m'avez fournis avant d'envoyer le fichier (on est toujours plus satisfait de son travail quant on l'a fait entièrement).

Sinon j'importe mes données par un simple copier coller.

f894009 · Answer

Bonjour,

Dans le code exemple que je vous ai donne, il faudra remplacer :

OtherChar _
:=".",

par

OtherChar _
:=" ",

puisque ce sont des espaces et non des points qui separent les donnees.

Mopo · Answer

J'ai procéder autrement, en mettant Space:=True et en supprimant OtherChar.
Ceci fonctionne parfaitement, merci beaucoup !

f894009 · Answer

Re,

Dans un second temps, je voulais savoir si il était possible de pouvoir copier une feuille Excel, puis la copier dans un fichier .txt pour ensuite modifier l'extension en .geo ?
Et ce avec la fenêtre qui propose de nommer le fichier ainsi que sa destination.


Toujours d'actualite ?????

Mopo · Answer

Oui toujours d'actualité.

f894009 · Answer

Re,

Format texte:

Quel genre de separateur ou pas entre les donnees, cela conditionne le programme d'ecriture et de sauvegarde.

Mopo · Answer

Un espace, après laisser le saut de tabulation qui me semble être par défaut n'est pas gênant, mais pas idéal.

f894009 · Answer

Re,

Un espace + tabulation est un format particulie non gere par excel, il faudra faire un formatage par programme.

Question: il n'y a qu'une colonne de donnees??

Mopo · Answer

Un espace suffira.

Non il y a entre 16 et 36 colonnes.

f894009 · Answer

Re,

16 a 36 colonnes a sauvegarder lignes par lignes dans un fichier .TXT


Il me faut un fichier de donnees.

Mopo · Answer

Le problème c'est que je veux toutes les lignes comprenant des données (il peut y avoir 4 lignes comme 10 000) sauf la première ligne.

J'envoie un fichier lorsque j'aurais fini les parties que je peux écrire sans aide, et qui permette de générer les données utiles au .txt.

Je rappel aussi que je voudrais que mon programme puisse modifier l'extension en .geo sans que l'on intervienne.

Encore merci pour votre aide.

X données dans une cellule vers X cellules

15 réponses

Discussions similaires