Bonjour
Voici le code suivant qui permettre de copier Tableau1 et le coller dans tableau3
Sub [Copy_Avec_AdvancedFilter.xlsm|attachment](upload://8zXK88eZELvQuF4h8zmedjoKATX.xlsm) (34,8 Ko) ()
Dim ShBdd As Worksheet, ShArch As Worksheet
Dim RgData As Range, RgCriter As Range
Dim LastRow As Long
Set ShBdd = ThisWorkbook.Worksheets("Bdd")
Set ShArch = ThisWorkbook.Worksheets("Arch")
Set RgData = ShBdd.Range("Tableau1[#All]")
Set RgCriter = ShBdd.Range("Tableau2[#All]")
LastRow = ShArch.Cells(ShArch.Rows.Count, 1).End(xlUp).Row + 1
If ShBdd.FilterMode = True Then
ShBdd.ShowAllData
End If
RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, CopyToRange:=ShArch.Cells(LastRow, 1)
ShArch.Rows(LastRow & ":" & LastRow).Delete Shift:=xlUp
End Sub
Après l’exécution du code le tableau3 ne se Redimensionner pas automatiquement
Svp comment Redimensionner automatiquement
Merci
Copy_Avec_AdvancedFilter.xlsm (34,8 Ko)