XL 2013 VBA

[zozo]

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

 

[Jacky67]

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

Bonjour,
VBA ne cause qu'en anglais
Essaye
clé = DateSerial(Year(Cells(i, 7)), Month(Cells(i, 7)) + Cells(i, 8), Day(Cells(i, 7)))

**Salut Robert

 

[Robert]

Bonjour Zozo, bonjour le forum,

Essaie comme ça :

Dim Clé As Date
Clé = DateSerial(Year(Cells(i, 7).Value), Month(Cells(i, 7).Value) + Cells(i, 8).Value, Day(Cells(i, 7).Value))

[Édition]
Arf... Grillé par Jacky ! Salut Jacky...

 

[zozo]

Bonjour,
VBA ne cause qu'en anglais
Essaye
clé = DateSerial(Year(Cells(i, 7)), Month(Cells(i, 7)) + Cells(i, 8), Day(Cells(i, 7)))

**Salut Robert

Merci pour votre réponse, je vais faire des essais et vous tenir informer.

 

[zozo]

Bonjour Zozo, bonjour le forum,

Essaie comme ça :

Dim Clé As Date
Clé = DateSerial(Year(Cells(i, 7).Value), Month(Cells(i, 7).Value) + Cells(i, 8).Value, Day(Cells(i, 7).Value))

[Édition]
Arf... Grillé par Jacky ! Salut Jacky...

Je viens d'avoir le résultat, et il est impeccable.
Merci encore.

 

[Staple1600]

Bonsoir le fil, le forum, demandant et répondants

Si il faut causer VBA, alors causons VBA (mais en plus court )

Sub test()
[G6] = Date 'juste pour le test
[H6] = 2 ''juste pour le test
clé = DateAdd("m", [H6], [G6]) 'la ligne à réutiliser
MsgBox clé
End Sub

 

[zozo]

Bonjour Zozo, bonjour le forum,

Essaie comme ça :

Dim Clé As Date
Clé = DateSerial(Year(Cells(i, 7).Value), Month(Cells(i, 7).Value) + Cells(i, 8).Value, Day(Cells(i, 7).Value))

[Édition]
Arf... Grillé par Jacky ! Salut Jacky...

Bonsoir,
Merci pour votre réponse, dès que je serai demain à mon bureau, je ferai l'essai et vous tenir informer du résultat.

 

[chris]

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

 

[Staple1600]

Bonsoir le fil

=> Chris
Où est le souci avec DateAdd ?
(cf message#6 qui semble avoir été zappé... )

Sub test_ii()
[G6] = DateSerial(2020, 8, 31) 'juste pour le test
[H6] = 2 ''juste pour le test
clé = DateAdd("m", [H6], [G6]) 'la ligne à réutiliser
MsgBox clé
End Sub

 

[chris]

RE

@Stapple : aucun souci avec DateAdd.

Sorry, Je m'étais arrêté à la solution de la formule reproduite en DateSerial