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