1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Sub TraitementDonnées()
Application.ScreenUpdating = False
'Déclaration et dimension des variables
Dim LR1 As Long
'Chercher les données utiles et les copier dans l'onglet "Données intermédiaires"
With Sheets("ALE")
With Columns("J:J")
For LR1 = .Cells(.Rows.Count, 10).End(xlUp).Row To 1 Step -1
If .Cells(LR1, 1).Value <> "Total" And .Cells(LR1, 10).Value <> "Exc*" And .Cells(LR1, 10).Value <> "" Then
.Cells(LR1, 1).Copy Sheets("Données intermédiaires").Range("A" & .Cells.Count).End(xlUp).Offset(1, 0)
.Cells(LR1, 10).Copy Sheets("Données intermédiaires").Range("B" & .Cells.Count).End(xlUp).Offset(1, 0)
End If
Next LR1
End With
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub |
Partager