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

date depasser de 1 mois

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mitch
  • Date de début Date de début

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
M

Mitch

XLDnaute Occasionnel
Bonjour j'ai cette macro qui m'efface la ligne quand une date dans la colonne C et dépasser mais j'aurais voulu quelle s'efface que 1 mois après

Application.ScreenUpdating = False 'accélère l'éxecution et évite le scintillement de l'écran
Dim C As Date, i As Integer, imax As Integer 'déclarations
With Sheets("chantier posé")
imax = .Cells(Rows.Count, 4).End(xlUp).Row 'numéro de la dernière ligne saisie
For i = imax To 2 Step -1 'boucle en partant du bas
C = CDate(.Cells(i, 3)) 'date de la ligne en cours
If C < Now Then .Rows(i).EntireRow.Delete 'suppression de la ligne complète
Next i
 
Trier par date Trier par votes
Re : date depasser de 1 mois

Bonjour Mitch, bonjour le forum,

Un mois pile c'est compliqué car les mois n'ont pas le même nombre de jours... Si une solution avec 30 jours (ou 31 jours) te convient il suffit de remplacer la ligne :
Code: 
If C < Now Then .Rows(i).EntireRow.Delete 'suppression de la ligne complète
par
Code: 
If C + 30 < Now Then .Rows(i).EntireRow.Delete 'suppression de la ligne complète
 
Vote positif 0 Vote négatif
Re : date depasser de 1 mois

Salut Mitch et le forum
Si j'ai bien compris ton charabia, tu voudrais que quand la date en C est dépassée de plus d'un mois, on l'efface.

Quelques remarques : écrire en phonétique n'est pas le meilleur moyen de supprimer les erreurs d'interprétation que peuvent faire les dépanneurs.

Un extrait de code ne permet pas de le comprendre obligatoirement. Déjà avec toute la macro, sans explication de ce qu'elle doit faire, ce n'est pas facile... alors avec juste un lambeau...
Code: 
Application.ScreenUpdating = False 'accélère l'éxecution et évite le scintillement de l'écran

Dim C As Date, L As Long, Lmax As Long 'déclarations

With Sheets("chantier posé")
    Lmax = .Cells(Rows.Count, "D").End(xlUp).Row 'numéro de la dernière ligne saisie
    For L = Lmax To 2 Step -1 'boucle en partant du bas
        C = CDate(.Cells(L, "C")) 'date de la ligne en cours
        C = DateSerial(Year(C), Month(C) + 1, Day(C))
        If C < date Then .Rows(L).Delete 'suppression de la ligne complète
    Next L
Lambeau non testé
A+
 
Vote positif 0 Vote négatif
Re : date depasser de 1 mois

Bonjour le fil, bonjour le forum,

Merci Gorfael d'avoir complété ma réponse avec une solution intéressante que je vais tenter de retenir...
Par contre je n'ai pas compris tes remarques envers Mitch. Son explication me parraissait claire (malgré le et dépasser à la place de est dépassée...) et l'extrait de son code suffisant pour pouvoir lui répondre...
 
Vote positif 0 Vote négatif
Re : date depasser de 1 mois

Merci Robert 30 jours me convient parfaitement
Gorfael excuse moi c'est vrai que pour celui qui voit le message il lui faut un max d'indication je le ferais plus promis
 
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

A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
713
Aldonanou
A
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
  • Question Question
Microsoft 365 Soucis de format date
Réponses
2
Affichages
1 K
pompaero
A
  • Question Question
Microsoft 365 Lissage du budget sur nombre de jours du mois
2
Réponses
25
Affichages
4 K
aba2s
A
T
  • Résolu(e)
XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).
3 4 5
Réponses
71
Affichages
9 K
job75
R
  • Question Question
Boucles imbriquées et génération de classeur
Réponses
3
Affichages
757
Rafilo13
R
P
  • Résolu(e)
XL 2019 Copier-coller une plage de cellule fixe sur une autre feuille
Réponses
6
Affichages
1 K
Pieerre69
P
U
  • Question Question
[RÉSOLU] La dernière ligne du mois reste en couleur alors que...
Réponses
6
Affichages
1 K
Paritec
A
  • Question Question
VBA excel extraire le mois et l'année d'une date au format standard
2
Réponses
29
Affichages
11 K
Aimedija
A
M
  • Résolu(e)
XL 2016 Message d'erreur aléatoire pour les utilisateurs réseau -Excel 2016
Réponses
11
Affichages
2 K
Melidan2006
M
I
  • Question Question
Problème boucle sur plusieurs feuilles
Réponses
10
Affichages
2 K
cathodique
A
  • Question Question
Récupérer les horaires de travail le dimanche - multionglets
Réponses
2
Affichages
994
Averell1976
A
A
  • Question Question
Recherche de données sur une période pouvant s'étaler sur plusieurs onglets
Réponses
12
Affichages
2 K
ROGER2327
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
A
  • Question Question
Incrémentation indice de colonne bloqué à Z
Réponses
12
Affichages
2 K
AzoR
A
M
  • Question Question
faire évoluer code userform choix
Réponses
3
Affichages
1 K
MarcTer
M
V
  • Question Question
Excel VBA - Recherche derniere date
Réponses
5
Affichages
4 K
Vanrob
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…