Supression des lignes commençant par R/

[eduraiss]

Bonjour le forum

Voici un code qui me permet de supprimer des lignes en fonction du contenu de la colonne B

Sub efface()

Application.ScreenUpdating = False
For i = [B6000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) = "NOMS" Then Rows(i).Delete

If Cells(i, 2) = "R/" Then Rows(i).Delete


Next i

End Sub
J'aimerais que ce code me permette de supprimer les lignes suivant les cellules commençant par R/

En effet en colonne B j'ai des mot qui sont par exemple R/TITI
Merci a vous

 

[Pierrot93]

Re : Supression des lignes commençant par R/

Bonjour,

essaye peut être ceci :

If Cells(i, 2) Like "R/*" Then Rows(i).Delete

bonne journée
@+

 

[Pierrot93]

Re : Supression des lignes commençant par R/

Re,

A noter, préférable de grouper les 2 tests :

If Cells(i, 2) = "NOMS" Or Cells(i, 2) Like "R/*" Then Rows(i).Delete

Edition : bonjour Laetitia

 

[laetitia90]

Re : Supression des lignes commençant par R/

bonjour eduraiss , Pierrot

ou avec left

 If Cells(i, 2) = "NOMS" Or Left(Cells(i, 2), 2) = "R/" Then Rows(i).Delete

 

[eduraiss]

Re : Supression des lignes commençant par R/

Bonjour le forum

Merci Pierrot93 c'est exactement ce qu'i me fallait

Cordialement,