XL 2010 affichage date sur base d'un menu déroulant.

[besaccl25!]

Bonjour à tous et toutes,

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.

 

[Divinity Taxoun]

Bonjour,

Voici le fichier.
Il vous suffit de sélectionner dans le filtre la date dont vous avez besoin.
Bonne journée

-Modif- le fichier était trop volumineux : le voici

Taxoun

 

[Lolote83]

Bonjour,
Avec cette petite macro

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

@+ Lolote83

 

[Hasco]

Bonjour,

Par Formules en L2 à tirer vers le bas: = $L$1 (avec les $)

Cordialement

 

[besaccl25!]

Bonjour,

Voici le fichier.
Il vous suffit de sélectionner dans le filtre la date dont vous avez besoin.
Bonne journée

-Modif- le fichier était trop volumineux : le voici

Taxoun

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.

 

[besaccl25!]

Bonjour,

Par Formules en L2 à tirer vers le bas: = $L$1 (avec les $)

Cordialement

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.

 

[besaccl25!]

Bonjour,
Avec cette petite macro

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

@+ Lolote83

bonjour lolote..
merci de votre réponse mais j'avoue ne pas maîtriser la vba..
je peux ouvrir et placer les codes mais comment activer la vba ?

 

[Lolote83]

Re bonjour,
Voici ton fichier en retour
@+ Lolote83

 

[besaccl25!]

Re bonjour,
Voici ton fichier en retour
@+ Lolote83

merci lolote... un tt grand merci...