XL 2013 COPIER FEUIL1 DANS FEUIL2 SOUS CONDITION

[mcj1997]

Bonjour,

J'ai en PJ, un fichier avec ma question.

Merci d'avance,

 

[DoubleZero]

Bonjour, mcj1997, le Forum,

Comme ceci ?

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

A bientôt 🙂

 

[Jacky67]

Bonjour,

J'ai en PJ, un fichier avec ma question.

Merci d'avance,

Bonjour ,
Un peu de vba ?

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

*Désolé DoubleZero pour le doublon
**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> s

 

[Calvus]

Bonsoir,

J'allais répondre par formule, mais comme Double Zéro s'invite dans mes discussions pour me saluer, et bien je m'invite dans celle-ci pour la saluer ! 🙂😉

A bientôt 🙂

 

[JHA]

Bonjour à tous,

2 solutions soit par formule matricielle ou par filtre avancé.

JHA

 

[DoubleZero]

Re-bonjour,

@ Ce lien n'existe plus

*Désolé DoubleZeros pour le doublon

Il ne le faut pas 🙂.

Petite remarque, cependant... Ma nullité est aggravée par l'ajout d'un "s" à D😛ubleZer😉 !

@Ce lien n'existe plus

...comme Double Zéro s'invite dans mes discussions pour me saluer, et bien je m'invite dans celle-ci pour la saluer !

A mon t😉ur de vous saluer, M'Sieur !

@ JHA

2 solutions soit par formule matricielle ...

Ai b🙁b🙁 à la tête.

A bientôt 😀😀

 

[Jacky67]

Petite remarque, cependant... Ma nullité est aggravée par l'ajout d'un "s" à D😛ubleZer😉 !

**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> s 😡

Bonne nuit....DoubleZero

 

[DoubleZero]

Bonjour à toutes et à tous,

**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> s 😡...

Chic, al😀rs : je vais me sentir un peu moins bêêête !

A bientôt 🙂

 

[mcj1997]

MERCI à vous tous.

C'est impeccable,