Discussion :

[Scritch852]

Véridique, manip à faire en 15sec.
1 - Ouvrez un nouveau document Excel

2 - Remplisser la cellule "A1" avec ce que vous voulez

3 - Coller ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
 
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
        Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
        25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _
        Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array( _
        38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), _
        Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array( _
        51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array(55, 1)), TrailingMinusNumbers _
        :=True
 
End Sub

Ce code a été géénra par une macro. Je lui ai simplement demandé de faire un "Texte à colonnes" avec ";" comme délimiteur.

4 - Essayez de sauvegarder votre document.

J'attends vos réponses!!

[ouskel'n'or]

As-tu pensé à utiliser "Transpose" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

avant de créer un code qui sature la mémoire ?
Précaution : Ne sélectionner que la plage de données, "A:A" => 65536 lignes, transposé sur 255 colonnes, ça passe pas

[Scritch852]

Je 'nai pas très bien compris ton code... Est-ce qu'il transpose du texte en découpant dans des colonnes ? Si oui, en le testant, je n'arrive pas à le faire marcher.

[ouskel'n'or]

Précise ce que tu veux faire... et obtenir
Pas vérifié mais je crois me souvenir qu'on ne peut pas "transposer" sur place
Si tu as A1 dans la sélection à transposer, tu ne peux pas placer tes données transposées à partir de A1.
En outre, précise ta plage de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
set plage = Range(Cells(NoLigne1,NoCol1), Cells(NoLigneFin,NoCol))
'ou en l'occurence
set plage = Range(Cells(NoLigne1,1), Cells(NoLigneFin,1))

Tu ne peux pas transposer "A:A" (comme je te l'ai dit) car là tu prends toute la colonne.
Dans le cas précis, la copie transposée de plage peut se faire en B1, C1, D5... pas en A1

[Scritch852]

J'ouvre un fichier qui est formaté comme ceci:

NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.

Le problème est que ce fichier est un .csv, et qu'en l'ouvrant depuis VBA avec Application.Open() il me met tout dans la colonne A1 'alors qu'en l'ouvrant depuis Fichier->Ouvrir, il me met chaque élément compris entre 2 ; dans des colonnes différentes.
La première methode que j'ai trouvée est de l'ouvrir, puis utiliser TextToColumn (depuis le Menu >Data(données) de Excel), d'ou mon problème initial.
Je suis en train de voir la fonction Open de Excel pour voir si elle peut transposer directement à l'ouverture de fichier. Mais cela me parait difficile.

[ouskel'n'or]

Tiens, essaie ça en remplaçant le nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True