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 SubMerci à 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
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...