Bonsoir le forum,
J'utilise ce code pour supprimer les lignes ayant pour mot Convalescence.
Do
If Cells.Find(What:="Convalescence") Is Nothing Then
Exit Do
Else
Cells.Find(What:="Convalescence").Activate
Range(ActiveCell.Offset(0, -2), ActiveCell).Select
Selection.Delete shift:=xlUp
End If
Loop
Est-il possible de le remplacer par une liste de mots énuméré sur une autre feuille A1 à Ax (ex. : Congé, Vacances, etc.). Ainsi je pourrais ajouter des mots sans être obligé de modifier le code.
Merci
J'utilise ce code pour supprimer les lignes ayant pour mot Convalescence.
Do
If Cells.Find(What:="Convalescence") Is Nothing Then
Exit Do
Else
Cells.Find(What:="Convalescence").Activate
Range(ActiveCell.Offset(0, -2), ActiveCell).Select
Selection.Delete shift:=xlUp
End If
Loop
Est-il possible de le remplacer par une liste de mots énuméré sur une autre feuille A1 à Ax (ex. : Congé, Vacances, etc.). Ainsi je pourrais ajouter des mots sans être obligé de modifier le code.
Merci
Dernière édition: