Année trsnsformée en date

falafala

XLDnaute Nouveau
Bonjour à tous,

Dans une colonne j'ai des années (par exemple 1980).

Je voudrais qu'une macro aille copier cette colonne dans une autre colonne sous le format date (1980 devient 01/01/1980).

Du coup, ce sera toujours le 1er janvier XXXX.

Je vous remercie par avance.

Fala fala
 

jp14

XLDnaute Barbatruc
Re : Année trsnsformée en date

Bonjour


A tester
une formule

= "1/1/" & cellule qui contient la date

par macro

Code:
Sub travdemande()
Dim nomfeuille1 As String
Dim cellule As Range
nomfeuille1 = ActiveSheet.Name
With Sheets(nomfeuille1)

    For Each cellule In .Range("a2:a" & .Range("a65536").End(xlUp).Row)
        If IsDate(cellule.Value) Then
            .Range("e" & cellule.Row) = "1/1/" & Year(cellule.Value)
        Else
            .Range("e" & cellule.Row) = "1/1/" & cellule.Value
        End If
           
    Next cellule


End With
End Sub

JP
 

Discussions similaires

Réponses
4
Affichages
510

Statistiques des forums

Discussions
312 045
Messages
2 084 834
Membres
102 685
dernier inscrit
med_remi021