macro supprimer une ligne sous deux conditions

[romeje69]

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

 

[flyonets44]

Re : macro supprimer une ligne sous deux conditions

Bonsoir
il suffit de compléter ton instruction if par or if plage .cells(i).value="dimanche"
Cordialement
Flyonets

 

[romeje69]

Re : macro supprimer une ligne sous deux conditions

Bonsoir,

C'est ce que je pensais mais j'ai une erreur de syntaxe qui apparait à chaque fois....
J'ai essayé ça aussi

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" And Plage.Cells(I).Value = "dimanche" Then
  Plage.Cells(I).EntireRow.Delete
  End If
Next

End Sub

Mais la pas d'erreur mais il ne se passe rien non plus...

 

[JNP]

Re : macro supprimer une ligne sous deux conditions

Bonsoir Jerôme69 et bienvenue, salut Flyonets
"And" signifie "et", donc ton code dit "samedi" et "dimanche" ...
Remplace "And" par "Or" et ça va aller beaucoup mieux ...
Bonne suite

 

[romeje69]

Re : macro supprimer une ligne sous deux conditions

effectivement tout simplement le if était juste de trop merci beaucoup