Macro pour supprimer des lignes

[Chris]

Salut tout le monde,

je cherche à supprimer les lignes lorsqu'une certaine valeur (par exemple 'toto') est contenue dans la colonne A.

Merci d'avance.
Ciao 😉

 

[Dan]

Bonjour,

En vitesse, essaie ce code :

Sub SupprimeLigne()
Range('A2').
Do Until ActiveCell = ''
If ActiveCell = 'Toto' Then
Selection.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).activate
Loop
End Sub

Cela suppose que toutes tes cellules en colonne A contiennent une valeur.

bon Ap

😉

 

[PascalXLD]

Bonjour

Essaies un truc du genre

Maligne=range('A65536').end(xlup).row
for x = maligne to 1 step -1
if range('A' & x) like '*toto*' then rows(x).delete
next

 

[porcinet82]

Bonjour a tous,

Juste histoire de données un peu plus de choix à Chris et pour taquiner José, voici une autre solution :

Sub Sup_toto()
Dim i%

For i = Range('A65536').End(xlUp).Row To 1 Step -1
    If Not InStr(1, LCase(Cells(i, 1).Value), 'toto') = 0 Then
        Rows(i).Delete
    End If
Next i
End Sub

@+

 

[ERIC S]

Bonjour à tous

au lieu de Sup_toto ne pourrait-on pas l'appeler Parapoux ?

Je sais c'est facile et pas véritablement
Excel..lente :whistle:

A+

Message édité par: ERIC S, à: 22/06/2006 14:15