XL 2013 COPIER FEUIL1 DANS FEUIL2 SOUS CONDITION

mcj1997 · 10 Décembre 2016

Bonjour,

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

Merci d'avance,

DoubleZero · 10 Décembre 2016

Bonjour, mcj1997, le Forum,

Comme ceci ?

VB:

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 · 10 Décembre 2016

mcj1997 à dit:
Bonjour,

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

Merci d'avance,

Bonjour ,
Un peu de vba ?

Code:

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 · 10 Décembre 2016

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 · 10 Décembre 2016

Bonjour à tous,

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

JHA

DoubleZero · 10 Décembre 2016

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 · 11 Décembre 2016

DoubleZero à dit:
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 · 11 Décembre 2016

Bonjour à toutes et à tous,

Jacky67 à dit:
**Allez ousssssst! dégage le >>>>>>>>>>>>>>>>>>>>>>> s 😡...

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

A bientôt 🙂

mcj1997 · 11 Décembre 2016

MERCI à vous tous.

C'est impeccable,

XL 2013 COPIER FEUIL1 DANS FEUIL2 SOUS CONDITION

mcj1997

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Calvus

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

mcj1997

XLDnaute Accro

Discussions similaires

XL 2013 COPIER FEUIL1 DANS FEUIL2 SOUS CONDITION

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency