Excel : modification d'une range dans une boucle

salut,

Je pense que tu confonds .Range() et .Cells()

Essaye avec .Cells() (un ptit F1 pour la syntaxe si tu n'est pas sur !!)

---------------------
edit : il va ptet falloir que tu change la def de ta colonne... a voir

Je ne comprends pas ta réponse... Je n'utilise pas .Range() ....

 

ligne 8 de ton code !!!!!!

Désolé mais tu pourrais être plus explicite stp ? Je ne vois pas l'erreur... J'ai toujours utilisé Range() comme ça et ça marchait bien...

Salut,

Il n'y a effectivement pas confusion de ta part, mais l'utilisation de la méthode Cells() en lieu et place de Range() dans ce cas est plus judicieux.

Car en effet, quel alambic !!! Avec une fonction ColumnLetter(), avec deux variables, etc.

Voilà le code que oozenot (   ) te proposait de créer :

Dim i As Long, row As Long, col As Long

 
col = ActiveCell.Column

row = ActiveCell.row

For i = LBound(s) To UBound(s)

    Cells(row + i, col).Value = s(i)

Next

C'est quand même plus simple et plus clair.

Si je me permets de lui gâcher le plaisir de te voir trouver toi-même cette solution, c'est que je propose une autre attaque du problème. On fait des calculs savants (euh, en fait une bête addition   ) alors qu'on ne cherche qu'à se décaler de i cases. Allons :

Dim i As Long

 
For i = LBound(s) To UBound(s)

    ActiveCell.Offset(i).Value = s(i)

Next

Ça me paraît encore plus simple, et donc encore plus facile à comprendre.

  zeb,
tiens, je n'avais pas penser a l'utilisaton d'offset() ... pas mal !!  

@ hydre 2006 : tu as toutes les infos pour trouver ton bonheur !!  
++

Merci pour vos réponses. C'est effectivement une écriture plus simple pour faire la même chose, mais ça ne marche toujours pas  

Voici le code simplifié que j'utilise maintenant :

Sub tableau(s() As String)

' Ecrit en tableau (vecteur colonne) le vecteur passé en paramètre

    Dim i As Long

    Range("A5").Value = s(1) ' ligne ajoutée pour test

    For i = LBound(s) To UBound(s)

        ActiveCell.Offset(i).Value = s(i)

    Next i

End Sub

Au debugage, il détecte bien que s(1) est "S", mais il s'arrête à cette ligne. Plus rien ne se passe, comme si j'avais appuyé sur stop  

salut !

Est ce que par hasard il ne te dirais pas <subscript out of range> ?
Si oui il est temps de nommer tes feuilles !!

essaye aussi d'initialiser la variable i avant la boucle et puis sinon ben...
attends une réponse de zeb... je n'ai pas d'idée !!!

+

T'as juste un problème avec ton tableau  
Que donne ce code ?

Sub tableau(s() As String)

    MsgBox LBound(s) & " to " & UBound(s)

End Sub

---------------

Fais-moi plaisir, vire-moi ce i derrière le Next. On est plus en 1985 ! Aujourd'hui, c'est l'indentation qui permet de voir la structure du code  

J'ai trouvé l'explication sur un autre forum. En fait, j'appelais le sub tableau dans une fonction que je tapais dans une cellule Excel. Or il semblerait qu'une fonction tapée dans une cellule ne peut pas modifier d'autres cellules que la cellule concernée.

C'est tout bête, mais il fallait le savoir...

Merci pour votre aide !

Ah, tu ne nous avais pas tout dis