bonjour à tous,

J'ai une cellule comprenant 3 chaines de caractères séparées par un saut de ligne.
dans ma cellule [A1], j'ai donc :
adresse1
adresse2
adresse3

Et je souhaiterai repérer les saut de ligne dans cette cellule pour couper coller sur les colonnes de droite : adresse1 en [B1] puis adresse2 en [C1] et adresse3 en [D1].

NB : je souhaite faire cette opé depuis ma ligne A1 jusqu’à A200.

J'ai commencé ce code mais j'ai une erreur « d'exécution 9 : l'indice n’appartient pas à la sélection. »

Visiblement il y a un problème avec mes tableaux ou je ne sais quoi…
Qu’est e qui cloche dans mon code ?

Merci

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
 
Sub test()
 
Dim a As Variant
Dim i As Integer
 
For i = 0 To 200
 
a = Split(Range("A1").Offset(i, 0).Value, Chr(10))
Range("B1").Offset(0, i).Value = a(0)
Range("C1").Offset(0, i).Value = a(1)
Range("D1").Offset(0, i).Value = a(2)
 
Next i
 
End Sub