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
A voir également:
- Démarrer une macro a une date précise
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Pc très lent à démarrer - Guide
- Windows ne veut pas démarrer - Guide
- Comment envoyer un message à une heure précise - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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 :
Cdlmnt
Via
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
@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.