Macro supprimer sous excel

Résolu
romejé -  
 romejé -
Bonjour,

J'ai un tableau genre calendrier ou en colonnes D j'ai les jours.
J'ai crée une macro pour supprimer toutes les lignes ou en colonne D apparait "samedi".
Jusqu'ici tout va bien mais j'aimerais aussi supprimer les lignes ou apparait "dimanche"..
Une idée ?
voici ma macro merci :

Sub Macro1()
Dim I As Long
Dim Plage As Range
Set Plage = Range("D5:D" & Range("D5").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = "samedi" Then
Plage.Cells(I).EntireRow.Delete
End If
Next

End Sub

2 réponses

  1. m@rina Messages postés 27542 Date d'inscription   Statut Modérateur Dernière intervention   11 562
     
    Bonsoir,

    Tu mets ceci :
    If Plage.Cells(I).Value = "samedi" Or Plage.Cells(I).Value = "dimanche" 


    à la place de
    If Plage.Cells(I).Value = "samedi" 


    m@rina
    1
  2. romejé
     
    Tout simplement super merci beaucoup
    0