copie de colonnes a taille variable de differents workbooks

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:

---

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

---

Bonjour,

Il y a une question dans ton message ???

si ton code ne marche pas ;

remplace :

Code:

---

1 2 3

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

---

par :

Code:

---

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

---

et dit moi ce que cela donne.;)

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

Code:

---

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

---

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

essai comme ceci :

Code:

---

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

---

Citation:

---

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:

---

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

---

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