Microsoft 365 Copie de données en fonction d'un critère

[Stef01800]

Bonjour le forum,

Je souhaiterais copier des données d'une feuille Excel vers une autre feuille Excel d'après un critère.
J'ai une base avec des noms, et un critère Oui ou Non, et si je mets oui, je souhaiterais que la ligne entière se copie automatiquement dans la feuille Payé de mon classeur.lorsque le critère et oui, et dans la feuille relance, lorsque c'est non.

Je vous joins un exemple

Merci d'avance pour votre aide

Cordialement,

Stéphanie

 

[JHA]

Bonjour à tous,

Avec la version 365, pas besoin d'un format xls.
Une proposition avec power query puisque tu as 365
Mise en mode tableau de tes données
si tu ajoutes des données, elles seront prises en compte dans les deux tableaux après les avoir actualiser.

JHA

 

[ALS35]

Bonjour,

Valable avec Excel 365, regarde si une solution avec la fonction FILTRE (matricielle) peut te convenir,
Feuille Payé, en A2 uniquement :
=FILTRE(Facturation!A2:Facturation!K10;Facturation!K2:K10="oui")

Cordialement

 

[Jacky67]

Bonjour le forum,

Je souhaiterais copier des données d'une feuille Excel vers une autre feuille Excel d'après un critère.
J'ai une base avec des noms, et un critère Oui ou Non, et si je mets oui, je souhaiterais que la ligne entière se copie automatiquement dans la feuille Payé de mon classeur.lorsque le critère et oui, et dans la feuille relance, lorsque c'est non.

Je vous joins un exemple

Merci d'avance pour votre aide

Cordialement,

Stéphanie

Bonjour à tous
Pour toutes version

Sub repartir()
    Application.ScreenUpdating = False
    Feuil2.Cells.Clear: Feuil3.Cells.Clear
    With Feuil1.[a1].CurrentRegion
        .AutoFilter Field:=11, Criteria1:="Non"
        .SpecialCells(xlCellTypeVisible).Copy Feuil3.[a1]
        .AutoFilter Field:=11, Criteria1:="Oui"
        .SpecialCells(xlCellTypeVisible).Copy Feuil2.[a1]
        .AutoFilter
    End With
End Sub

 

[Stef01800]

Bonjour,

Merci pour vos réponses, et propositions, je vais les étudier et reviendrai à vous si besoin

Bonne journée

Cordialement,