Microsoft 365 Formule excel vers vba

[PORCHER]

Bonjour,
Pourriez-vous m'aider à trouver la solution de la formule excel ci-dessous et l'écrire en VBA
=MOIS.DECALER(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());2);1)

FormulaR1C1= ????

Merci

 

[patricktoulon]

bonjour
question ambiguë
tu veux la même chose en VBA
ou encode la formule en VBA
par ce que c'est pas la même chose
si c'est pour encode la formule et l'implanter dans une cellule tu n'a besoins de personne pour ca
va dans ta cellule démarre l'enregistreur de macro /double click sur la formule pour l'editer et tape enter /arrête l'enregistrement
va dans vba le module qui vient de se créer tu a la retranscription de l'encode en vba de la formule

 

[sylvanu]

Bonjour Porcher,Patrick,
Une petite fonction perso :

Function NextMonth2()
    NextMonth2 = Format(Application.EDate(DateSerial(Year(Date), Month(Date), 2), 1), "dd/mm/yyyy")
End Function

L'appel en VBA : MaDate=NextMonth2()
en cellule : =NextMonth2()
ou directement en module avec :

MaDate=Format(Application.EDate(DateSerial(Year(Date), Month(Date), 2), 1), "dd/mm/yyyy")

 

[Dranreb]

Bonjour.

.FormulaR1C1 = "=EDATE(DATE(YEAR(TODAY()),MONTH(TODAY()),2),1)"

 

[PORCHER]

J'ai adapter la formule de Dranreb et c'est parfait, çà me convient.
Merci à Dranreb, sylvanu et Patricktoulon
Bonne journée..