Démarrer une macro a une date précise
Tony27430
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
Tony27430 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Tony27430 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
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
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
3 réponses
-
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
-
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.
-
-
Bonjour,
Merci de ton retour, je test et reviens vers toi.
Cdt, -
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.
