Bonjour,
Voilà j'ai un souci dans cette portion de code.
Comment pourrais je faire pour commencer ma copy de ligne par le début et non par la fin du fichier ?
avec mes remerciements
Voilà j'ai un souci dans cette portion de code.
Comment pourrais je faire pour commencer ma copy de ligne par le début et non par la fin du fichier ?
avec mes remerciements
Application.StatusBar = "Préparation du fichier travail "
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "travail" 'renomme la feuille
Sheets("Export Worksheet").Select
For Each cel1 In plage1
code = ExecuteExcel4Macro(txt & cel1.Address(ReferenceStyle:=xlR1C1))
Rows("1:1").Copy Destination:=Sheets("travail").Cells(1.1)
Sheets("Export Worksheet").Select
For n = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("E" & n) = code Then 'B = Colonne pour extraction dans feuille
Rows(n).Copy Destination:=Sheets("travail").Cells(ligne, 1)
ligne = ligne + 1
End If
Next n
ligne = 2
Next