Bug de transfére .. :/

Bonjour,

J'essay de transférer des donnée entre deux feuils excel .. Or il me bug au niveau de la ligne suivante :

Code:

---

1 2 3

.Range(Cells(i, 1), Cells(i + nblig, 2)).Copy Worksheets(EVW).Range(Cells(o, 2), Cells(o + nblig, 3))

---

et je n'arrive pas à en corriger ..

Je suis bloqué iiciii .. :cry:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub transf() Dim nblig, nball, i, o As Integer nblig = TextBox1.Value nball = ActiveCell.SpecialCells(xlLastCell).Row With Worksheets("IDR") o = 4 For i = 15 To nball .Range(Cells(i, 1), Cells(i + nblig, 2)).Copy Worksheets("EVW").Range(Cells(o, 2), Cells(o + nblig, 3)) i = i + nblig o = o + nblig + 3 Next i End With End Sub

---

Merci d'avance

Bonjour,

remplace :

Code:

---

nblig = TextBox1.Value

---

par :

Code:

---

nblig = CLng(TextBox1.Value)

---

et

Code:

---

.Range(Cells(i, 1), Cells(i + nblig, 2)).Copy Worksheets("EVW").Range(Cells(o, 2), Cells(o + nblig, 3))

---

par :

Code:

---

1 2 3

Dim Sh As Worksheet Set Sh = Worksheets("EVW") .Range(.Cells(i, 1), .Cells(i + nblig, 2)).Copy Sh.Range(Sh.Cells(o, 2), Sh.Cells(o + nblig, 3))

---