Autres (RESOLU) Ajouter une valeur automatiquement chaque période

chaelie2015

XLDnaute Accro
Bonjour Forum
Je souhaite a jouter via un code (automatiquement) a la cellule G6 une valeur de 26 selon selon la période de 01/07/année courante au 30/06/année courante +1
exemple : dans la cellule G6=10 je rajoute une fois 26 si je suis dans la période (de 01/07/2021 au 30/06/2022). danc j'aurai G6= 36
et ainsi de suite la période suivante du 01/07/2022 au 30/06/2023 j'aurais G6= 36+26
Salutations
 

job75

XLDnaute Barbatruc
Bonjour chaelie2015,

Cette macro dans ThisWorkbook doit vous convenir :
VB:
Private Sub Workbook_Open()
ThisWorkbook.Names.Add "AN", Year(Date) + (Date < CDate("1/7")) 'rappel : True => -1
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
If IsNumeric([LN(MAJ = AN)]) Then Exit Sub
ThisWorkbook.Names.Add "MAJ", [AN]
[G6] = Val(Replace(CStr([G6]), ",", ".")) + 26
End Sub
Il vous faudra attendre le 01/07/2022 pour une nouvelle modification de G6 :cool:

Si vous le désirez il est possible de masquer les noms définis AN et MAJ.

Edit : salut Efgé.

A+
 

Pièces jointes

  • Classeur(1).xlsm
    14.4 KB · Affichages: 8
Dernière édition:

Discussions similaires

Réponses
3
Affichages
515
Réponses
4
Affichages
692

Statistiques des forums

Discussions
312 275
Messages
2 086 709
Membres
103 377
dernier inscrit
fredy45