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

suppression lignes en fonction des dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nice
  • 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
N

nice

Guest
Bonjour à tous,

Mes faibles connaissances en VBA ne me permettent pas de régler ce problème
J'ai une série de valeurs dans les cellules de la colonne A, séparées par des virgules
avec une date en 1ère valeur( en format anglais, Année, Mois, Jour).
Je veux seulement conserver les lignes correspondant à la date la plus récente dernier jour avec une macro.
(Le nombre de ligne pouvant varier)

( voir fichier joint)
Auriez vous la gentillesse de m'aider
Merci infiniment
 

Pièces jointes

Trier par date Trier par votes
Re : suppression lignes en fonction des dates

Bonjour


Puisque tu débutes en VBA

Saches que tu peux obtenir ce que tu souhaites sans macro en utilisant:
1) Données/Convertir
2) les fonctions AUJOURDHUI() et MIN

Intéressé par cette piste ?

Ou tu veux vraiment une macro ?
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Bonjour Nice, Staple, le forum,

Tu touveras ci joint ton fichier avec une macro te permettant de garder uniquement les lignes qui auront la meme date que celle de ta derniere ligne (d'apres ton fichier, les lignes sont importées chronoligiquement), les autres lignes seront supprimer.

Dans la macros tu trouveras tous les commentaires normalement nécessaire à la compréhension.

Bon dimanche à tous😎.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Merci Nyko
c'est exactement ce que je cherchais, et merci aussi pour tes commentaires
Pour ma compréhension, une question:
Pourquoi utilises tu la fonction CDATE qui transforme une chaine de caractères en date, alors que la partie isolée de gauche est déjà en format date?
Merci infiniment
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re, bonjour nyko283


Une macro donc
(en suivant la piste évoquée (et modifiée) plus bas)
Code: 
Sub test()
Dim crit&, fin&
fin = [A65536].End(3).Row
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 5), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9)), _
        TrailingMinusNumbers:=True
crit = Application.Max(Range("B1:B" & fin))
ActiveSheet.Range("B1:B" & fin).AutoFilter 1, "<" & crit, xlAnd
Selection.EntireRow.Delete
Columns(2).Delete
End Sub
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re
Merci infiniment
Ta macro fonctionne super
mais est il possible de l'utiliser sans sélectionner manuellement les cellules de la colonne A
Cordialement
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re


Juste pour infos: l'avantage d'utiliser Données/Convertir et d'extraire les dates
C'est qu'ensuite avec le filtre automatique , un vaste monde s'offre à toi
.
Cliques sur l'image pour plus de détails.

Pour répondre à ta question: oui on peut éviter la sélection.
EDITION: voici la macro modifiée en conséquence
Code: 
Sub test_2()
Dim crit&, fin&
Application.ScreenUpdating = False
fin = [A65536].End(3).Row
Range("A1:A" & fin).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 5), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9)), _
        TrailingMinusNumbers:=True
crit = Application.Max(Range("B1:B" & fin))
ActiveSheet.Range("B1:B" & fin).AutoFilter 1, "<" & crit, xlAnd
Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
Columns(2).Delete
Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Pour en revenir à CDATE,

En visuel, la chaine de caractere est une date mais pour Excel cela reste du texte ( tu peut le voir car il est entouré de guillemet) or les dates dans Excel est un nombre ( aujourd'hui nous somme le 08/05/2011 et bas pour Excel nous sommes le 40671 eme jour depuis le 1 janvier 1900) donc pour les comparer facilement, dans ton fichier je compare le dernier jour 40669(06/05/2011) et tous ce qui est plus petit 40668...

Mais il est vrai que l'on aurait pu comparer les chaines de caratères...
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Merci Nicolas pour cette explication
Est il possible aussi d'extraire de cette chaine la date , A, et C seulement

Gilbert




Gilbert
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re

nice à dit:
Est il possible aussi d'extraire de cette chaine la date , A, et C seulement
Cliquez pour agrandir...
Oui comme je l'ai déjà dit avec Données/Convertir 😉

Voila
Code: 
Sub Macro4()
Dim  fin&
Application.ScreenUpdating = False
fin = [A65536].End(3).Row

Range("A1:A" & fin).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 5), Array(2, 1), Array(3, 9), Array(4, 1), Array(5, 9), Array(6, 1)), _
        TrailingMinusNumbers:=True
Application.ScreenUpdating =True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re Nicolas
Il y a un petit souci
La macro me donne une erreur 9 à la ligne " maDate", j'utilise un très grand nombre de ligne (dans certains cas environ 60 000 lignes)
Peux tu regarder ?
Merci infiniment
Gilbert
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re


Et avec ma macro, il y aussi un petit souci ou pas ?

Concernant le code de nyko283
Modifies ainsi
Code: 
Dim i As Long
et aussi
Code: 
For i = Range("A65536").End(xlUp).Row To 1 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
1 K
pierrof
P
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
324
Nico Gre
N
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
236
sylvanu
F
  • Résolu(e)
XL 2019 répartition de factures en fonction des dates
2
Réponses
19
Affichages
954
fred996
F
H
  • Question Question
Microsoft 365 Gestion des lots en FIFO
2
Réponses
16
Affichages
597
hbb
H
  • Question Question
Microsoft 365 Mise en frome conditionnelle de lignes par dates différentes
2
Réponses
19
Affichages
707
TooFatBoy
G
  • Question Question
XL 2019 [Résolu] Somme de plusieurs lignes entre deux dates variables en colonnes
Réponses
5
Affichages
371
Jacky67
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
331
chris
H
  • Question Question
XL 2010 calcul du nombre de jours en fonction des dates
Réponses
8
Affichages
388
job75
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
847
Nino63
N
G
  • Question Question
Microsoft 365 Trier les noms par dates dans Excel : gérer les doublons pour des dates identiques
Réponses
6
Affichages
393
C'est papy Mougeot !
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
461
cathodique
C
  • Question Question
XL 2019 Calcul des heures selon une plage entre deux dates
Réponses
4
Affichages
420
cybertoys63
C
P
  • Question Question
Microsoft 365 calcul d age entre deux dates
Réponses
12
Affichages
680
job75
L
  • Résolu(e)
XL 2016 macro pour parcourir les lignes d'une colonne et a chaque changement extraire les donnees specifiques des colonnes adjacentes
Réponses
6
Affichages
436
Dranreb
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
813
floflatch22
F
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
  • Question Question
Microsoft 365 Récupérer des Dates
Réponses
9
Affichages
524
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…