variable dans formule vba

[cubiculum]

bonjour,

je souhaiterais insérer la valeur d'une variable dans une formule en VBA :

date="25/12/2003"
cells(1,1).formulalocal="=annee(date)"

quand je met le code ci-dessus il considere date comme la valeur et donc la valeur de la cellule est =annee(date) au lieu de annee(25/12/2003).

Merci d'avance!

 

[PascalXLD]

Re : variable dans formule vba

Bonjour

essaies ainsi

Madate="25/12/2003"
cells(1,1).formulalocal="=annee(" & Madate & ")"

J'ai changé le nom de ta variable car Date en VBA c'est réservé cela donne la date du jour

Bon courage

 

[cubiculum]

Re : variable dans formule vba

merci pour la syntaxe mais le Probleme c'est qu'il me retourne 1900 au lieu de 2003!

 

[PascalXLD]

Re : variable dans formule vba

Re

modifies ainsi

Sub toto()
Dim MaDate As Date
MaDate = "25/12/2003"
Cells(1, 1).FormulaLocal = "=annee(""" & MaDate & """)"
End Sub

Bon courage

 

[cubiculum]

Re : variable dans formule vba

merci beaucoup, ca marche!

maintenant je voudrais juste mettre le résultat de la formule dans une variable plutot que dans une cellule (cells(1,1))

 

[PascalXLD]

Re : variable dans formule vba

Re

dans ce cas là tu peux faire plus simple

Sub toto()
Dim MaDate As Date
Dim MonAnnee As Integer
MaDate = "25/12/2003"
MonAnnee = Year(MaDate)
End Sub