Array d'Arrays dynamiquement

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai beau chercher je ne trouve pas exactement ce que je souhaite savoir alors je me permet de poster ici.

Voici la situation :
Je reçois des fichiers excel (Voir pièce jointe).
Mais les colonnes n'existent pas et il me faut donc (via une macro) scinder les lignes en différentes colonnes.
Je fais donc cela sous Excel, avec Données --> Convertir.

Cela revient à faire un fichier excel = Une macro de convertion de cellules.

La fonction généré par excel est donc :
Code:

1 2 3 4 5 6 7 8 9 10 Sub MacroFichier01() Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(17, 1), Array(38, 1), Array(59, 1), _ Array(71, 1), Array(79, 1), Array(84, 1), Array(87, 1), Array(98, 1), Array(109, 1), Array( _ 120, 1), Array(131, 1), Array(136, 1), Array(141, 1), Array(151, 1), Array(155, 1)), _ TrailingMinusNumbers:=True End Sub
Je souhaiterais maintenant le faire gràce à une et une seule fonction de façon dynamique.

Pour cela, je dispose des largeurs de chaque colonnes sur le fichier excel (Elle correspondent aux nombres de tirets de la deuxième ligne du document excel)

J'ai donc réussi à remplir une collection de largeurs afin d'instancier l'Array dynamiquement.

Ma querstion est donc : Comment remplir dynamiquement un tableau comme celui généré par la fonction. Je n'arrive pas à boucler sur ma collection tout en instanciant mes tableaux.

Merci à vous !

Bonjour,
Voici un exemple à adapter
Exportation de données se trouvant sur la colonne A de la feuille nommée Import vers la feuille Export du même classeur (ThisWorkbook).
Les données sont séparées par un tiret et la première cellule remplie est A1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub take()
 Dim shtImp As Worksheet, shtExp As Worksheet
 Dim myTable(), myNewTable() As String
 Dim r As Long
 Application.ScreenUpdating = False
 With ThisWorkbook
  Set shtImp = .Worksheets("Import")
  Set shtExp = .Worksheets("Export")
 End With
 myTable = shtImp.Range("A1").CurrentRegion
 For r = 1 To UBound(myTable)
  myNewTable = Split(myTable(r, 1), "-")
  With shtExp
  .Range(.Cells(r, 1), .Cells(r, UBound(myNewTable) + 1)) = myNewTable
  End With
 Next
 Application.ScreenUpdating = False
End Sub

Bonjour,
Ou plutôt ceci sur la même feuille.

Code:

1
2
3
4
5
6
7
8
Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Import")
 Dim nb As Integer
 nb = Len(sht.Range("A1")) - Len((Replace(sht.Range("A1"), "-", ""))) + 1
 sht.Columns(1).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(nb, 1)), TrailingMinusNumbers:=True

Il y a des arguments que l'on peut enlever.

12/12/2012, 12h02
Jerwyn

Merci beaucoup pour ta réponse.

Le premier exemple à l'air d'être ce que je cherche.

Si j'ai bien compris, il va chercher chaque "-" pour créer les cellules dans une nouvelle feuille excel ?

Moi je cherche à faire cela mais uniquement en me basant sur la seconde ligne (c'est elle qui me dit combien de caractères contiendra la colonne)
exemple :
(----- --- ----) = 1ère colonne fera 5 caractères, 2ième fera 3 carac. et la 3ième fera 4 carac.

Je ne boucle pas sur chaque ligne pour avoir la largeur si tu vois ce que je veux dire.

J'arrive a obtenir la longueur de chaque colonne, existe t'il une methode ou fonction permettant de scinder une ligne en plusieurs colonnes dynamiquement via notamment une collection de largeurs par exemple ?

Bonjour,
Pour séparer la chaîne de caractères en une table j'ai utilisé la fonction Split parce-que j'avais cru comprendre que tes données étaient séparées par un tiret.
Pour en savoir plus sur cette fonction (voir le tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel) de Silkyroad.
Le code ci-dessous, renvoie dans une table nommée myNewTable les éléments se trouvant dans myTable( r, 1) séparés par un tiret.

Code:

myNewTable = Split(myTable(r, 1), "-")

Par exemple si la valeur de myTable(1, 1) est "Nom-Prénom-+3310000", nous aurons :
myNewTable(0) = "Nom"
myNewTable(1) = "Prénom"
myNewTable(2) = "+3310000"

Le code ci-dessous place dans une table la colonne où se trouve les données.

Code:

myTable = shtImp.Range("A1").CurrentRegion

Celui-ci parcourt la table
Code:

1 2 3 4 5 6 7 8 For r = 1 To UBound(myTable) myNewTable = Split(myTable(r, 1), "-") ' Converti la chaîne en table With shtExp ' Ecrit dans les colonnes 1 à x de la ligne r ' x représente le nombre d'éléments que contient la table+1 soit UBound(myNewTable) +1 .Range(.Cells(r, 1), .Cells(r, UBound(myNewTable) + 1)) = myNewTable End With Next

12/12/2012, 15h22
Jerwyn

Ces explications m'ont été très utiles !

J'ai fini par trouver la méthode à utiliser en me basant sur ton aide, merci à toi !