Annee en VBA

[Hoareau]

Bonjour

Sub test_date()
[A10].Application.WorksheetFunction.Year (Range("B10"))
End Sub
Ci dessus ne fonctionne pas, comment faire pour avoir l'année
merci

 

[Pierrot93]

Re : Annee en VBA

Bonjour,

regarde le code ci-dessous, il faut bien sur une date reconnue come telle dans la cellule b10 de la feuille active :

MsgBox Year(Range("B10").Value)

bon après midi
@+

 

[Pierrot93]

Re : Annee en VBA

Re,

pour la renvoyer dans une cellule :

Range("A10").Value = Year(Range("B10").Value)

 

[Hoareau]

Re : Annee en VBA

Impeccable

merci

 

[Staple1600]

Re : Annee en VBA

Bonsoir

Hoareau
Pourquoi une macro et pas une formule avec ANNEE ?

Si vraiment besoin VBA, alors pour le fun 😉

Sub Macro1()
Range("A1").FormulaR1C1 = "=YEAR(R[9]C[1])"
End Sub

Sub Macro2()
[A1] = ["=YEAR(R[9]C[1])"]
End Sub

Sub Macro3()
[A1] = ["=YEAR(B10)"]
End Sub