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

Signaler
Messages postés
4401
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
29 décembre 2014
-
Messages postés
4401
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
29 décembre 2014
-
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.



2 réponses

Messages postés
16277
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
9 554
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
1 261
Allo m@rina,

merci beaucoup, ça fonctionne à merveille.