OVH Cloud OVH Cloud

Fonctions ANNEE et AUJOURDHUI dans macro

5 réponses
Avatar
Sophie
Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et AUJOURDHUI. Y
a-t-il une déclaration de fonction à mettre dans la macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq chose
(sans doute faux !), la macro plante également.

Merci de votre aide -

5 réponses

Avatar
Philippe.R
Bonjour Sophie,

Sub anetjour()
[a1] = Date
[b1] = Year(Date)
End Sub

inscrira la valeur d'aujourd'hui en a1 et l'année en b1
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Sophie" a écrit dans le message de news:

Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et AUJOURDHUI. Y
a-t-il une déclaration de fonction à mettre dans la macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq chose
(sans doute faux !), la macro plante également.

Merci de votre aide -


Avatar
Daniel
Bonjour.
Pour ANNEE, tu as Year et pour AUJOURDHUI, tu as Date.
ex : l'année du jour : Year(Date)
Cordialement.
Daniel
"Sophie" a écrit dans le message de news:

Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et AUJOURDHUI. Y
a-t-il une déclaration de fonction à mettre dans la macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq chose
(sans doute faux !), la macro plante également.

Merci de votre aide -


Avatar
GD
Bonsour® Sophie
il va falloir t'habituer au fait que VBA cause grand-Breton ....;o)))
pour utiliser les fonctions de feuilles de calculs plusieurs possibilités
Sub toto()
MsgBox Evaluate("=YEAR(TODAY())")
MsgBox Year(Now)
[A1].Formula = "=YEAR(TODAY())"
MsgBox [A1]
[A1].FormulaLocal = "=Année(aujourdhui())"
MsgBox [A1]
End Sub
sinon les fonctions VBA sont dans l'aide
dans VBE touche F1 voir year, date, now etc...

au passage une fonction perso pour voir l'equivalent anglais d'une formule
Function lireformule(ref)
lireformule = "'" & ref.Formula
End Function

@+

Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et
AUJOURDHUI. Y a-t-il une déclaration de fonction à mettre dans la
macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq
chose (sans doute faux !), la macro plante également.

Merci de votre aide -


Avatar
Daniel
Bonjour, GD.
Hé oui, quoique le langage VBA soit l'anglais, il est réconfortant de voir
que l'emploi des toto, tata, titi et autres tutu soit la "french touch", la
marque des développeurs francophones. ;-)))
Daniel
"GD" a écrit dans le message de news:
%
Bonsour® Sophie
il va falloir t'habituer au fait que VBA cause grand-Breton ....;o)))
pour utiliser les fonctions de feuilles de calculs plusieurs possibilités
Sub toto()
MsgBox Evaluate("=YEAR(TODAY())")
MsgBox Year(Now)
[A1].Formula = "=YEAR(TODAY())"
MsgBox [A1]
[A1].FormulaLocal = "=Année(aujourdhui())"
MsgBox [A1]
End Sub
sinon les fonctions VBA sont dans l'aide
dans VBE touche F1 voir year, date, now etc...

au passage une fonction perso pour voir l'equivalent anglais d'une formule
Function lireformule(ref)
lireformule = "'" & ref.Formula
End Function

@+

Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et
AUJOURDHUI. Y a-t-il une déclaration de fonction à mettre dans la
macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq
chose (sans doute faux !), la macro plante également.

Merci de votre aide -






Avatar
Sophie
Merci à tous pour vos réponses, ça marche parfaitement bien maintenant !
Je n'avais vraiment pas pensé au pb de langue !

"Daniel" wrote:

Bonjour, GD.
Hé oui, quoique le langage VBA soit l'anglais, il est réconfortant de voir
que l'emploi des toto, tata, titi et autres tutu soit la "french touch", la
marque des développeurs francophones. ;-)))
Daniel
"GD" a écrit dans le message de news:
%
Bonsour® Sophie
il va falloir t'habituer au fait que VBA cause grand-Breton ....;o)))
pour utiliser les fonctions de feuilles de calculs plusieurs possibilités
Sub toto()
MsgBox Evaluate("=YEAR(TODAY())")
MsgBox Year(Now)
[A1].Formula = "=YEAR(TODAY())"
MsgBox [A1]
[A1].FormulaLocal = "=Année(aujourdhui())"
MsgBox [A1]
End Sub
sinon les fonctions VBA sont dans l'aide
dans VBE touche F1 voir year, date, now etc...

au passage une fonction perso pour voir l'equivalent anglais d'une formule
Function lireformule(ref)
lireformule = "'" & ref.Formula
End Function

@+

Bonjour,

Dans une macro je voudrais utiliser les fonctions ANNEE et
AUJOURDHUI. Y a-t-il une déclaration de fonction à mettre dans la
macro ?
Quand je ne mets rien, la macro plante ; quand j'essaie de mettre qq
chose (sans doute faux !), la macro plante également.

Merci de votre aide -