Filtre Automatique

Résolu
DPerron1976 Messages postés 27 Statut Membre -  
f894009 Messages postés 17413 Statut Membre -
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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17413 Statut Membre 1 715
 
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