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

pascal21 · 25 Avril 2017

bonjour le forum

Code:

  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

Code:

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

mais pareil, ça retourne toujours FAUX
merci

Spitnolan08 · 25 Avril 2017

Bonjour le Forum, Pascal,

si bien compris la question :

Code:

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

à adapter bien sûr...

pascal21 · 25 Avril 2017

Code:

 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 · 25 Avril 2017

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 :

Code:

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+

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

pascal21

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

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

pascal21

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency