Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fontion DATE sous VBA

Fontion DATE sous VBA

4 réponses
Avatar
Philou36
Bonjour a tous !

comment traduire =DATE(ANNEE(C5);MOIS(C5);JOUR(1)) pour obtenir le premier
jour du mois et =DATE(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 = "=DATE(YEAR(RC[-2]),MONTH(RC[-2]),DAY(1))"
Range("F5").Select
ActiveCell.FormulaR1C1 =
"=DATE(YEAR(RC[-3]),MONTH(RC[-3])+1,DAY(RC[-3])-1)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=DATE(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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de news:
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


Avatar
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" a écrit dans le message de news:
Bonsoir,

Une date valide en C5

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

--
Salutations
JJ


"Philou36" a écrit dans le message de news:
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






Avatar
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" a écrit dans le message de news:

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" a écrit dans le message de news:

Bonsoir,

Une date valide en C5

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

--
Salutations
JJ


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

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











Avatar
Jacky
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" a écrit dans le message de news: %
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" a écrit dans le message de news:
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" a écrit dans le message de news:
Bonsoir,

Une date valide en C5

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

--
Salutations
JJ


"Philou36" a écrit dans le message de news:
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