Macro pour supprimer des lignes

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 22 Juin 2006

• #2

Bonjour,

En vitesse, essaie ce code :

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

😉

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 22 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Juin 2006

• #4

Bonjour a tous,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 22 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif