Bonjour,
J'ai commencé un code vba mais il ne fonctionne pas → mais je ne vois pas ou est l'erreur?.
L'objectif de celle ci est de supprimer les lignes en fonction de deux conditions.
Si le texte dans la cellule est différent du mot references ou commence par CR alors on supprimer la ligne.
Sub essai_3()
Dim cell As Range
Set DataRange = ActiveSheet.Range("A1:A200") 'création de la plage de cell
For Each cell In DataRange 'création de la boucle
If Left(cell.Value, 2) <> "CR" And cell.Value <> "References" Then cell.EntireRow.Delete
'supprimer les lignes différent de CR RE
Next
End Sub
avec ce code, les lignes avec le mot references sont supprimées? avez vous une idée du soucis?
Merci d'avance et bonne journée
Julien