Date - condition entre la date du jour et la date existante dans un tableau

Bonjour,

je permets de vous écrire car j'ai un soucis du macros avec les conditions date

explication : si la date dans la colonne A est plus que de 2 ans par rapport à la date du jour alors saisir dans la colonne B " plus de 2 ans d'ancienneté" sinon si la date est moins de 2 ans alors saisir "moins de 2 ans d'ancienneté"

le code saisi sur tous les lignes " plus de 2 ans" , il y a un soucis sur la 2 ° condition après elseif

normalement sur les 3 premières ligne en bleu doit être "moins de 2 ans"

Sub commentaire()

Dim date1 As Date
Dim date2 As Date

Dim i As Long

Feuil4.Select

date1 = Format(Date, "dd/mm/yyyy")  'date du jour (04/03/2023)

date2 = date1 - 2                                      'date du jour - 2ans ( 04/03/2020 )

For i = 2 To 100

    If Cells(i, 1).Value < date2 Then
        Cells(i, 2).Value = "plus de 2 ans d'anciénneté"

       ElseIf Cells(i, 1).Value < date1 And Cells(i, 1).Value > date2 Then
        Cells(i, 2).Value = "moins de 2 ans d'anciénneté"

    End If

Next i

End Sub

ci-joint le fichier macros , merci de votre aide

Hello,

Une proposition par formule

PS : Quand tu fais "Date1 - 2" tu lui soustraits 2 jours. Essaie avec "Date1 - 730" qui correspond à 2 ans

@+

Edit : quand tu utilises l'éditeur en mode pas à pas (F8) et que tu vas sur date 2 tu vois ça :

Bonjour,

En complément de la réponse de Baroute78.

Ton souci dans le code est lié à : Date2 = Date1 - 2 => Date1- 2 ( jours pas ans).

Pour Date1, il suffit de lui affecter directement Date : Date1 = Date.
Pour Date2 : Date2 = DateSerial(Year(Date1) - 2, Month(Date1), Day(Date1)).

@Baroute78, désolé, je n'avais pas vu la fin de ton post ...

bonjour

une contribution

=SI(AUJOURDHUI()-MOIS.DECALER(A2;24)<0;"Moins de 2 ans d'ancienneté";"plus de 2 ans d'ancienneté")

cordialement

Bonsoir,

Merci à tous, toutes les propositions fonctionnent , le pb c'était en effet 730 au lieu de 2 comme vous avez signalé.

merci encore