bonjour tout le monde,
voici un code qui ne fonctionne pas :
Dim debdate As Date
Dim findate As Date
debdate = Sheets("Paramètres_Application").Range("M33").Value
findate = Sheets("Paramètres_Application").Range("M34").Value
Planning.Range("A6").AutoFilter Field:=4, _
Criteria1:=" >=debdate", _
Operator:=xlAnd, _
Criteria2:="<=findate"
Dans la feuille "Paramètres_Application", il y a deux cases : la 1ere avec une date de début (par ex un lundi) et une date de fin (par ex le vendredi).
je souhaite avec ces deux dates, faire un tri dans une colonne (A) de la feuille "planning".
Merci de votre aide.
voici un code qui ne fonctionne pas :
Dim debdate As Date
Dim findate As Date
debdate = Sheets("Paramètres_Application").Range("M33").Value
findate = Sheets("Paramètres_Application").Range("M34").Value
Planning.Range("A6").AutoFilter Field:=4, _
Criteria1:=" >=debdate", _
Operator:=xlAnd, _
Criteria2:="<=findate"
Dans la feuille "Paramètres_Application", il y a deux cases : la 1ere avec une date de début (par ex un lundi) et une date de fin (par ex le vendredi).
je souhaite avec ces deux dates, faire un tri dans une colonne (A) de la feuille "planning".
Merci de votre aide.