XL 2013 Extraction d'une chaine de caractères

[maval]

Bonjour

Je suis à la recherche d'une formule ou en VBA pour extraire l'année d'une date composé come ceci: "15 mai 2016"

Je vous remercie d'avance

 

[Chris401]

Re : Extraction d'une chaine de caractères

Bonjour

Par formule :

=ANNEE(D2)

A tirer vers le bas

Le code :

Sub Lannee()
For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
Range("N" & i) = Format(Range("D" & i), "yyyy")
Next i
End Sub

Cordialement
Chris

 

[maval]

Re : Extraction d'une chaine de caractères

Bonjour Chris

je te remercie c'est Nickel

Bon dimanche