Tri d'un tableau

[MissCroft]

bonjour
j'ai un énorme tableau à trier, et je voudrais que la macro supprime les lignes ne contenant pas une cellule qui contient "B07"...
les cellules contiennent des libellés du type "Offre de banches B07" et ce sont les lignes de ce type que je veux garder. il y a plein de libellés différents donc je ne peux utiliser "=Offre de banches B07". la seule constante est "B07"...

 

[Pierrot93]

Re : Tri d'un tableau

Bonjour MissCroft

si j'ai bien compris, code ci dessous, supprime toutes les lignes dont la cellule en colonne A ne contient pas "B07", à tester :

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Not Cells(i, 1).Value Like "*B07*" Then Rows(i).Delete
Next i
End Sub

tu pourrais également passer par un filtre auto... A voir..;

bonne journée
@+

Edition : aarf, manquait le step -1
Salut Dull

 

[Dull]

Re : Tri d'un tableau

Salut MissCroft, le Forum

Essaye ce Code

Sub efface()
Dim C As Range
        For Each C In Feuil1.Range("B4:B28") [COLOR=Green]'A adapter feuille et Plage[/COLOR]
                If Not C = "" Then
                           If Not C Like "*B07" Then C.EntireRow.Delete
                End If
        Next C
End Sub

EDITION: Salut Pierrot comme j'étais sur le coup

Bonne Journée

Bonne Journée