Bonjour,

J'essay de transférer des donnée entre deux feuils excel .. Or il me bug au niveau de la ligne suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ..


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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