Supprimer ligne en fonction d'une liste de mots (résolu)

[Cougar]

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

 

[DoubleZero]

Re : Supprimer ligne en fonction d'une liste de mots

Bonjour, Cougar, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

 

[phlaurent55]

Re : Supprimer ligne en fonction d'une liste de mots

Bonjour à tous,

un essai sur base du fichier de notre ânesse (....... faut-il encore mettre ^ avec la nouvelle 00rtografe 😕 )

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.

la liste de la seconde feuille est dynamique et peut être modifiée à volonté.

à+
Philippe

 

[DoubleZero]

Re : Supprimer ligne en fonction d'une liste de mots

Re-bonjour, bonjour, Philippe 😀,

... ânesse (....... faut-il encore mettre ^ avec la nouvelle 00rtografe 😕 )...

Têtue je 😡 suis 😡 et 😱 resterai 😱...

Continuerai, par conséquent, de croire que "le chapeau de la cime est tombé dans l'abîme" et d'admirer la grâce des nénuphars en période de floraison !..

Prochainement recalée en 00rtograffffe ? Tempi 😛 !

A bientôt 🙂🙂

 

[Cougar]

Re : Supprimer ligne en fonction d'une liste de mots

Bonjour, DoubleZero, phlaurent55, le forum,

Excusez mon retard dans la réponse mais les samedis et dimanches c'est repos.

J'ai testé vos 2 code qui fonctionnent bien. N'ayant pas besoin du userform, j'ai tenté de modifié le code de Double pour qu'il supprime les 3 colonnes (ma ligne : Range(ActiveCell.Offset(0, -2), ActiveCell).Select) mais sans succès.

Donc, comment réécrire la ligne de code [a:a].SpecialCells(xlCellTypeFormulas, 16).Delete Shift:=xlUp pour que soit supprimé les 3 colonnes. Je joins un fichier pour tester.

Merci

 

[DoubleZero]

Re : Supprimer ligne en fonction d'une liste de mots

Bonjour à toutes et à tous,

...j'ai tenté de modifié le code... sans succès...

D'où la nécessité de fournir un fichier reflétant l'exacte présentation du fichier de travail...

Une nouvelle version en pièce jointe.

A bientôt 🙂

 

[Cougar]

Re : Supprimer ligne en fonction d'une liste de mots

Bonjour DoubleZero, le forum,

Merci pour la réponse rapide et fonctionnelle.