extraire l'année d'une date même en texte en VBA

[pascal21]

bonjour le forum

  plage6.Value = Formulalocal = "=texte('a'& Y;'aaaa')"

avec ce code, j'essaye d'extraire l'année d'une date qui ce trouve dans la colonne A
Y étant une variable pour une ligne
mais le résultat donne FAUX
comment obtenir l'année d'une date même en texte (c'est pour du tri) en vba
edit:
je viens de faire un essai avec

FormulaLocal = "=texte(a" & Y & ";""aaaa"")"

mais pareil, ça retourne toujours FAUX
merci

 

[Spitnolan08]

Bonjour le Forum, Pascal,

si bien compris la question :

Sub a()
b = Format(Cells(y, "A").Value, "yyyy")
Cells(y, "B") = b
End Sub

à adapter bien sûr...

 

[pascal21]

 Dim Dte As Date
Dim Anee As Integer
Dte = DateValue(Range("a" & Y).Value)
Anee = Year(Dte)
  plage6.Select
  plage6.Value = Anee

bon j'ai trouvé avec cette solution là et ça fonctionne
bonjour Spitnolan08 les messages se sont croisés merci pour ton aide

 

[job75]

Bonjour Pascal, Spitnolan08,

Même logique que sur ce fil :

https://www.excel-downloads.com/thr...-avec-application-worksheetfunction.20017059/

en changeant juste la formule :

Sub Année()
Range("AE3:AE" & Rows.Count) = "" 'RAZ
With Range("AE3:AE" & Range("A" & Rows.Count).End(xlUp).Row)
  If .Row < 3 Then Exit Sub
  .Formula = "=YEAR(A3)"
  .Value = .Value
End With
End Sub

Faudrait quand même que les solutions qu'on te donne Pascal servent à quelque chose...

A+