Hello tout le monde,
Je viens à vous car je suis clairement bloqué sur une macro que j'aimerai développer ! :s
J'ai une extraction comptable dont j'aimerai copier des lignes filtrées vers une base de gestion.
Mais j'ai beaucoup de mal avec un filtre : je souhaiterai filtrer la plage en se basant sur une date située dans une cellule (cette date est amenée à évoluer automatiquement) et la date d'aujourd'hui. Est-ce possible ?
Par ailleurs, j'aimerai copier ces lignes à la suite d'autres lignes et ce de manière automatique (donc dans le code sans Range défini). M'étant basé sur des réponses apportés sur développez.net, je ne trouve pas de réponse à mon pro
Voici mon code jusqu'à présent :
Milles merci à celles et ceux qui prendront le temps de m'aider.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate Application.CutCopyMode = False Selection.AutoFilter Windows("Base Call & IP 2016-macro.xlsm").Activate Sheets("Check").Range (A11) Selection.Copy Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate ActiveSheet.Range("$A$1:$AB$5000").AutoFilter Field:=22, Criteria1:= _ ">=15/09/2016", Operator:=xlAnd, Criteria2:="<=19/09/2016" ActiveSheet.Range("$A$1:$AB$5000").AutoFilter Field:=14, Criteria1:= _ "=PJECST6", Operator:=xlOr, Criteria2:="=PJEINTP" Sheets("EDI-EXTRACT-CDG-DIVERSIFICATION").Range("$A$2:$AB$5000").SpecialCells(xlVisible).Copy Windows("Base Call & IP 2016-macro.xlsm").Activate Sheets("Base").Select Dim LngLastRow As Long LngLastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
arochab
Partager