Bonjour,
j'ai un souci sur une macro et je me permets de soliciter votre aide.
Sur ma macro, j'ai mis un filtre automatique sur les colonnes de mon tableau, sur la 3e colonne, je lui demande de filtrer par date.
Cette date est le jour d'aujourd'hui moins 2 mois. (=G1-61).
G1: (=aujourdhui()).
Cette formule se situe dans la cellule G2.
Pour le moment, pas de souci.
Là où je bloque, c'est de selectionner la cellule G2 dans le critère de recherche du filtre.
Selection.AutoFilter Field:=3, Criteria1:=">=Range(G2).Value", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("MEF -60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Merci de votre aide car je n'y arrive vraiment pas.
j'ai un souci sur une macro et je me permets de soliciter votre aide.
Sur ma macro, j'ai mis un filtre automatique sur les colonnes de mon tableau, sur la 3e colonne, je lui demande de filtrer par date.
Cette date est le jour d'aujourd'hui moins 2 mois. (=G1-61).
G1: (=aujourdhui()).
Cette formule se situe dans la cellule G2.
Pour le moment, pas de souci.
Là où je bloque, c'est de selectionner la cellule G2 dans le critère de recherche du filtre.
Selection.AutoFilter Field:=3, Criteria1:=">=Range(G2).Value", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("MEF -60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Merci de votre aide car je n'y arrive vraiment pas.
