Convertir fonction en macro

Le Bonjour à tout le forum,

j'ai une fonction qui marche très sur Excel qui calcule la date d'échéance.

=date(annee(g6);mois(g6)+h6;jour(g6))

G6 représente la date d'émission

H6 représente le nombre de mois de l'échéance

j'ai besoin de votre aide pour la transformation de la commande en question en MACRO VBA que je n'arrive pas à la réaliser.

clé=date(annee(cells(i,7)) & date(mois(cells(i;7))+cells(i,8) & date(jour(cells(i,7))

Merci pour toute intervention de votre part

Re,

Tu as déjà plusieurs réponses sur un autre forum. Pourquoi insistes-tu ?!...

Bonjour,

à tester,

Sub Macro1()
Dim i As Integer
i = 6
clé = DateSerial(Year(Cells(i, 7)), Month(Cells(i, 7)) + Cells(i, 8), Day(Cells(i, 7)))
End Sub

Merci à tous pour votre aide, la solution proposée par les membre m'a donnée un bon résultat.

Merci encore

Bonjour à tous

Que ce soit la formule =date(annee(g6);mois(g6)+h6;jour(g6))

ou VBA

cela ne marchera pas correctement si le 30 ou le 31/08

utiliser plutôt

MOIS.DECALER ou WorksheetFunction.EDate

Bonjour à tous

Que ce soit la formule =date(annee(g6);mois(g6)+h6;jour(g6))

ou VBA

cela ne marchera pas correctement si le 30 ou le 31/08

utiliser plutôt

MOIS.DECALER ou WorksheetFunction.EDate

Bonjour Chris, le forum,

ça dépend...

à voir

21mois-decaler.xlsm (9.34 Ko)

RE

Oui cela correspond à ce que disais : quand on raisonne en mois les 30 ou 31/8 devraient donner le dernier jour du mois de février pour 6 mois, de même que le 31 d'un mois d'une donner le 30 des mois des 30 jours.

Par exemple pour la paye on prend le dernier jour du mois en principe

Mais tout est affaire de convention...

Rechercher des sujets similaires à "convertir fonction macro"