Aide pour une Macro

[WDAndCo]

Bonjour le Forum

Sub MAJ()
Sheets("Archives").Select
DL = Range("A65536").End(xlUp).Row' 
DL = DL - 1
For LgEVS = 16 To 30
For LgArchives = 7 To DL
If Sheets("Archives").Range("BI" & LgArchives).Value = Sheets("EVS à jour").Range("BI" & LgEVS).Value Then
    Sheets("Archives").Select : Range("D" & LgArchives  "BG" & LgArchives).Select
    Selection.Copy
    Sheets("EVS à jour").Select
    Range("D" & LgEVS).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
Next LgArchives
Next LgEVS
End Sub

Comment rendre cette Macro fonctionelle ?

 

[Staple1600]

Re : Aide pour une Macro

Bonsoir à tous

WDAndCo
Une bonne bière c'est agréable
Un titre de discussion explicite et relatif à la question posée aussi ... 😉
(Quand même t'es inscrit depuis presque 7 ans sur XLD...)

Pour ta question, essaies ceci:
(Au fait nous ne sommes en mars mais en février 😉 )

Sub Macro1() 
'test Ok sur mon PC
Dim crit&
crit = CLng(Date)
Selection.AutoFilter Field:=32, Criteria1:="<=" & crit + 1, Operator:=xlAnd
End Sub

 

[WDAndCo]

Re : Aide pour une Macro

Bonjour le Forum et Staple1600

J'ai du mal formuler ma demande.
Le résultat du filtre doit donner toutes les dates inférieures ou égales à aujourd’hui + un mois.
Voici votre code modifié pour y correspondre.

Sub Macro1() 
Dim crit&
crit = CLng(Date)
Selection.AutoFilter Field:=32, Criteria1:="<=" & crit + 30, Operator:=xlAnd
End Sub

Y a-t-il une autre façon de procéder ?