Discussion :

[will Igetit]

bonjour cher forum,

me voila entrain de tenter de gerer un copie paste de donnees de taille variables dans deux workbooks. voila a peu pres ce que ce la donne .

Code :

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

1
2
3
4
5
6
7
8
Dim DerCel As Long
DerCel = Range("I").Cells.Count(xlCellTypeLastCell)
DerCel = MsgBox("have we a number", vbOKOnly) 
'cette derniere est justre un petit test
dim i as integer
For i = 1 to cint(Dercel)
Worksheets("Sheet1").Range("A & "i" & ") = Worksheets("Data1").Range("A & "i" & ") 
next i

[zandru]

Bonjour,

Il y a une question dans ton message ???

si ton code ne marche pas ;

remplace :

Code :

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

1
2
3
Dim DerCel As Long
DerCel = Range("I").Cells.Count(xlCellTypeLastCell)
DerCel = MsgBox("have we a number", vbOKOnly)

par :

Code :

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

1
2
Dim DerCel As Long
DerCel = Range("I65536").End(xlUp).Row

et dit moi ce que cela donne.

[will Igetit]

la ou je bloque vraiment c'est dans la deuxieme partie du code

Code :

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

Worksheets("Sheet1").Range("A & "i" & ") = Workbooks...

mon code ne lie pas le i comme je l'espere

[zandru]

essai comme ceci :

Code :

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

Worksheets("Sheet1").cells(1, i) = Worksheets("Data1").cells(1, i)

[Godzestla]

la ou je bloque vraiment c'est dans la deuxieme partie du code

Worksheets("Sheet1").Range("A & "i" & ") = Workbooks...


mon code ne lie pas le i comme je l'espere

La syntaxe correcte serait plutot du genre :

Code :

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

1
2
Worksheets("Sheet1").Range("A" & i) = Workbooks...

A la compilation, c'est meme surprenant que cela passe.