tableau ?

[nono]

Slt le forum,

Voilà, je voudrais transformer les colonnes d'un fichier en ligne d'un autre fichier, en gros la valeur qui se trouve dans une cellule dont l'adresse est F2 dans mon premier fichier doit etre re-transcrit dans la cellule B6 dans mon 2ieme fichier. (autre exp: M3 --> C13)
Petite précision, je dois faire ca par vba et non pas par une formule ou une manip sous excel.

J'avais pensé faire ça grace à un tableau, du style

Dim Tab(x, y) as string

Tab(x, y)= cell.address(y, x)

Mais bon, comme vous pouvez certainement vous en apercevoir, je suis débutant et je n'arrive pas à développer cette idée...
Si ca tente quelqu'un, ca serait avec plaisir, d'avance merci.

nono ;-)

 

[michel]

bonsoir Jipi

tu peux tester la macro ci dessous

Sub Transposer()
Dim i As Integer, j As Integer
Dim x As Byte

j = Range("H65536").End(xlUp).Row + 1
For i = 10 To Range("C65536").End(xlUp).Row Step 4
For x = 1 To 4
Cells(j, 7 + x) = Cells(i + x - 1, 3)
Next x
j = j + 1
Next i
End Sub

je n'ai pas pris en compte la mise en forme du nouveau tableau .
j'ai fait un test avec quelques centaines de lignes . j'espere que le temps de traitement ne sera pas trop long pour des milliers de lignes .


bonne soiree
michel

 

[Jipi]

Bonjour

Merci beaucoup, ça fonctionne très bien.

A bientôt