XL 2016 Filtre vba

Seddiki_adz à dit:

J'ai créer ce code mas ça marche pas avec le critère

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [e3]) Is Nothing Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Range("a7:h" & Rows.Count).Clear
    With Feuil1.Range("a1:h" & Feuil1.UsedRange.Rows.Count)
        .AutoFilter Field:=2, Criteria1:=[e3]
        .SpecialCells(xlCellTypeVisible).Copy [a7]
        .AutoFilter
    End With
    Application.EnableEvents = True
End Sub

Jacky67 à dit:

Bonjour,
Les noms des binomes sont AA 1...BC 21 (avec espace) et non pas AA1...BC21
Essaye avec ce code

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [e3]) Is Nothing Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Range("a7:h" & Rows.Count).Clear
    With Feuil1.Range("a1:h" & Feuil1.UsedRange.Rows.Count)
        .AutoFilter Field:=2, Criteria1:=[e3]
        .SpecialCells(xlCellTypeVisible).Copy [a7]
        .AutoFilter
    End With
    Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

Seddiki_adz à dit:

Merci
çà très bien
comment transformer les colonnes A,C,D,E,F,G pas la colonne B?

Cliquez pour agrandir...

Jacky67 à dit:

RE...
comment transformer ????
Je ne comprends pas.
Dans la PJ, la colonne B est supprimée.oui je

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Ta phrase est incompréhensible
Dernier tiroir dans ce fil.
Colonne1 numérotée

Cliquez pour agrandir...