Sub SupLignes()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
[C:C].Replace "*A", "#N/A", xlWhole
[C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End Sub
Bonsoir Mesda, bienvenue sur XLD,
Exécutez sur la feuille active :
VB:Sub SupLignes() Application.ScreenUpdating = False On Error Resume Next 'si aucune SpecialCell [C:C].Replace "*A", "#N/A", xlWhole [C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete End Sub [/QUOTE] je viens de tester c'est nickel, merci, si je veux rajouter une condition "texte se terminant par la lettre A et B" c'est possible avec ce code ? pas simple à comprendre pour un novice ce langage ☺
A+2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.