Gestion de date

jpb388

XLDnaute Accro

• 15 Septembre 2011

• #2

Re : Gestion de date

Bonjour à tous

Code:

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Septembre 2011

• #3

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:

VB:

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.

 

Dernière édition: 15 Septembre 2011

Vote positif 0 Vote négatif

bbb38

XLDnaute Accro

• 15 Septembre 2011

• #4

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.

 

Pièces jointes

• Sebast_Gestion_dates.xlsm

  100.1 KB · Affichages: 62

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 15 Septembre 2011

• #5

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.

Cliquez pour agrandir...

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+

 

Dernière édition: 15 Septembre 2011

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Septembre 2011

• #6

Re : Gestion de date

Bonjour

si tu pouvais m'expliquer ce qui est faux

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 15 Septembre 2011

• #7

Re : Gestion de date

re
pas de problème
a+

 

Vote positif 0 Vote négatif

S

Sebast

XLDnaute Impliqué

• 15 Septembre 2011

• #8

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

 

Vote positif 0 Vote négatif

S

Sebast

XLDnaute Impliqué

• 15 Septembre 2011

• #9

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

 

Vote positif 0 Vote négatif