Option Explicit
Sub Reporter()
Sheets("Feuil2").Range("a:e").Clear
With Sheets("Feuil1")
.Range("a:e").AutoFilter Field:=5, Criteria1:="1"
.Range("a:e").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy Sheets("Feuil2").Range("a1")
.Range("a:e").AutoFilter
End With
End Sub
Bonjour ,Bonjour,
J'ai en PJ, un fichier avec ma question.
Merci d'avance,
Sub copieJJ()
Dim plage As Range
Sheets("Feuil2").Cells.Clear
With Sheets("feuil1")
Set plage = .Range("$A$1:$E" & .Cells(Rows.Count, "A").End(xlUp).Row)
plage.AutoFilter Field:=5, Criteria1:="=1"
plage.SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").[a1]
plage.AutoFilter
End With
End Sub
Il ne le faut pas .*Désolé DoubleZeros pour le doublon
...comme Double Zéro s'invite dans mes discussions pour me saluer, et bien je m'invite dans celle-ci pour la saluer !
2 solutions soit par formule matricielle ...
**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> sPetite remarque, cependant... Ma nullité est aggravée par l'ajout d'un "s" à DubleZer !
Chic, alrs : je vais me sentir un peu moins bêêête !**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> s ...