Microsoft 365 Vba excel

job75 à dit:

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 ☺

Cliquez pour agrandir...

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.

Cliquez pour agrandir...