Aide pour une Macro

WDAndCo · 28 Janvier 2014

Bonjour le Forum

Code:

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 · 11 Février 2014

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 😉 )

Code:

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

WDAndCo · 11 Février 2014

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.

Code:

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 ?

Aide pour une Macro

WDAndCo

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

Discussions similaires

Aide pour une Macro

WDAndCo

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency