Microsoft 365 Formule excel vers vba

PORCHER · 10 Février 2023

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 · 10 Février 2023

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 · 10 Février 2023

Bonjour Porcher,Patrick,
Une petite fonction perso :

VB:

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 :

Code:

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

Dranreb · 10 Février 2023

Bonjour.

VB:

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

PORCHER · 10 Février 2023

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

Microsoft 365 Formule excel vers vba

PORCHER

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Discussions similaires