Discussion :

[dado91400]

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

[casefayere]

bonjour,

Code :

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

1
2
3
Range("B1").Offset(0, i).Value = a(0)
Range("C1").Offset(0, i).Value = a(1)
Range("D1").Offset(0, i).Value = a(2)

cette partie me laisse perplexe car
Range("B1").Offset(0, i).Value est la cellule C1, puis D1 idem pour le reste
mais je n'ai pas vérifié au dela de ça, il ne vaudrais pas mieux ?:

Code :

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

1
2
3
Range("B1").Value = a(0)
Range("C1").Value = a(1)
Range("D1").Value = a(2)

[aalex_38]

La commade split dimmensionne ton tableau si tu n'a aucun CHR(10) alors ton tableau est définni en (0 to 0), il n'y a donc qu'un seul indice.

[Invité]

Bonjour,

Aalex_38 :

La commande split dimensionne ton tableau; si tu n'as aucun CHR(10) alors ton tableau est défini en (0 to 0), il n'y a donc qu'un seul indice.

Or, Dado91400 a écrit :

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

Dado91400 essayez :

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
Sub test()
 
Dim a As Variant
Dim i As Integer
 
For i = 1 To 200
 
a = Split(Range("A" & i).Value, Chr(10))
Range("B" & i).Value = a(0)
Range("C" & i).Value = a(1)
Range("D" & i).Value = a(2)
 
Next i
 
End Sub

[Qwazerty]

Salut
Attention avec offset, on inverse row et column

Code :

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

Range("D1").Offset(0, i).Value = a(2)

devient donc

Code :

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

Range("D1").Offset(i, 0).Value = a(2)

Pour le reste je n'est pas le temps désolé

Bon WeekEnd a tous
A++
qwaz

[aalex_38]

Une proposition si j'ai bien compris :

Code :

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

1
2
3
4
5
6
For i = 1 To 200
    a = Split(Cells(i, 1), Chr(10))
    For j = LBound(a) To UBound(a)
        Cells(i, 2 + j) = a(j)
    Next j
Next i

[dado91400]

merci à tous pour vos pistes mais malheuresmeet j'ai toujours le mêm message d'erreur...
erreur d'exécution '9' : l'indice n'appartient pas à la sélection.

Il y a une subtilité qui m'échape...

dois-je effacer le contenu de mes tableaux avant chaques boucles ou un truc du genre ?

la premiere ligne fonciotnne mais lma boucle ne va pas plus loin.

Si vous avez des pistes je suis preneur.

MERCI d'avance.
A+

[aalex_38]

As tu testé ma proposition ?

On ne parcours que les données renseignées tu tableau, j'ai testé et ça semble fonctionner.

[dado91400]

ouai merci aalex 38!!

c'est cool ça marhe nikel!

j'avais envoyé mon message en même temps que le tiens apparement.

Merci c'est sympas.
bonne journée, et merci encore à tous!

[aalex_38]

A ta demande un commentaire sur le code :

Au lieu d'utiliser range, j'ai utilisé Cells ou on peut facilement indiquer le numéro de ligne et le numéro de colonne.

Code :

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

a = Split(Cells(i, 1), Chr(10))

Ici tu renseigne un tableau qui peut avoir plusieurs dimensions, regarde les valeurs de a en ajoutant un espion dans le deboggueur.
Tu verra que le type de ta variable sera de type STRING(0 TO x)
x est le plus gros indice du tableau, il va donc varier seulon le nombre de caractères de retour dans ta cellule.

Code :

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

 For j = LBound(a) To UBound(a)

Ici on boucle sur le tableau a en partant du plus petit indice (0) jusqu'au plus grand (qui varie selon la cellule).

Code :

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

        Cells(i, 2 + j) = a(j)

A gauche : La cellule de la ligne i et la colonne 2 + l'indice du tableau, donc colonne 2 pour le premier poste, 3 pour le deuxième ...
A droite le poste du tableau

Le premier poste renseigne donc la colonne 2, ...

Un peu long l'explication mais j'espère qu'elle est suffisamment claire.

Dans ton test j'ai modifié

Code :

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

Dim a As Variant

par

Code :

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

Dim a() As String

[dado91400]

super merci.