problème de code?

Version imprimable

problème de code?

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:

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

27/03/2009, 14h37
casefayere
bonjour,
Code:

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:

1 2 3 Range("B1").Value = a(0) Range("C1").Value = a(1) Range("D1").Value = a(2)
27/03/2009, 14h39
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.

Bonjour,

Aalex_38 :

Citation:

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 :

Citation:

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:

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

27/03/2009, 14h44
Qwazerty

Salut
Attention avec offset, on inverse row et column

Code:

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

devient donc

Code:

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

Une proposition si j'ai bien compris :

Code:

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

27/03/2009, 14h51
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+
27/03/2009, 14h53
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.
27/03/2009, 15h04
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!
27/03/2009, 15h26
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:

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:

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:

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:

Dim a As Variant

par

Code:

Dim a() As String
27/03/2009, 16h14
dado91400

super merci.