OVH Cloud OVH Cloud

vba-annee non civile

10 réponses
Avatar
Pierre.M
Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre

10 réponses

Avatar
JLuc
*Bonjour Pierre.M*,
Et bien, tu rentre la date voulue à la mimine :-?

Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire l'annee
suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le 30.09.07.

Merci pour le conseil.

Pierre


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
FxM
Bonsoir Pierre,

En considérant que ta date est en cellule B1 :
range("A1") = year(dateserial(year([B1]),month([B1])+3,day([B1]))

Autrement dit, prendre l'année de la date + 3 mois.

@+
FxM



Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le 30.09.07.

Merci pour le conseil.

Pierre



Avatar
Daniel.M
Bonsoir Pierre,

Il y a ça :
Range("B1") = Year(Range("A1")) - (Month(Range("A1")) > 9)

En formule en B1:
=ANNEE(A1)+(MOIS(A1)>9)

Salutations,

Daniel M.

"Pierre.M" wrote in message
news:452e7305$0$5065$
Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le 30.09.07.

Merci pour le conseil.

Pierre



Avatar
Pierre.M
Bien-sur!!! C'est si evident, apres coup. Et pas besoin de s'y
connaitre en xl ou vba. J'ai honte...
Merci beaucoup.

Pierre



On 2006-10-12 22:20:59 +0200, FxM said:

Bonsoir Pierre,

En considérant que ta date est en cellule B1 :
range("A1") = year(dateserial(year([B1]),month([B1])+3,day([B1]))

Autrement dit, prendre l'année de la date + 3 mois.

@+
FxM



Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre




Avatar
Pierre.M
Merci quand meme ;-)))

Pierre



On 2006-10-12 20:46:35 +0200, JLuc said:

*Bonjour Pierre.M*,
Et bien, tu rentre la date voulue à la mimine :-?

Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre




Avatar
Pierre.M
Je vais tester ca aussi pour me perfectionner meme si j'ai deja une
solution qui marche.
Merci beaucoup a toi aussi.

Pierre




On 2006-10-13 05:23:29 +0200, "Daniel.M"
said:

Bonsoir Pierre,

Il y a ça :
Range("B1") = Year(Range("A1")) - (Month(Range("A1")) > 9)

En formule en B1:
=ANNEE(A1)+(MOIS(A1)>9)

Salutations,

Daniel M.

"Pierre.M" wrote in message
news:452e7305$0$5065$
Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre




Avatar
Pierre.M
Bien-sur ca fonctionne aussi. Tres ingenieux, mais peut-etre moins
"evident" que la solution de FxM.
Merci.

Pierre



On 2006-10-13 05:23:29 +0200, "Daniel.M"
said:

Bonsoir Pierre,

Il y a ça :
Range("B1") = Year(Range("A1")) - (Month(Range("A1")) > 9)

En formule en B1:
=ANNEE(A1)+(MOIS(A1)>9)

Salutations,

Daniel M.

"Pierre.M" wrote in message
news:452e7305$0$5065$
Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre




Avatar
marcel
En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le 30.09.07.


En A1
=SI(MOIS(AUJOURDHUI())>9;ANNEE(AUJOURDHUI())+1;ANNEE(AUJOURDHUI()))

Avatar
Pierre.M
Merci pour ton aide, mais c'est en vba que j'en avais besoin.
Je garde quand meme ton idee pour une autre fois.
Merci encore.

Pierre


On 2006-10-13 16:43:13 +0200, "marcel" said:

=SI(MOIS(AUJOURDHUI())>9;ANNEE(AUJOURDHUI())+1;ANNEE(AUJOURDHUI()))


Avatar
FxM
Bien-sur!!! C'est si evident, apres coup. Et pas besoin de s'y connaitre
en xl ou vba.
C'est souvent comme cela.


J'ai honte...
Il ne faut pas ! C'est plus une tournure d'esprit qu'autre chose. Et JPS

dirait que mon neurone n'est pas seulement tourné, il est tordu ;o))

Merci beaucoup.
Pierre


@+
FxM





On 2006-10-12 22:20:59 +0200, FxM said:

Bonsoir Pierre,

En considérant que ta date est en cellule B1 :
range("A1") = year(dateserial(year([B1]),month([B1])+3,day([B1]))

Autrement dit, prendre l'année de la date + 3 mois.

@+
FxM



Bonjour tous,

Encore un soucis de date; quelqu'un saurait-il me dire comment ecrire
l'annee suivante en vba?

En A1 j'aimerais avoir l'annee X si on est entre le 01.10.(X-1) et le
30.09.(X), autrement dit 2007 si on est entre le 01.10.06 et le
30.09.07.

Merci pour le conseil.

Pierre