Supprimer une ligne sous conditions

Bonjour à tous,

Je souhaites créer une macro afin de supprimer toutes les lignes où apparaît le mot "dimanche" et "Sem" sur une sélection de la rangé A.

Les mots "dimanche" et "Sem" sont uniquement dans la colonne A et je souhaiterai que chaque ligne où apparaissent ces mots soit supprimé.

Je me suis inspiré d'une réponse d'un autre sujet du forum ce qui me donne :

Sub suppr_total()

Dim I As Integer For I = 300 To 1 Step -1 If Not Cells(I, 1).Resize(1, 6).Find("dimanche") Is Nothing Then Rows(I).Delete

Next I

End Sub

Le problème est que peu importe ce que je fais pour ajouter la condition pour le mot "Sem" la macro ne supprime que les dimanches.

Merci d'avance pour votre aide,

Cordialement,

Beyni

Bonjour toutes et tous

@tester, effectuer une sauvegarde du classeur en amont au cas où

Sub suppr_total()
'declaration des variables
Dim T_sup, Idx As Integer, Nbre As Integer
Dim Cptr As Integer, Lig As Integer

Application.ScreenUpdating = False
T_sup = Array("dimanche", "Sem")

For Idx = 1 To UBound(T_sup)
     Nbre = Application.CountIf(Columns("A"), "*" & T_sup(Idx) & "*")
     If Nbre > 0 Then
          For Cptr = 1 To Nbre
               Lig = Columns("A").Find(T_sup(Idx), Range("A1"), xlValues).Row
               Rows(Lig).Delete
          Next
     End If
Next
End Sub

crdlt,

André

Bonjour André,

Merci beaucoup pour votre aide c'est exactement ce qu'il me fallait et ça fonctionne parfaitement !

Je me rend compte que je vais devoir revoir les bases d'Excel particulièrement sur la déclaration des variables.

Merci encore et bonne journée !

Cordialement,

Beyni

Re,

Merci pour tes remerciements et bonne semaine, j'avais ce code, il y a un bon bout de temps (2014) qui m'a rendu bien des services, je remercie Michel_m

crdlt,

André

Re,

Je me permet de le garder également il me sera utile à l'avenir.

Désolé d'insister mais en admettant que j'ai besoin de supprimer d'autre ligne si un mot s'ajoute dans ma colonne par exemple : "Période".

Puis je utiliser la même formule sachant que je garde la condition avec les mots "dimanche" et "Sem" en ajoutant juste " Période" ?

Merci d'avance de votre réponse,

Cordialement,

Beyni

Re,

oui

T_sup = Array("dimanche", "Sem", "Période")

Super merci encore pour tout et bonne semaine !

Cordialement,

Beyni