Report deux critères

[aerjo1]

Bonjour à tous
Actuellement j'ai une macro qui déporte les cyclos critère 2 sur une autre feuille
J'aimerais pouvoir déporter sur la même feuille les critères 2 et 6 cela est-il possible et comment
Je vous joins la macro en texte et le fichier excel
Merci à vous pour votre aide

Sub report()
ligne = 2
Sheets("Accomp").Cells.ClearContents
Sheets("Reservation").Range("A1:d1").Copy Destination:=Sheets("Accomp").Range("A1")
tablo = Sheets("Reservation").Range("A2:f" & Sheets("Reservation").Range("A" & Rows.Count).End(xlUp).Row + 1)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 6) = 2 Then
Sheets("Reservation").Range("A" & n + 1 & ":d" & n + 1).Copy Destination:=Sheets("Accomp").Range("A" & ligne)
ligne = ligne + 1
End If
Next
Sheets("Accomp").Select
Range("d1").Select
End Sub

 

[CHALET53]

Re : Report deux critères

Bonjour,

si j'ai bien compris :

If tablo(n, 6) = 2 Or tablo(n, 6) = 6 Then

....


a+

 

[aerjo1]

Re : Report deux critères

Merci beaucoup super
@ +