Fontion DATE sous VBA

Le
Philou36
Bonjour a tous !

comment traduire ÚTE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le premier
jour du mois et ÚTE(ANNEE(C5);MOIS(C5)+1;JOUR(1)-1) pour obtenir le
dernier jour du mois ??

avec l'enregistreur de macro cela me donne ca :
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 =
"ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(1)-1)"
Range("F6").Select


Il y a t il plus simple ??

Un grand merci par avance pour vos reponses

Bonne fin de week end !

Amicalement
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21668031
Bonsoir,

Une date valide en C5

[F5] = DateSerial(Year([c5]), Month([c5]), 1)
[F6] = DateSerial(Year([c5]), Month([c5]) + 1, 0)

--
Salutations
JJ


"Philou36"
Bonjour a tous !

comment traduire ÚTE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le premier jour du mois et
ÚTE(ANNEE(C5);MOIS(C5)+1;JOUR(1)-1) pour obtenir le dernier jour du mois ??

avec l'enregistreur de macro cela me donne ca :
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(1)-1)"
Range("F6").Select


Il y a t il plus simple ??

Un grand merci par avance pour vos reponses

Bonne fin de week end !

Amicalement


Jacky
Le #21668051
Re..
S'il faut absolument la formule dans la cellule
'-------------
[F5].Formula = "Úte(Year(c5), Month(c5), 1)"
[F6].Formula = "Úte(Year(c5), Month(c5) + 1, 0)"
'---------------


--
Salutations
JJ


"Jacky"
Bonsoir,

Une date valide en C5

[F5] = DateSerial(Year([c5]), Month([c5]), 1)
[F6] = DateSerial(Year([c5]), Month([c5]) + 1, 0)

--
Salutations
JJ


"Philou36"
Bonjour a tous !

comment traduire ÚTE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le premier jour du mois et
ÚTE(ANNEE(C5);MOIS(C5)+1;JOUR(1)-1) pour obtenir le dernier jour du mois ??

avec l'enregistreur de macro cela me donne ca :
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(1)-1)"
Range("F6").Select


Il y a t il plus simple ??

Un grand merci par avance pour vos reponses

Bonne fin de week end !

Amicalement






Philou36
Le #21668271
Bonjour Jacky,

Merci pour tes réponses mais je me rends compte qu'il serait préférable
d'avoir la date en dur.
Toutes mes excuses pour mon message de départ incomplet.
Bon dimanche.
AMicalement

"Jacky"
Re..
S'il faut absolument la formule dans la cellule
'-------------
[F5].Formula = "Úte(Year(c5), Month(c5), 1)"
[F6].Formula = "Úte(Year(c5), Month(c5) + 1, 0)"
'---------------


--
Salutations
JJ


"Jacky"
Bonsoir,

Une date valide en C5

[F5] = DateSerial(Year([c5]), Month([c5]), 1)
[F6] = DateSerial(Year([c5]), Month([c5]) + 1, 0)

--
Salutations
JJ


"Philou36"
Bonjour a tous !

comment traduire ÚTE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le
premier jour du mois et ÚTE(ANNEE(C5);MOIS(C5)+1;JOUR(1)-1) pour
obtenir le dernier jour du mois ??

avec l'enregistreur de macro cela me donne ca :
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 =
"ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 =
"ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(1)-1)"
Range("F6").Select


Il y a t il plus simple ??

Un grand merci par avance pour vos reponses

Bonne fin de week end !

Amicalement











Jacky
Le #21668471
Re...
...mais je me rends compte qu'il serait préférable d'avoir la date en dur.
Ce que fait la première proposition, non?

Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201005/cij5NWvCss.xls

--
Salutations
JJ


"Philou36"
Bonjour Jacky,

Merci pour tes réponses mais je me rends compte qu'il serait préférable d'avoir la date en dur.
Toutes mes excuses pour mon message de départ incomplet.
Bon dimanche.
AMicalement

"Jacky"
Re..
S'il faut absolument la formule dans la cellule
'-------------
[F5].Formula = "Úte(Year(c5), Month(c5), 1)"
[F6].Formula = "Úte(Year(c5), Month(c5) + 1, 0)"
'---------------


--
Salutations
JJ


"Jacky"
Bonsoir,

Une date valide en C5

[F5] = DateSerial(Year([c5]), Month([c5]), 1)
[F6] = DateSerial(Year([c5]), Month([c5]) + 1, 0)

--
Salutations
JJ


"Philou36"
Bonjour a tous !

comment traduire ÚTE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le premier jour du mois et
ÚTE(ANNEE(C5);MOIS(C5)+1;JOUR(1)-1) pour obtenir le dernier jour du mois ??

avec l'enregistreur de macro cela me donne ca :
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "ÚTE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(1)-1)"
Range("F6").Select


Il y a t il plus simple ??

Un grand merci par avance pour vos reponses

Bonne fin de week end !

Amicalement















Publicité
Poster une réponse
Anonyme