XL 2010 Recherche et sélection de la plage

[Romain31]

Bonjour à tous,

Comment rechercher une ou plusieurs valeurs et sélectionner la plage (en réalité, la portion de ligne) la (ou les) contenant.
Les données se trouvent en colonne A
Il y a deux types de données, certaines commencent par 0- et d'autres sont du texte uniquement.
Le fichier joint montre l'exemple de cellules contenant un 0. La récupération se fait facilement avec "0-*".

J'aimerais avoir la même procédure pour récupérer uniquement les valeurs de type TEXTE avec la portion correspondante (en lignes 4 à 6).
Je joins un fichier en PJ

Auriez-vous quelques idées ?

Merci beaucoup et très bonne journée

 

[fanch55]

Bonjour,

Sub NotFind()
Dim LastCell As Range, Plage As Range
    Set LastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
    With Range("A1", LastCell)
        .AutoFilter ' pour enlever les filtres résiduels
        .AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0-**"
        Set Plage = Range("A2", LastCell).SpecialCells(xlCellTypeVisible)
        .AutoFilter ' pour enlever le filtre actif
    End With
    Plage.Select
End Sub

 

[Romain31]

Merci fanch55,
Ca fonctionne parfaitement.
J'avais tenté avec un filtre mais je l'avais mal paramétré.

Je me demandais aussi si on ne pouvait pas arriver au résultat par un tableau.
Quoiqu'il en soit, voici déjà une solution