ceci étant mon premier message e l'année, je vous souhaite mes meilleures vœux pour cette année.
je viens vers vous car je cherche un truc....je joins le fichier pour aider à la compréhension de ma demande.
en l1, j'ai un menu déroulant avec des dates.
en l2:l700, j'ai différentes dates.
ce que je cherche à faire c'est qu'il ne soit affiché que les dates identiques à celle choisie en l1.
selon vous est-ce possible ?
merci à vous.
Sub Test()
Dim xDate As Date
xDate = [H1]
xJ = Day(xDate)
xM = Month(xDate)
xA = Year(xDate)
ActiveSheet.Range("$L$1:$L$267").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, xM & "/" & xJ & "/" & xA)
Range("D1").Select
End Sub
merci de votre réponse.
j'avais gardé en tête cette solution mais je pensais possible de le faire en indiquant une date en l1 sans devoir passer par l'option filtre.
bonjour.
merci pour votre réponse.
il y a un hic ttes les dates en l2:l2 se sont comme celle en l1, ce qui n'est pas correct.
les dates en l2:l700 doivent rester mais seules les dates correspondantes à celle en l1 devrait être affichée.
Sub Test()
Dim xDate As Date
xDate = [H1]
xJ = Day(xDate)
xM = Month(xDate)
xA = Year(xDate)
ActiveSheet.Range("$L$1:$L$267").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, xM & "/" & xJ & "/" & xA)
Range("D1").Select
End Sub