[VB][Excel]Script de création de colonne

Version imprimable

21/09/2005, 10h54
Mugette

[VB][Excel]Script de création de colonne

j'ai une macro qui ajoute des données dans des colonnes dans une feuille Excel.
Cependant certaines données de mon .csv correspondent à des colonnes qui ne sont pas sur la feuille Excel et le but est de les créer.

Pourriez-vous m'aidez à créer ce script ?
Sachant que j'ai quelque'chose mais ce n'est pas moi qui l'ai créer et c'est incompréhensible.

Merci.
21/09/2005, 12h16
Mugette

alors un .csv c'est un fichier qui extrait des données et qui les ajoute en vrac dans un .xls;
le but de ma macro est de prendre les données du csv et de les ajouter dans un xls propre.
Il faut que je les classe et les insere par ordre alphabétique dans mon xls propre.
Le souci c'est que j'atteinds les limites des colonnes d'Excel donc je dois diviser mon xls en deux afin que tous rentre dedans.
21/09/2005, 12h26
SfJ5Rpw8

Citation:

Envoyé par Mugette

Le souci c'est que j'atteinds les limites des colonnes d'Excel donc je dois diviser mon xls en deux afin que tous rentre dedans.

tu as plus de 256 colones ?
21/09/2005, 12h32
Mugette

oui c'est pour ça que mon chef me demande de diviser mon onglet en 2...

tiens si ce petit code peu t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test2()
 Dim f
 Dim tb
 Dim st As String
 f = FreeFile
 
Open "256.csv" For Input As f 'J'ai créer un fichier 256.Csv en fait de 263 colonnes
 While Not EOF(f)
  Input #f, st
  Debug.Print st
  tb = Split(st, ";")
  'ICI Tu AS UN TABLEAU Tb contenant une ligne de ton fichier ".csv" ...
  'RAJOUTE LA MISE EN PLACE DANS TES FEUILLES EXCEL
    For i = 0 To UBound(tb)
      Debug.Print tb(i)
    Next
   '-------------------------
  Wend
Close f
End Sub

:roll: :wink:

21/09/2005, 13h56
Mugette

ouais en triturant, j'ai réussi à faire un truc correct merci pour cette aide.

ciao