Filtre Automatique

Résolu

DPerron1976 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 15 mai 2013 à 09:29

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

Afficher la suite

A voir également:

Filtre Automatique
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Réponse automatique thunderbird - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Logiciel de sauvegarde automatique gratuit - Guide
Filtre whatsapp - Accueil - Messagerie instantanée

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Votre réponse