Supprimer ligne en fonction de la semaine
Salut tous le monde,
Est-il possible d'avoir une macro supprimant les lignes dont les dates sont inférieur au numéro de semaine en cours ?
Merci de vos réponses
Bonjour juju125,
Avec un fichier comme base de travail tu auras plus de chance d'avoir une réponse qui te convienne.
Ah oui j'ai été trop vite
J'ai oubliée de préciser que les dates sont toujours trier avant.
Bonjour,
As tu la version 2016 d'Excel?
Doit on tenir compte de l'année également?
cordialement,
Oui j'ai la version 2016, oui l'année compte également.
Voici un fichier a essayer :
Merci pour ta réponse mais malheureusement la macro supprime toutes les lignes même si la date est de la semaine 23
A tester:
Sub test()
Dim tablo(), New_tab()
With Worksheets("Feuil1")
derlgn = .Range("A" & Rows.Count).End(xlUp).Row
tablo = .Range("A1:A" & derlgn).Value2
k = 0
For i = 2 To UBound(tablo, 1)
If Year(CDate(tablo(i, 1))) < Year(CDate(Date)) Then
ReDim Preserve New_tab(k)
New_tab(k) = CDate(tablo(i, 1))
k = k + 1
ElseIf Year(CDate(tablo(i, 1))) = Year(CDate(Date)) Then
If CInt(Format(CDate(tablo(i, 1)), "ww", vbMonday, vbFirstFourDays)) < CInt(Format(CDate(Date), "ww", vbMonday, vbFirstFourDays)) Then
ReDim Preserve New_tab(k)
New_tab(k) = CDate(tablo(i, 1))
k = k + 1
End If
End If
Next i
.Rows(2).Resize(UBound(tablo, 1)).ClearContents
.Range("A2").Resize(UBound(New_tab, 1) + 1) = Application.Transpose(New_tab)
End With
End SubOn obtient le résultat inverse, j'ai inversé les signes dans le code et ça supprime bien sauf que le 3 juin 2019 est supprimé aussi alors qu'il ne devrait pas
Salut massari,
C'est presque ça mais pareil le 3 juin 2019 appartient à la semaine en cours