Gestion de date

[Sebast]

Bonsoir,

je n'arrive pas à supprimer des enregistrements quand le critère de date est composé de mois et année (voir le fichier joint).
Merci beaucoup pour vos lumières

Sebast

 

[jpb388]

Re : Gestion de date

Bonjour à tous

Sub Combinaison()
Dim DateCible As Long
Dim Jahr As Long
Dim Monat As Long
Sheets("Paramètres").Activate
DateCible = Range("B11").Value
Jahr = Year(DateCible)
Monat = Month(DateCible)

Dim i As Long
Sheets("Travail").Activate
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
Select Case Year(Cells(i, 3))
    Case Is > Jahr
        Rows(i).Delete
    Case Is = Jahr
        If Month(Cells(i, 3)) > Monat Then Rows(i).Delete
End Select
Next i
End Sub

a+

 

[Dranreb]

Re : Gestion de date

Bonsoir
Il y a un problème assez connu de récupération de valeurs dates de cellules.
Essayez comme ça:

If Month(CDate(Cells(i, 3))) > Monat And Year(CDate(Cells(i, 3))) > Jahr Then Rows(i).Delete

Cela dit personnellement je préfèrerait me fabriquer une DateSerial(Jahr, Monat+1, 0) au début et comparer les CDate(Cells(i, 3)) entiers à cette date.
À+

Edit: Ah mais oui, jpb388, en plus c'est faux, ma dernière suggestion est presque obligatoire.

 

[bbb38]

Re : Gestion de date

Bonjour Sebast, le forum,
Avec une supposition : Si l’on désire effacer le mois et l’année d’une date désirée, on indique comme date cible le dernier jour.
Exemple : mai 2023, on indique 31/05/2023
Fichier ci-joint - Macro « Suppression » ou Touche de raccourci Ctrl +b
Cordialement,
Bernard
Mes salutations à jpb388, et Dranreb.

 

[jpb388]

Re : Gestion de date

Bonjour Sebast, le forum,bbb38, et Dranreb

Danreb

Edit: Ah mais oui, jpb388, en plus c'est faux, ma dernière suggestion est presque obligatoire.

si tu pouvais m'expliquer ce qui est faux cela serai sympa et me permettrai de m'améliorer

bbb38
ta macro est + simple comparer les deux valeur j'aurai du y penser
a+

 

[Dranreb]

Re : Gestion de date

Bonjour

si tu pouvais m'expliquer ce qui est faux

Non, non, c'était ce que je proposais mois qui était faux, d'où j'en concluais qu'il valait mieux comparer carrément des dates. Désolé du malentendu.
A+

 

[jpb388]

Re : Gestion de date

re
pas de problème
a+

 

[Sebast]

Re : Gestion de date

Salut bbb38,
un grand merci pour ton aide, ça marche parfaitement et ça m'enlève une sacrée épine vu le nombre de données à traiter. Ma demande pouvait paraître triviale mais je débute en vba : ton code est si limpide que "ça coule de source" !
Encore merci

 

[Sebast]

Re : Gestion de date

Salut Danreb,

merci pour ta contribution, le code de bbb38 fonctionne et c'est super ! Encore merci d'avoir fait avancer la solution