Sélection ligne

[Famu]

Bonjour à tous,

J'aimerais sélectionner une ligne, puis la supprimer, qui correspond à un critère :

Sub Supp()

For i = 6 To 100


If Cells(i, 1) = 'blablabla' Then
? 'Sélectionner la ligne dont la cellule fait partie
? 'Supprimer cette ligne

End If
Next

End Sub

Un grand merci à tous pour votre aide,
Famu.

 

[sousou]

Sub Supp()

For i = 6 To 100


If Cells(i, 1) = 'blablabla' Then
cells(i,1).entirerow.delete


End If
Next

End Sub

 

[Famu]

Re:Sélection ligne : MERCI SOUSOU

ça marche super !

Ciao,
Famu

 

[@Bobby]

Voici une solution à ton problème....

Sub Supp()

For i = 6 To 100


If Cells(i, 1) = 'blablabla' Then
rows(i).delete
End If

Next

End Sub


A+