Meme soucis pour ce classeur.
La structure ci-dessous ainsi fichier xls
Sub TEST()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Feuil2").Range("J3:R800").ClearContents
intervalle = Sheets("Feuil2").Range("E11")
sexe = Sheets("Feuil2").Range("D3")
age = Sheets("Feuil2").Range("E3")
pa = Sheets("Feuil2").Range("F3")
groupe = Sheets("Feuil2").Range("G3")
k = 4
With Sheets("Feuil1")
For i = 4 To .Range("A" & .Rows.Count).End(xlUp).Row
If (.Cells(i, 5) >= age - intervalle And .Cells(i, 5) <= age + intervalle) And .Cells(i, 4) = sexe And (.Cells(i, 8) <= tabac + intervalle And .Cells(i, 8) >= tabac - intervalle) Then
Sheets("Feuil2").Cells(k, 10) = .Cells(i, 1)
Sheets("Feuil2").Cells(k, 11) = .Cells(i, 2)
Sheets("Feuil2").Cells(k, 12) = .Cells(i, 3)
Sheets("Feuil2").Cells(k, 13) = .Cells(i, 4)
Sheets("Feuil2").Cells(k, 14) = .Cells(i, 5)
Sheets("Feuil2").Cells(k, 15) = .Cells(i, 6)
Sheets("Feuil2").Cells(k, 16) = .Cells(i, 7)
Sheets("Feuil2").Cells(k, 17) = .Cells(i, 8)
Sheets("Feuil2").Cells(k, 18) = .Cells(i, 9)
k = k + 1
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Merci