J’ai un petit bout de code qui me permet d’exporter de la data provenant d’un fichier xml dans un classeur excel, cependant il me colle l’integralité des données (2565 valeurs) dans une seule cellule. J’ai donc ecrit un autre petit bout de code pour séparer ces 2565 valeurs dans 2565 cases séparées. Ces valeurs sont initialement séparées par des espaces. Ca ne marche bien évidemment pas, c’est donc pour ca que je vient demander de l’aide ici, car je ne comprends pas pourquoi ? Voici le bout de code :
Sub SeparateValuesInCell()
Dim str As String
Dim arr() As String
Dim i As Integer
'Change the cell reference to the cell containing the values you want to separate
str = Range("A1").Value
'Split the values in the cell by spaces and store them in an array
arr = Split(str, " ")
'Loop through the array and place each value in a separate cell in the same row
For i = 0 To UBound(arr)
'Change the column reference to the column where you want to place the separated values
Cells(1, i + 1).Value = arr(i)
Next i
End Sub
Si Quelqun peut m’aider ce serai vraiment cool ! merci