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

Merci pour ta réponse
Ton code fonctionne très bien
J'ai toujours l' erreur 9 en modifiant le code de Nicolas
Très Cordialement
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

la valeur A de ma chaîne est en fait une heure au format 00:00
ma chaîne est la suivante : la date,00:00,nombre1,nombre2,nombre3
Cela peut il provoquer cette erreur 9??
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re

PS:
J'avais oublié cette modif à faire également
Code: 
maDate = CDate(Replace(Left(Cells(ThisWorkbook.Worksheets("Feuil1").Range("A65356").End(xlUp).Row, 1).Value, 10), ".", "/"))

Un doute vient de m'assaillir
Et j'ai testé
Si pas de feuille nommée Feuil1
alors moi aussi j'ai une erreur d'éxécution 9

Donc, chez toi qu'en est-il ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re

Ce n'est pas plutôt
2011.02.23,23:30,1.37504,1.37623,1.37499,1.37612,6.32

Tu as vu ma question dans mon précédent message ?

Tu as bien une feuille nommée Feuil1 dans ton classeur ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re


Peux-tu tester ceci (sue une copie de ton fichier d'origine), stp ?

Code: 
Sub eclater_cellules()
With Range([A1], [A65536].End(xlUp))
    .TextToColumns .Cells(1, 2), 1, , , , , , , , , Array(1, 5), "."
End With
End Sub
 
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re


Et celui-là
Code: 
Sub eclater_cellules_TESTOK()
Dim crit&, fin&
Application.ScreenUpdating = False
fin = [A65536].End(3).Row
    With ActiveSheet
        .Range([A1], [A65536].End(xlUp)).TextToColumns .Cells(1, 2), 1, , , , , , , , , Array(1, 5), "."
        crit = Application.Max(.Range("B1:B" & fin))
        .Range("B1:B" & fin).AutoFilter 1, "<" & crit, xlAnd
        .Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .Columns(1).Delete
    End With
End Sub
Chez moi, tout se passe sans problème.

Ici résultat avec la macro: eclater_cellules
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re
la macro m'enlève la 1ère ligne et ainsi de suite a chaque fois que je la lance
On va y arriver, j'en suis sur
et encore un grand merci pour ton aide!!

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

Re

Damned! j'avais, oublié le piège du TextToColumns

Voici une proc à garder sous le coude (pour sortir du piège)
Code: 
Sub ClearTextToColumns()
    On Error Resume Next
    If IsEmpty(Range("A1")) Then Range("A1") = "XYZZY"
    Range("A1").TextToColumns Destination:=Range("A1"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=False, _
        Other:=False, _
        OtherChar:=""
    If Range("A1") = "XYZZY" Then Range("A1") = ""
    If Err.Number <> 0 Then MsgBox Err.Description
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suppression lignes en fonction des dates

Re


Bon normalement, cela doit fonctionner cette fois-ci
(J'évite le piège en amont par sureté 😉 )
Code: 
Sub eclater_cellules_TESTOK_BIS()
Dim crit&, fin&
Application.ScreenUpdating = False
ClearTextToColumns
fin = [A65536].End(3).Row
    With ActiveSheet
        .Range([A1], [A65536].End(xlUp)).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, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True
        crit = Application.Max(.Range("B1:B" & fin))
        .Range("B1:B" & fin).AutoFilter 1, "<" & crit, xlAnd
        .Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .Columns(1).Delete
    End With
End Sub
Code: 
Sub ClearTextToColumns()
    On Error Resume Next
    If IsEmpty(Range("A1")) Then Range("A1") = "XYZZY"
    Range("A1").TextToColumns Destination:=Range("A1"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=False, _
        Other:=False, _
        OtherChar:=""
    If Range("A1") = "XYZZY" Then Range("A1") = ""
    If Err.Number <> 0 Then MsgBox Err.Description
End Sub
 
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
323
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
235
sylvanu
F
  • Résolu(e)
XL 2019 répartition de factures en fonction des dates
2
Réponses
19
Affichages
953
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…