Discussion :

[tomAH74]

Bonjour, je cherche une macro simple permettant de copier les données (colonne A à G) de l'onglet "Références" dans un autres onglet "Export". L'export se fait que sur les références notées dans un autre onglet "Références à garder". Ce dernier onglet sera amener à evoluer. D'autres données seront aussi ajoutées dans l'onglet "références".

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
FiltreActif ActiveWorkbook.Sheets("Données").Range("A:G"), ActiveWorkbook.Sheets("Références à garder").UsedRange, ActiveWorkbook.Sheets("Export").Range("A1"), False
End Sub
Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean
FiltreActif = False
On Error Resume Next
 RangeSource.AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=CriterRange _
        , CopyToRange:=CopyRange, Unique:=Unique
        DoEvents
        If Err = 0 Then FiltreActif = True
        On Error GoTo 0
End Function

[tomAH74]

Apparement ce code ne marche pas

[Invité]

je l'ai testé chez moi avec ton fichier, qu'est ce qui marche pas?
évidement pour fonctionné il faut que [Références A] s’appelle [Références]

[tomAH74]

Oui pardon c'est bon merci ca marche super