XL 2013 VBA

zozo · 3 Février 2020

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 · 3 Février 2020

zozo à dit:
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 · 3 Février 2020

Bonjour Zozo, bonjour le forum,

Essaie comme ça :

VB:

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 · 3 Février 2020

Jacky67 à dit:
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 · 3 Février 2020

Robert à dit:
Bonjour Zozo, bonjour le forum,

Essaie comme ça :

VB:

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 · 3 Février 2020

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

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

VB:

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 · 3 Février 2020

Robert à dit:
Bonjour Zozo, bonjour le forum,

Essaie comme ça :

VB:

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 · 4 Février 2020

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 · 4 Février 2020

Bonsoir le fil

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

VB:

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 · 4 Février 2020

RE

@Stapple : aucun souci avec DateAdd.

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

XL 2013 VBA

zozo

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

zozo

XLDnaute Occasionnel

zozo

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

zozo

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Discussions similaires

XL 2013 VBA

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency