Filtre Automatique

Résolu
DPerron1976 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je dois copier et déplacer des valeurs dans un tableau suite à un filtre automatique sur une colonne précise. Mais j'aimerais savoir avant tout si la colonne en question possède la valeur rechercher !!!

Sheets("Prod").Select

c'est ici qu'il faut vérifier si la valeur existe avant de filtrer

Selection.AutoFilter Field:=4, Criteria1:="v"
Range("A2").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Temp").Select
Range("A2").Select
ActiveSheet.Paste

Merci beaucoup

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

        Sheets("Prod").Select

    'c 'est ici qu'il faut vérifier si la valeur existe avant de filtrer
    'adaptez la colonne de recherche
    Set plage = ActiveSheet.Columns("d:d")

    If Application.CountIf(plage, "v") > 0 Then
        Selection.AutoFilter Field:=4, Criteria1:="v"
        Range("A2").Select
        ActiveCell.Offset(1, 0).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("Temp").Select
        Range("A2").Select
        ActiveSheet.Paste
    End If


    bonne suite
    0