Discussion :

[amandon]

Bonjour,

j'ai un tableau de donnée avec plusieurs colonne et je souhaite à l'aide d'un clib sur un bouton et donc de code VBA faire en sorte de crée un nouveau fichier excel avec certaines colonne du tableau et en filtrant la base de départ selon les infos de 2 colonnes et un supprimant les doublons selon une colonne
exemple de tableau a filtrer ci dessous

Classeur1.xlsx

L'objectif étant d'obtenir un fichier avec les dossier saisie et non retourné en affichant les colonnes bloc et lame


Quelqu'un peux me donner meme une ébauche de code VBA?


(c'est une version simplifier de mon objectif mais c'est l'essentiel)

[halaster08]

Bonjour,

Je te conseille la lecture de ce tuto: https://philippetulliez.developpez.c...dvancedfilter/
Fais le filtre sur une nouvelle feuille puis déplace là dans un nouveau classeur et enregistre le classeur. (l'enregistreur de macro te donnera 99% du code)

[amandon]

bonjour,

merci de la réponse j'essaye de regarder sur le tuto mais je comprend pas trop ou je dois commencer car à chaque fois que je fait un truc j'ai une erreu 404.

[amandon]

j'ai reussi a faire un truc qui marche avec les tuto sauf que la supression des doublons ne marche que lorsque la table est copié en colonne A, ce qui n'est pas mon cas
quelqu'un aurait t'il une solution?

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
19
20
21
22
23
24
25
26
27
28
29
Sub Export()
'
' Export Macro
'' selection de la cellule de la condition du filtre
    Sheets("RETOUR").Activate
    'Action de filtrage
 Sheets("DONNEES").Range("$A$3:$R$10000").AutoFilter Field:=20, Criteria1:="<>"
 Sheets("DONNEES").Range("$A$3:$R$10000").AutoFilter Field:=26, Criteria1:=""
 
 ' sélection du résultat du filtre
 Sheets("DONNEES").Range("A3:A10000,L3:L10000,M3:M10000,O3:O10000,P3:P10000,R3:R10000,S3:S10000,AA3:AA10000").Copy Destination:=Sheets("RETOUR").Range("G2")
 
'Supprime les doublons
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   [G2].Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlGuess
   For i = [A65000].End(xlUp).Row To 2 Step -1
     If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic
'ranger colonnes
   [I2].Sort Key1:=Range("I3"), Order1:=xlAscending, Header:=xlGuess
   Columns("N:N").WrapText = True
' remise à 0 des filtres
With Sheets("DONNEES")
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With
 
End Sub

[boisgontierjacques]

Bonjour,

Voici un exemple avec le filtre élaboré qui extrait sur une autre feuille certaines colonnes d'une BD sans doublons

Code :

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

1
2
3
4
Sub extrait()
  Set f = Sheets("BD")
  f.[A1:J1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("extrait").[A1:E1], Unique:=True
End Sub

Boisgontier

[amandon]

bonjour, merci ça marche bien pour les doublons mais mais deux filtres ne sont plus appliqués