Filtre Automatique Résolu/Fermé

Question

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

f894009 · Answer

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

Filtre Automatique

1 réponse

Discussions similaires