Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

[konda_yansa]

Bonsoir,
J'ai un fichier avec des données à filtrer.
Je souhaite appliquer un filtre automatique.
Si la référence des pièces (1iere colonne à gauche) contient ou commence par un caractère (mon critère variable de filtration. par exemple 'BJ' que je dois définir avant de lancer le filtre), je souhaite créer automatiquement une feuille du nom BJ et copier automatiquement toutes les ligne ayant BJ dans la première colonne vers cette nouvelle feuille.
pouvez vous me dépanner? Merci d'avance.

 

[Staple1600]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Bonne nuit



message édité:
pj supprimée car solution BOISGONTIER plus satisfaisante.

 

[BOISGONTIER]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Bonjour,

Avec filtre élaboré:

Sub ExtraitVersAutreFeuille()
critere = [H2]
[H2] = [H2] & "*"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = critere
Sheets("sheet1").[A1:F10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("sheet1").[h1:h2], CopyToRange:=Sheets(critere).[A1]
End Sub

JB
Formation Excel VBA JB

 

[BOISGONTIER]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Avec Filtre Automatique:

Sub ExtraitVersAutreFeuille2()
critere = InputBox("Critere?")
[A1].AutoFilter Field:=1, Criteria1:=critere & "*"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = critere
Sheets("sheet1").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy [A1]
Sheets("sheet1").ShowAllData
End Sub

JB

 

[konda_yansa]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Merci à tous
je crois que je vais utiliser le filtre automatique de JB (Boisgontier).
Comment puis je garder le même layout sur la page générée par le filtre que sur la page principale?
Aussi, il y a un bug dans la macro quand je fait cancel sur la boite de dialogue. Merci encore.

 

[konda_yansa]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Non pas le même lay out mais les mêmes largeur de collone.

 

[BOISGONTIER]

Re : Macro Autofiltrer Donnees Criteres Variable Vers Nouvelle Feuille

Bonsoir,

Sub ExtraitVersAutreFeuille()
critere = InputBox("Critere?")
If critere = "" Then Exit Sub
[A1].AutoFilter Field:=1, Criteria1:=critere & "*"
Sheets.Add after:=Sheets(Sheets.Count)
Application.DisplayAlerts = False
On Error Resume Next
Sheets(critere).Delete
ActiveSheet.Name = critere
Sheets("BD").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy [A1]
Cells.EntireColumn.AutoFit
Sheets("BD").ShowAllData
End Sub

JB