XL 2021 vba sélection multiple

[stef73c]

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.

 

[vgendron]

Bonjour
bah déjà. c'est normal que ca ne fonctionne pas..
le code ne commence meme pas par

sub Nommacro()

 

[stef73c]

bonjour,
En fait c'est un bout de code et bien sur il y un Sub xxx() et un end sub.
pour le reste je me suis débrouillé, mais là je bloque.
merci.

 

[vgendron]

bon.. comme tu viens d'arriver (bienvenue)

on va préciser les banalités.. (voir la charte du forum)

il est préférable d'avoir un fichier exemple (sans données perso)
un bout de code , laissé comme ca. c'est comme une image.. on ne peut pas en faire grand chose (voire rien)

 

[Phil69970]

Bonjour @stef73c et Vincent

@stef73c :
J'ai pas vu ton fichier .....

 

[mapomme]

Bonsoir à tous ,

Juste pour le principe (puisque pas de classeur joint).
Une ligne de code pour filtrer :

    ActiveSheet.Range("$A$1:$A$5000").AutoFilter Field:=1, Criteria1:=">=" & [e1].Value2, Operator:=xlAnd, Criteria2:="<=" & [g1].Value2

 

[stef73c]

Bonjour à tous,
J'étais en train d'essayer de simplifier un fichier de 4 M0 ...
préparer un mot de remerciements pour votre bienveillance ...
un mot d'explication...sur ma quête ...
et ..."ding-dong" la solution !

Merci à tout le monde et surtout à "mapomme" ...

Bonne soirée !