Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Microsoft 365Suppression ligne si date inférieure à la date du jour
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonsoir le forum,
J'aimerais créer une macro qui à l'ouverture du fichier supprime les lignes dont la date est inférieure à la date du jour. D'avance merci pour votre aide
J'aimerais créer une macro qui à l'ouverture du fichier supprime les lignes dont la date est inférieure à la date du jour. D'avance merci pour votre aide
Bonjour,
Ceci dans le ThisWorkbook devrait faire
En adaptant le codename de la feuille (Feuil1 dans l'exemple)
VB:
Private Sub Workbook_Open()
Dim plage
With Feuil1 ' A adapter
If .FilterMode Then .ShowAllData
If .[a4] = "" Then .[a4] = "Date"
Set plage = .Range("$A$4:$A$" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With
plage.AutoFilter Field:=1, Criteria1:="<" & CDbl(Date)
On Error Resume Next 'rien a filtrer
plage.Offset(1).Resize(plage.Rows.Count - 1).EntireRow.SpecialCells(xlCellTypeVisible).Delete
plage.AutoFilter
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD