Filtre Automatique

Résolu
DPerron1976 -  
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
    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