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

A

Attila451

XLDnaute Occasionnel

• 7 Septembre 2023

• #2

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+

 

Pièces jointes

• Test_VBA_1.xlsx

  68.9 KB · Affichages: 3

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 7 Septembre 2023

• #3

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

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 7 Septembre 2023

• #4

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

 

Pièces jointes

• Test_VBA_1.xlsm

  65.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Septembre 2023

• #5

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

 

Pièces jointes

• Suppression Jours semaine V1.xlsm

  70.1 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

P

pierrof

XLDnaute Occasionnel

• 7 Septembre 2023

• #6

Bonjour Phil69970,

Les 2 solutions fonctionnent bien. Merci à vous 2.

Bonne journée

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 7 Septembre 2023

• #7

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....

VB:

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 :

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Septembre 2023

• #8

Re

@Cousinhub

Cousinhub à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

à remplacer par

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

Cliquez pour agrandir...

Voir fichier rectifié

 

Pièces jointes

• Suppression Jours semaine V2.xlsm

  69.3 KB · Affichages: 4

Vote positif 0 Vote négatif