Créer tableau de données avec condition [Résolu/Fermé]

Messages postés
4401
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
29 décembre 2014
- - Dernière réponse : Ricky38
Messages postés
4401
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
29 décembre 2014
- 3 juin 2012 à 19:31
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: http://cjoint.com/?BFdqdKwZxPK

Merci d'avance pour votre aide.



Afficher la suite 

2 réponses

Messages postés
15430
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
21 septembre 2019
8665
0
Merci
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
Messages postés
4401
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
29 décembre 2014
1104
0
Merci
Allo m@rina,

merci beaucoup, ça fonctionne à merveille.