Changer l'année d'une date

[pierrof]

Bonjour

J'ai une colonne de mon projet contenant des dates de fins de contrats.
Le nombre de ligne peut variée d'une dixaine à plusieurs milliers.

A l'aide d'une macro je souhaite changer l'année 2020 en 2010.
Je joint un fichier exemple
Merci

 

[mromain]

Re : Changer l'année d'une date

bonjour pierrof,

je te propose ce code :

Sub test()
Dim nbLignes As Long, i As Long

    With ThisWorkbook.Sheets("Feuil1")
        nbLignes = .Range("E" & .Rows.Count).End(xlUp).Row
        
        For i = 10 To nbLignes
            If IsDate(.Range("E" & i)) Then
                If Year(.Range("E" & i)) = 2020 Then .Range("E" & i) = DateSerial(2010, Month(.Range("E" & i)), Day(.Range("E" & i)))
            End If
        Next i
    End With
End Sub

a+

 

[Pierrot93]

Re : Changer l'année d'une date

Bonjour pierrof, romain,

c'est fait alors je donne...

Option Explicit
Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E10:E" & Range("E65536").End(xlUp).Row)
    If IsDate(c) Then
        If Year(c) = 2020 Then c = DateSerial(2010, Month(c), Day(c))
    End If
Next c
Application.ScreenUpdating = True
End Sub

@+

 

[pierrof]

Re : Changer l'année d'une date

Bonjour Romain et rebonjour Pierrot

Encore une fois parfait et rapide

Merci encore

 

[Staple1600]

Re : Changer l'année d'une date

Bonsoir à tous


Une solution par formules

=SI(E10="";"";DATE(ANNEE(E10)-10*(ANNEE(E10)=2020);MOIS(E10);JOUR(E10)))