Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher date - (moins) x jours

Créer une discussion

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 !

S'inscrire

hypo78

XLDnaute Impliqué
Bonjour à tous,

je cherche à supprimer les lignes dont la cellule en colonne a est égale à la date -120 jours.

ex : nous sommes le 17 sept 2014, toutes les lignes contenant en colonne a une date inférieure au 21 mai 2014 doivent être supprimées.

Je pensais à çà :

Code: 
 Sub ligneerase()
With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: End With

Sheets("Piquets2").Activate

Dim c As Range
For Each c In Range("A1", [A65000].End(xlUp))
If Now - 120 > c And c.Offset(, 1) <> "" Then Rows(c.Row).Select
Selection.Delete Shift:=xlUp
Next
With Application: .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: End With
End Sub

mais la suppression est aléatoire....

merci pour votre aide
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Rechercher date - (moins) x jours

bonjour,

deux soucis:

1)
Code: 
If Now - 120 > c And c.Offset(, 1) <> "" Then Rows(c.Row).Select
Selection.Delete Shift:=xlUp

si le test est vrai, on sélectionne la ligne; et quelque soit le résultat du test on supprime la sélection qui n'est pas forcemment issue du test immédiatement précédent

il faudrait
Code: 
If Now - 120 > c And c.Offset(, 1) <> "" Then 
  Rows(c.Row).Select
  Selection.Delete Shift:=xlUp
End If
on pourrait aussi supprimer la sélection puis la suppression par une seule instruction:
Rows(c.Row).Delete Shift:=xlUp

et alors écrire (sans End If)
Code: 
If Now - 120 > c And c.Offset(, 1) <> "" Then Rows(c.Row).Delete Shift:=xlUp

2)
La boucle For Each commence par le début de la plage (soit A1) cellule après cellule

si le test est vrai pour A1, on supprime la ligne 1 . la valeur de A2 passe alors en ligne 1 et ne sera donc pas traitée et ainsi de suite.

Il faut donc commencé par la fin de la plage par une boucle For ( je ne sais pas si on peut définir le sens de la plage avec for each)

Code: 
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Now - 120 > Cells(i, 1) And Cells(i, 1).Offset(, 1) <> "" Then Rows(i).Delete Shift:=xlUp
Next


A+
 
Vote positif 0 Vote négatif
Re : Rechercher date - (moins) x jours

Bonjour, hypo78, Paf, le Forum,

Ou bien comme ceci :

Code: 
Option Explicit
Sub Ligne_supprimer_selon_date()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Date - 120 >= Range("a" & i) Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Rechercher date - (moins) x jours

Je viens de tester la solution de DoubleZero qui fonctionne, je n'ai pas encore testé celle de Paf mais tes explications me permettent de progresser.

Petite problématique du même ordre : rechercher la date du jour et si les 10 lignes suivantes ne contiennent pas de date remplir ces cellules de jour en jour. (je cherche aussi de mon côté mais je suis sûr que vous serez plus rapide que moi... 😉)
 
Vote positif 0 Vote négatif
Re : Rechercher date - (moins) x jours

j'ai réussi avec ce code

Code: 
 Private Sub chargement()

Dim i As Integer
Dim j As Integer

Sheets("Piquets2").Activate

Do
Cells(i + 1, 1).Activate
If Cells(i + 1, 1) = Date Then
ActiveWindow.ScrollRow = i + 1
Exit Do
End If
i = i + 1
Loop

For j = 1 To 10

ActiveCell.Offset(j, 0) = ActiveCell.Value + j

Next j

End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher date - (moins) x jours

Re,

doublezero en adaptant ton code à mon fichier original, je rencontre un problème tout bête.
ma recherche commence en A2 et non en A1. j'ai contourné le problème en mettant a1 = aujourdhui() mais bon si je pouvais l'intégrer au code 😉

merci d'avance

edit: je pense avoir trouvé

Code: 
 For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Question Question
Microsoft 365 Amélioration d'un code
Réponses
6
Affichages
737
Stéfane
S
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
767
Usine à gaz
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
737
un internaute
U
I
  • Question Question
XL 2019 Envoyer image et mise en forme conditionnelle dans un mail
Réponses
1
Affichages
1 K
patricktoulon
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
B
  • Résolu(e)
XL 2016 Selectionner date la plus proche au supérieur de la date d'aujourd'hui
Réponses
5
Affichages
1 K
babacool22
B
O
  • Question Question
Microsoft 365 Erreur 1004 la méthode select à échouée
Réponses
1
Affichages
947
fanch55
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
N
  • Question Question
Microsoft 365 Rendre une macro plus flexible
2
Réponses
16
Affichages
2 K
netparty
N
A
  • Question Question
Microsoft 365 Envoyer un email automatique a date d'échéance d'une cellule Excel
2
Réponses
17
Affichages
4 K
Abdenour
A
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
E
  • Question Question
Microsoft 365 Problème format date dans tableau
Réponses
3
Affichages
1 K
etpisculrien
E
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
L
  • Question Question
Microsoft 365 Optimiser export données vers nouveau classeur
Réponses
1
Affichages
1 K
Ludwig74
L
I
  • Résolu(e)
XL 2019 Rapprochement
Réponses
3
Affichages
1 K
iliess
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…