XL 2016 Filtre vba

Seddiki_adz

XLDnaute Impliqué
bonjour
j'ai besoin d'un filtre pour transférer les données de feuil1 vers feuil2
j'ai realiser un liste déroulante en D6 FEUIL2
suivant la valeur en D6 j'obtient les données en feuil2
Merci d'avance
 

Pièces jointes

  • RECEPTION BINO.xlsx
    188.9 KB · Affichages: 9

Jacky67

XLDnaute Barbatruc
J'ai créer ce code mas ça marche pas avec le critère
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
 

Pièces jointes

  • reception1 .xlsm
    232.3 KB · Affichages: 5
Dernière édition:

Seddiki_adz

XLDnaute Impliqué
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
Merci
çà très bien
comment transformer les colonnes A,C,D,E,F,G pas la colonne B?
 

Discussions similaires

Réponses
7
Affichages
417

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87