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

besaccl25! · 22 Janvier 2020

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.

Lolote83 · 22 Janvier 2020

Re bonjour,
Voici ton fichier en retour
@+ Lolote83

Divinity Taxoun · 22 Janvier 2020

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 · 22 Janvier 2020

Bonjour,
Avec cette petite macro

VB:

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 · 22 Janvier 2020

Bonjour,

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

Cordialement

besaccl25! · 22 Janvier 2020

Divinity Taxoun à dit:
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! · 22 Janvier 2020

Roblochon à dit:
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! · 22 Janvier 2020

Lolote83 à dit:

Bonjour,
Avec cette petite macro

VB:

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 · 22 Janvier 2020

Re bonjour,
Voici ton fichier en retour
@+ Lolote83

besaccl25! · 22 Janvier 2020

Lolote83 à dit:
Re bonjour,
Voici ton fichier en retour
@+ Lolote83

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

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

besaccl25!

XLDnaute Nouveau

Pièces jointes

Lolote83

Divinity Taxoun

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

besaccl25!

XLDnaute Nouveau

besaccl25!

XLDnaute Nouveau

besaccl25!

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Pièces jointes

besaccl25!

XLDnaute Nouveau

Discussions similaires

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

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency