VBA comment trier des donnees selon une date presente dans une cellule
1 réponse
papoo
Bonjour,
j'utilise un tableau contenant l'ensemble des devis que je réalise
pour différents clients. avec une macro je tri l'ensemble des devis
relatif à un seul de mes clients afin d'exporter les lignes
relatives à ses devis sous word. je voudrais rajouter une fonction
de tri sur une date afin de ne récuperer que les devis postérieurs à
cette date.
Voici ma macro :
Rows("2:2000").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
La date des devis se trouve dans la colonne G de la feuille source
Comment faire pour ne prendre que les devis ayant une date
supérieure au 01/01/2009 par exemple?
Merci d'avance
--
--------------------------------- --- -- -
Posted with NewsLeecher v3.9 Final
Web @ http://www.newsleecher.com/?usenet
------------------- ----- ---- -- -
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Papoo,
j'ai supposé que le tableau est en colonne B: H
With Selection .AutoFilter Field:=1, Criteria1:="Mon_Client" .AutoFilter Field:=6, Criteria1:=">=" & DateSerial(2009, 1, 1) End With
isabelle
papoo a écrit :
Bonjour, j'utilise un tableau contenant l'ensemble des devis que je réalise pour différents clients. avec une macro je tri l'ensemble des devis relatif à un seul de mes clients afin d'exporter les lignes relatives à ses devis sous word. je voudrais rajouter une fonction de tri sur une date afin de ne récuperer que les devis postérieurs à cette date. Voici ma macro : Rows("2:2000").Select Selection.Delete Shift:=xlUp Range("A2").Select
La date des devis se trouve dans la colonne G de la feuille source Comment faire pour ne prendre que les devis ayant une date supérieure au 01/01/2009 par exemple? Merci d'avance
bonjour Papoo,
j'ai supposé que le tableau est en colonne B: H
With Selection
.AutoFilter Field:=1, Criteria1:="Mon_Client"
.AutoFilter Field:=6, Criteria1:=">=" & DateSerial(2009, 1, 1)
End With
isabelle
papoo a écrit :
Bonjour,
j'utilise un tableau contenant l'ensemble des devis que je réalise
pour différents clients. avec une macro je tri l'ensemble des devis
relatif à un seul de mes clients afin d'exporter les lignes
relatives à ses devis sous word. je voudrais rajouter une fonction
de tri sur une date afin de ne récuperer que les devis postérieurs à
cette date.
Voici ma macro :
Rows("2:2000").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
La date des devis se trouve dans la colonne G de la feuille source
Comment faire pour ne prendre que les devis ayant une date
supérieure au 01/01/2009 par exemple?
Merci d'avance
With Selection .AutoFilter Field:=1, Criteria1:="Mon_Client" .AutoFilter Field:=6, Criteria1:=">=" & DateSerial(2009, 1, 1) End With
isabelle
papoo a écrit :
Bonjour, j'utilise un tableau contenant l'ensemble des devis que je réalise pour différents clients. avec une macro je tri l'ensemble des devis relatif à un seul de mes clients afin d'exporter les lignes relatives à ses devis sous word. je voudrais rajouter une fonction de tri sur une date afin de ne récuperer que les devis postérieurs à cette date. Voici ma macro : Rows("2:2000").Select Selection.Delete Shift:=xlUp Range("A2").Select
La date des devis se trouve dans la colonne G de la feuille source Comment faire pour ne prendre que les devis ayant une date supérieure au 01/01/2009 par exemple? Merci d'avance