Démarrer une macro a une date précise

Fermé
Tony27430 Messages postés 53 Date d'inscription dimanche 4 octobre 2015 Statut Membre Dernière intervention 30 janvier 2022 - 14 déc. 2019 à 11:51
Tony27430 Messages postés 53 Date d'inscription dimanche 4 octobre 2015 Statut Membre Dernière intervention 30 janvier 2022 - 15 déc. 2019 à 12:19
Bonjour,

Je voudrais que ce programme (macro) s'arrête en 1999, et qu'une nouvelle macro (avec les modifications incluses) se mette en fonction a partir de '2020',

Sub EDF()
i = 5
While Cells(i, 11).Value <> ""
i = i + 1
Wend
Cells(i, 11).Value = Range("Facture.EDF!L18").Value
-- Cette ligne deviendra en 2020 (Cells(i, 13).Value = Range("Facture.EDF!L18").Value)
End Sub
Sub GAZ()
i = 5
While Cells(i, 9).Value <> ""
i = i + 1
Wend
Cells(i, 9).Value = Range("Facture.GAZ!P14").Value
-- Cette ligne deviendra en 2020 (Cells(i, 15).Value = Range("Facture.GAZ!P14").Value)
End Sub
Sub EAU()
i = 5
While Cells(i, 13).Value <> ""
i = i + 1
Wend
Cells(i, 13).Value = Range("Facture.EAU!K4").Value
-- Cette ligne deviendra en 2020 (Cells(i, 17).Value = Range("Facture.EAU!K4").Value)
End Sub

Merci de votre aide
A voir également:

3 réponses

via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 2 738
15 déc. 2019 à 02:50
Bonjour Tony

Je pense que par 1999 tu veux entendre 2019 ☺

Tu peux modifier tes lignes de macros ainsi, exemple pour EDF à adapter ensuite aux autres :
If Year(Date)<2020 then Cells(i, 11).Value = Range("Facture.EDF!L18").Value Else Cells(i, 13).Value = Range("Facture.EDF!L18").Value) 

Cdlmnt
Via

0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
15 déc. 2019 à 09:57
Bonjour Via,


@Tony :
Je ne vois ps l'intérêt d'une telle macro si elle ne teste pas une date écrite en dur dans les données : il suffit à partir du 1/1/20 de mettre en place le code ad hoc (vu que Year(Date) n'évoluera plus).

Il faudrait expliquer le but recherché, si c'est d'avoir un calcul différent avant et après 2020, il faut mettre une donnée date dans la feuille.
0
Tony27430 Messages postés 53 Date d'inscription dimanche 4 octobre 2015 Statut Membre Dernière intervention 30 janvier 2022
15 déc. 2019 à 09:51
Bonjour,

Merci de ton retour, je test et reviens vers toi.

Cdt,
0
Tony27430 Messages postés 53 Date d'inscription dimanche 4 octobre 2015 Statut Membre Dernière intervention 30 janvier 2022
15 déc. 2019 à 12:19
Salut,

Merci de retour,
L’intérêt, est d'éviter c'est d' avoir a faire des modifications sur les macros tout les ans.
Les modifications doivent-être faite lors de l’Écriture de la macro.
Merci de tes infos, si elles peuvent m'aider.
0