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

chaelie2015 · 1 Août 2021

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

Efgé · 1 Août 2021

Bonjour

Au hasard et sans suite
=10+(26*(ANNEE(AUJOURDHUI())-(2019+(MOIS(AUJOURDHUI())>6))))

Cordialement

chaelie2015 · 1 Août 2021

Efgé à dit:
Bonjour

Au hasard et sans suite
=10+(26*(ANNEE(AUJOURDHUI())-(2019+(MOIS(AUJOURDHUI())>6))))

Cordialement

Bonjour Efgé
merci pour la réponse
1. la valeur 10 je l'ai mets a titre exemple.
2. je souhaite par un code vba ET CECI QLQ SOIT LA VALEUR DE g6.
Merci

job75 · 1 Août 2021

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

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

Edit : salut Efgé.

A+

chaelie2015 · 1 Août 2021

Bonjour Job
Merci c'est parfait.
Souci RESOLU

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

chaelie2015

XLDnaute Accro

Efgé

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires