outofbusiness
Messages postés36Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention 4 juin 2009
-
17 avril 2007 à 16:08
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
18 avril 2007 à 11:22
Bonjour,
j'ai un pbm (qui semblera peut etre facile a résoudre pour certains :-) ):
je veux parcourir les cellules d'une ligne à partir de la cellule A1. j'ai le code qui suit, mais ca parcourt la colonne A, et je comprends pas pourquoi. j'ai bien un "xltoright" pourtant!!!
For j = 1 To Range("A1", Range("A1").End(xlToRight)).count
Call Range("A" & j).Activate
Next j
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 17 avril 2007 à 16:20
Salut,
Il te suffit d'essayer de comprendre ce que fait ton code. même si je n'ai pas teste si il marche, voila ce que je peux dire.
Imaginons que Range("A1", Range("A1").End(xlToRight)).count = 5
cela fera
j = 1 Call Range("A1").Activate
j = 2 Call Range("A2").Activate
j = 3 Call Range("A3").Activate
j = 4 Call Range("A4").Activate
j = 5 Call Range("A5").Activate
Donc tu es en colonne ....
Ce qu il faut faire c'est
avec la meme boucle faire
Cells(1,j).Activate
Ou bien
Dim Cellule As Range
For Each Cellule In Range("A1", Range("A1").End(xlToRight))
Cellule.Activate
Next, ----
[code.aspx?ID=41455 By Renfield]