Discussion :

[looping06]

Bonjour à tous,

Je débute sous Excel !
J'ai un fichier excel (joint en pièce jointe), sur ce fichier, je voudrais faire une recherche simultané de plusieurs éléments dans la colonne K et ensuite pouvoir copié/collé les lignes complètes trouvées dans un nouveau fichier.

Mais je ne sais pas comment m'y prendre !

Par exemple dans la colonne K les rubriques suivantes: Entreprises Electricité générale + Architecte + Travaux publique + Entreprises maçonnerie générale.

Je souhaiterais que cela s'automatise pour la recherche et ensuite que j'ai juste à faire Ctrl C sur le fichier en question et Ctrl V dans mon nouveau fichier.

Y'a t-il moyen de faire cela et comment ?

Merci à vous

Pièce jointe 100796

[Daniel.C]

Bonjour,

La macro suivante nécessite un entête en K1. Ajoute-le temporairement au besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Plage As Range
    ActiveSheet.AutoFilterMode = False
    [K:K].AutoFilter Field:=1, Criteria1:=Array( _
        "Architecte*", "Entreprises Electricité générale", _
        "Entreprises maçonnerie générale", "Travaux publique"), Operator:= _
        xlFilterValues
    Set Plage = ActiveSheet.AutoFilter.Range
    Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
    If Application.Subtotal(103, Plage) > 0 Then
        Plage.SpecialCells(xlCellTypeVisible).EntireRow.Select
    End If
End Sub