Discussion :

[shakapouet]

Bonjour,

J'ai un fichier Excel ou je récupère toutes les valeurs d'un tableau dans une cellule ( A1 ) sous cette forme :

chaine de caractère 1
Chaine de caractère 2
chaine de caractère 3
chaine de caractère 4

J'aimerai pouvoir récupérer chaque ligne et rentrer chaque chaine de caractère dans une cellule spécifique.

ex :

chaine de caractère 1 = range("A2")
chaine de caractère 2 = range("B2")
chaine de caractère 3 = range("C2")
chaine de caractère 4 = range("D2")

etc...

Voila si quelqun à une idée ?

Cordialement

[Bear the french]

Bonjour,

Si c'est le renvoi à la ligne qui marque le changement de cellule, je pense que la solution est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test_split2()
Dim Tablo() As String
Dim i As Integer
 
Tablo = Split(Worksheets("Feuil1").Range("A1").Value, Chr(10))
For i = 0 To UBound(Tablo)
                Worksheets("Feuil1").Cells(2, i + 1).Value = CStr(Tablo(i))
Next i
 
End Sub

Bertrand

[shakapouet]

Ca correspond exactement a ce que je cherchai.

Merci bear the french