Sub E_exporation_interface()
Dim Ligneimp As Integer, Dl As Integer
Dim Ligneint As Integer
Dim valeurover As Double
Dim semaine As Integer
Ligneimp = 0
Ligneint = 0
semaine = 1
Dl = Range("B65536").End(xlUp).Row
Sheets("Importation").Select
For Ligneimp = 1 To Dl
Sheets("Importation").Select
If Cells(Ligneimp, 1).Value = 0 Then
If Cells(Ligneimp, 2).Value > 0 Then
Ligneint = Ligneint + 1
Sheets("Importation").Select
'copie colonne B importation # employé
Cells(Ligneimp, 2).Copy
Sheets("Interface").Select
Cells(Ligneint, 2).Select
ActiveSheet.Paste
'copie colonne C importation # tache
Sheets("Importation").Select
Cells(Ligneimp, 3).Copy
Sheets("Interface").Select
Cells(Ligneint, 3).Select
ActiveSheet.Paste
'copie colonne F importation # taux
Sheets("Importation").Select
Cells(Ligneimp, 6).Copy
Sheets("Interface").Select
Cells(Ligneint, 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'copie colonne H importation # heure regulière
Sheets("Importation").Select
Cells(Ligneimp, 8).Copy
Sheets("Interface").Select
Cells(Ligneint, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(Ligneint, 9).Value = semaine
Sheets("Importation").Select
If Cells(Ligneimp, 9) > 0 Then
Ligneint = Ligneint + 1
Sheets("Importation").Select
'copie colonne B importation # employé
Cells(Ligneimp, 2).Copy
Sheets("Interface").Select
Cells(Ligneint, 2).Select
ActiveSheet.Paste
'copie colonne C importation # tache overtime
Sheets("Interface").Select
Cells(Ligneint, 3).Value = 43
'copie colonne F importation # taux
Sheets("Importation").Select
Cells(Ligneimp, 6).Copy
Sheets("Interface").Select
Cells(Ligneint, 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'copie colonne I importation # heure regulière
Sheets("Importation").Select
Cells(Ligneimp, 9).Copy
Sheets("Interface").Select
Cells(Ligneint, 30).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'mettre colonne f interface les heures over
Cells(Ligneint, 6).Value = Cells(Ligneint, 30).Value
Cells(Ligneint, 9).Value = semaine
'refaire une DEUXIÈME ligne pour soustraire du regulier
Sheets("Importation").Select
Ligneint = Ligneint + 1
Sheets("Interface").Select
'copie colonne B importation # employé
Sheets("Importation").Select
Cells(Ligneimp, 2).Copy
Sheets("Interface").Select
Cells(Ligneint, 2).Select
ActiveSheet.Paste
'copie colonne C importation # tache
Sheets("Importation").Select
Cells(Ligneimp, 3).Copy
Sheets("Interface").Select
Cells(Ligneint, 3).Select
ActiveSheet.Paste
'copie colonne F importation # taux
Sheets("Importation").Select
Cells(Ligneimp, 6).Copy
Sheets("Interface").Select
Cells(Ligneint, 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'copie colonne I importation # heure regulière négatif
Sheets("Importation").Select
valeurover = -Cells(Ligneimp, 9).Value
Sheets("Interface").Select
Cells(Ligneint, 29).Value = valeurover
'mettre colonne f interface les heures over
Cells(Ligneint, 6).Value = Cells(Ligneint, 29).Value
Cells(Ligneint, 9).Value = semaine
End If
Else: semaine = semaine + 1
End If
End If
Next Ligneimp
End Sub