Changement d'année en VBA

Bonjour à tous.

Je bute sur un problème. J'ai une cellule au format suivant =DATE(2017;1;1)

Je voudrai pouvoir grâce à une macro VBA augmenter cette date d'une année..

Comment faire?

merci de votre aide à tous. bonne journée

bonjour

je fais ça chaque année dans plusieurs fichiers contenant plusieurs feuilles chacune avec l'année

solution retenue, :

• choisir une cellule dans laquelle tu saisiras une année. La nommer ANNEE_MONANNEE (gestionnaire de nom).Mais tu peux choisir autre nom, sauf ANNEE qui est un mot réservé.
• tu remplaces les =DATE(2017;1;1) tu mets =DATE (ANNEE_MONANNEE;1;1)

simple et claire et stable même si tu ajoutes des colonnes et des lignes de partout dans tes fichiers

et tu peux à volonté afficher les valeurs de 2012 !

merci ta réponse jmd, mais je recherche une solution automatisée via un bouton sur lequel en cliquant on ajoutes à la valeur =DATE(2017;1;1) une unité , soit =DATE(2018;1;1) par exemple...

re

faire :

• mettre le chiffre 1 dans une cellule, disons en AA1
• copier cette cellule AA1
• clic droit dans la cellule contenant la valeur 2017
• collage spécial Opération Ajouter. Tu obtiens 2018

ces opérations peuvent s'enregistrer en macro.

En fait je voudrais trouver une solution à ce code :

Sheets("ETAT01").Range("AF10").Replace _

What:="2017", Replacement:="2018"

en l'état actuel, ça fonctionne, (cela remplace 2017 par 2018 dans mon champs "date" (format : =DATE(2018;1;1) mais je suis obligé d'écrire dans la macro "2017" et "2018" ou autre chose et le modifier chaque année. ce que je cherche c'est une solution avec une variable perpétuelle (si ça existe)

bonjour,

ne te suffit-il pas de mettre la formule suivante :

=ANNEE(MAINTENANT())

sinon voici une macro qui corrige la formule =date(2017;1;1)

Sub aargh()
f = Cells(1, 1).Formula
Mid(f, 7, 4) = Mid(f, 7, 4) + 1
Cells(1, 1).Formula = f
End Sub

je vais tester

ça fonctionne avec le code suivant :

Sheets("ETAT01").Range("AF10").Formula = Sheets("ETAT01").Range("AF10").Value + 365.25