Bonjour à tous,

J'ai un soucis dans mon code dont voici un extrait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    Sheets("DEVIS").Select
    Columns("A:B").Select
    Range("B7").Activate
    Selection.EntireColumn.Hidden = False
    Range("B1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(YEAR(TODAY()),""-ADN-"",RC[-1])"
Ma formule sort comme vous le voyez l'année en cours, je voudrai que (si celle-ci change un jour [le 31 Décembre quoi !]) je sois averti, mais je n'arrive pas à trouver le moyen de le convertir en VBA...

En gros ça fera en formule excel =SI(ANNEE(AUJOURDHUI())>STXT(B2;1;4);"Message";"Tu fais la modif du tableau").

J'ai tenté des choses avec un petit If / Then / Else mais je n'arrive pas à tout à trouver le moyen de faire ça

Merci d'avance de votre aide !

PS : pour des raisons de confidentialité, je ne peux pas mettre mon fichier à disposition et une très faible partie de mon code...