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
| Sub trier()
Dim i&, fin&, aa As Variant, bb As Variant, a&
With Feuil3
fin = Feuil3.Range("A" & Rows.Count).End(xlUp).Row
y = 1
aa = Feuil3.Range("A2:D" & fin)
For i = 1 To UBound(aa)
aa(i, 4) = ""
Next i
For i = 1 To UBound(aa)
If aa(i, 1) >= 1 And aa(i, 1) <= 4 Then aa(i, 4) = "oui": y = y + 1
Next i
If y = 1 Then Exit Sub
ReDim bb(y - 1, 3)
y = 1
For i = 1 To UBound(aa)
If aa(i, 4) = "oui" Then
For a = 1 To 3
bb(y, a) = aa(i, a)
Next a
y = y + 1
End If
Next i
End With
Feuil2.Cells.Clear
Feuil2.Range("A1").Resize(UBound(bb), UBound(bb, 2)) = bb
End Sub |
Partager