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 - 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:

Démarrer une macro a une date précise
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Pc long a demarrer - Guide
Windows ne veut pas démarrer - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Comment envoyer un message à une heure précise - Guide

3 réponses

Réponse 1 / 3

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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.

Réponse 2 / 3

Tony27430 Messages postés 53 Date d'inscription Statut Membre Dernière intervention

Bonjour,

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

Cdt,

Réponse 3 / 3

Tony27430 Messages postés 53 Date d'inscription Statut Membre Dernière intervention

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.

Discussions similaires

je cherche la date et le lieu de naissance d une personne

Impossible de démarrer PS4

Impossible de démarrer la ps4

Votre réponse

Discussions similaires