J'essaie de créer un copie conditionnelle, j'y suis presque arrivé, problème les lignes sont en position 1260 à 1300, du coup j'ai rajouter un j, mais depuis cela ne fonctionne plus. D'autre part lorsque je met un end if vba me dit que je n'ai pas de boucle IF.
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub Envo() Dim i As Integer Dim j As Integer Workbooks.Open ("C:\Nath\Suivi Batches\2011 - W09 - IED IOSIS.xls") j = 2 For i = 1000 To 2000 If Workbooks("2011 - W09 - IED IOSIS.xls").Worksheets("HK").Cells(i, 5).Value = "57" Then Workbooks("Classeur3.xls").Worksheets("Feuil1").Cells(j, 1).Value = Workbooks("2011 - W09 - IED IOSIS.xls").Worksheets("HK").Range("J" & i).Value j = j + 1 End If Next i End Sub
Partager