Créer tableau de données avec condition

Résolu
Ricky38 Messages postés 4349 Date d'inscription   Statut Contributeur Dernière intervention   -  
Ricky38 Messages postés 4349 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.



A voir également:

2 réponses

Réponse 1 / 2
m@rina Messages postés 23945 Date d'inscription   Statut Contributeur Dernière intervention   11 466
 
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
Réponse 2 / 2
Ricky38 Messages postés 4349 Date d'inscription   Statut Contributeur Dernière intervention   1 462
 
Allo m@rina,

merci beaucoup, ça fonctionne à merveille.
0