Créer tableau de données avec condition

Résolu
Ricky38 Messages postés 5776 Date d'inscription   Statut Contributeur Dernière intervention   -  
Ricky38 Messages postés 5776 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai un petit problème. J'ai un fichier avec 2 feuilles: Commandes et Achats.

Sur la feuilles Achats j'aimerais faire apparaître dynamiquement seulement les données qui sont notées "Payé" en colonne D de la feuille Commandes.

Ceci peut être fait via une formule ou bien en VBA.

Mon fichier: https://www.cjoint.com/?BFdqdKwZxPK

Merci d'avance pour votre aide.



--
Tout problème a une solution...il faut juste être persévérant.

2 réponses

  1.
    m@rina Messages postés 27623 Date d'inscription   Statut Modérateur Dernière intervention   11 563
     
    Bonjour,

    Essaie ça : 

    Sub payés()
Dim commandes As Worksheet
Dim achats As Worksheet
Dim DL As Long, tablo As Range

Set commandes = ActiveWorkbook.Sheets("commandes")
Set achats = ActiveWorkbook.Sheets("achats")

DL = commandes.Range("A" & Rows.Count).End(xlUp).Row
Set tablo = commandes.Range("A2:D" & DL)

With tablo
.AutoFilter Field:=4, Criteria1:="Payé"
.Copy Destination:=achats.Range("A1")
End With
commandes.ShowAllData

End Sub

    m@rina
    0
  2. Ricky38 Messages postés 5776 Date d'inscription   Statut Contributeur Dernière intervention   1 463
     
    Allo m@rina,

    merci beaucoup, ça fonctionne à merveille.
    0