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"...
si j'ai bien compris, code ci dessous, supprime toutes les lignes dont la cellule en colonne A ne contient pas "B07", à tester :
Code:
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..;
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