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

Efgé

XLDnaute Barbatruc

• 1 Août 2021

• #2

Bonjour

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

Cordialement

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 1 Août 2021

• #3

Efgé à dit:

Bonjour

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

Cordialement

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #4

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+

 

Pièces jointes

• Classeur(1).xlsm

  14.4 KB · Affichages: 8

Dernière édition: 1 Août 2021

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 1 Août 2021

• #5

Bonjour Job
Merci c'est parfait.
Souci RESOLU

 

Vote positif 0 Vote négatif