Microsoft 365 Supprimer lignes si jour diffèrent de samedi ou dimanche dans cellule

[pierrof]

Bonjour,

J'aimerai à l'aide d'un code VBA, supprimer des lignes, si dans une cellule il y a un jour de la semaine de travail (du Lundi au Vendredi).
Autrement dit j'aimerais garder les lignes uniquement des week-end.

Je joins un fichier exemple.

Merci beaucoup

Cordialement

 

[Attila451]

Bonjour,
En ajoutant dans une colonne la fonction jour, la macro ci joint te supprime les lignes avec 6 et 7 qui correspondent à Samedi et Dimanche.
A+

 

[pierrof]

Bonjour,

Merci de votre retour, mais je ne vaux pas faire apparaitre une colonne supplémentaire.
Il n'y a pas la macro dans le bouton sur le fichier... sauf erreur de ma part.

Merci beaucoup

 

[Attila451]

Bonjour,
Ci joint, la macro ajoute une formule col N pour déterminer le jour, elle supprime tout ce qui n'est pas SAMEDI ou DIMANCHE et nettoie ensuite les formules Col N.
Cdlt

 

[Phil69970]

Bonjour @pierrof et @Attila451

@pierrof

Je te propose ce fichier et sans colonne supplémentaire

En 0.13 s sur mon PC pour traiter le fichier de @pierrof

Merci de ton retour

 

[pierrof]

Bonjour Phil69970,

Les 2 solutions fonctionnent bien. Merci à vous 2.

Bonne journée

 

[Cousinhub]

Bonsoir,
Je pense qu'en partant du bas vers le haut, tu auras plus de chance de supprimer toutes les lignes non désirées...
Dans ce code, tu pars du haut vers le bas....

Sub Sup_Semaine()
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
    If Weekday(CDate(Range("E" & i)), 2) < 6 Then Rows(i).Delete
Next i
End Sub

Avec icelui, tu ne gardes plus effectivement que les W-E :

Sub Sup_Semaine()
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
    If Weekday(CDate(Range("E" & i)), 2) < 6 Then Rows(i).Delete
Next i
End Sub

Bonne soirée

 

[Phil69970]

Re

@Cousinhub

Je pense qu'en partant du bas vers le haut, tu auras plus de chance de supprimer toutes les lignes non désirées...

Gloups..... méa culpa, Erreur de débutant

Bien sur la boucle doit être du bas vers le haut

For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row

à remplacer par

For i = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1

Voir fichier rectifié