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
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