Macro pour supprimer des données

Bonjour le forum

Je fais appel à vous pour une macro qui me permettrait d’effacer toutes les données des lignes suivant le texte d’une cellule, dans mon cas il faudrait supprimer toutes les données si dans la colonne O il y a des « oui »

Je vous joins le fichier

Merci

Salut starwaso,

Pour effacer le contenu des lignes:

Sub ViderLignes()
   Dim i As Long
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 ' 2 pour la colonne "B"
      If Cells(i, 15) = "oui" Then Range("B" & i & ":O" & i).ClearContents
      Next i
   Application.ScreenUpdating = True
End Sub

pour supprimer les lignes entièrement:

Sub SupprimerLignes()
   Dim i As Long
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 ' 2 pour la colonne "B"
      If Cells(i, 15) = "oui" Then Rows(i).Delete
   Next i
   Application.ScreenUpdating = True
End Sub

@++

Salut,

Voici un exemple possible.

Il faudrait peut-être faire des mises en forme à la suite de cette macro.

Cordialement.

Merci Yvouille et m3ellem1 pour vos réponses

la macro pour effacer le contenu me convient parfaitement

Bonne journée