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

VBA comparaison date et suppression ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion c.clappier
  • 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
C

c.clappier

Guest
Bonjour,
Tout nouveau sur VBA, je souhaite réaliser un macro qui compare les dates inscrites dans les cellules de la colonne 2 à la date du jour, et qui, si la date est inférieure, supprime la ligne concernée.
Je voudrais que cette macro réalisé l'opération jusqu'à la dernière ligne. Ce que j'avais essayé de faire n'a, de toute évidence, pas fonctionné : rien ne s'est passé...
Merci beaucoup 🙂
 
Trier par date Trier par votes
Re : VBA comparaison date et suppression ligne

En fait j'avais réussi, à un détail près : la date du jour, pour laquelle j'avais créé une cellule avec aujourdhui() et que je comparais dans le code. Mais cela ne fonctionnait pas.
Voilà ce que j'ai donc fait :
Sub Macro1()
Dim x As Long
For x = 1800 To 1 Step -1
If Cells(x, 2) < Date Then
Rows(x).Delete
End If
Next x
End Sub

Petit détail : comment partir de la dernière ligne, et non plus de la ligne 1800 ?
Merci
 
Vote positif 0 Vote négatif
Re : VBA comparaison date et suppression ligne

Re,

Essayez :
VB: 
Sub Macro1()
 Dim x As Long
 Dim derlig As Long
 
 derlig = Range("B1048576").End(xlUp).Row
 For x = derlig To 1 Step -1
 If Range("b" & x).Value < Date Then
 Rows(x).Delete shift:=xlUp
 End If
 Next x
 End Sub
Et n'hésitez pas à joindre un bout de fichier lors de votre prochaine question🙂
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
327
aurejotrail
A
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
427
R1-
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
729
crocrocro
C
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
S
  • Résolu(e)
XL 2019 Figer une date si validation OK
Réponses
6
Affichages
849
sum01
S
E
  • Résolu(e)
Microsoft 365 Ajout et Suppression Date automatique
Réponses
9
Affichages
632
eric72
E
R
  • Résolu(e)
XL 2019 Recherche valeur (Critère date et ID) et copier valeur dans tableau dans la cellule correspondante
3 4 5
Réponses
66
Affichages
4 K
Rabeto
R
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
A
  • Résolu(e)
Microsoft 365 Suppression espace indésirable et avoir une date courte
Réponses
11
Affichages
800
AD95
A
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
M
  • Question Question
Microsoft 365 interdire l'ajout et la suppression de lignes et de colonnes en vba
Réponses
9
Affichages
600
Eric C
R
  • Résolu(e)
XL 2019 Convertir date en mois et année par macro
Réponses
5
Affichages
613
Rabeto
R
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
521
Casim
C
I
  • Résolu(e)
Microsoft 365 Suppression ligne en fonction de la date
Réponses
2
Affichages
511
ivan27
I
G
  • Question Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
952
Lolote83
L
A
  • Résolu(e)
Microsoft 365 Interpolation avec données date et pourcentage
Réponses
3
Affichages
767
Alex_P
A
G
  • Question Question
Microsoft 365 VBA mail automatique date échéance
2
Réponses
17
Affichages
2 K
don_pets
J
  • Question Question
XL 2016 macro pour remplir un calendrier à partir d'une liste d'évènements
Réponses
3
Affichages
705
julien6337
J
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
875
HANN
H
D
  • Résolu(e)
XL 2016 Mise en forme en VBA
Réponses
8
Affichages
726
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…