XL 2010 Formule date mois suivant avec VBA

[chindou]

Bonjour,

J’utilise une macro pour créer des feuilles à partir d’une feuille nommée Janvier.( La feuille de départ nommée JANVIER)
En criant le (« mois suivant ») je veux inscrire une formule DATE sur la cellule (E7) pour avoir la même date que celle de la feuille précédente mais avec le mois suivant

C’est-à-dire c’est la date de E7 sur le feuille JANVIER est 01/01/2018 il faut qu’elle soit 01/02/2018 sur la feuille FEVRIER et ainsi de suite.

J’ai insérer cette ligne mais ne marche que pour le mois de février

ActiveSheet.Range("E7").FormulaR1C1 = "=DATE(YEAR(janvier!R[-3]C),MONTH(janvier!R[-3]C)+1,1)"

Merci pour vos aides

Cordialement

 

[Hieu]

Salut,

Essaie ceci:

ActiveSheet.Range("E7").FormulaR1C1 = "=DATE(YEAR(janvier!RC),MONTH(janvier!RC)+1,1)"

Sinon, perso, j'suis pas trop fan des références relatives, j'prefere ainsi :

ActiveSheet.Range("E7").Formula = "=DATE(YEAR(janvier!e7),MONTH(janvier!e7)+1,1)"

 

[chindou]

merci bien Hieu
j'ai utilisé cette ligne macro mais ça marche qu'avec la feuille nommée "fevrier"

 

[chindou]

Bonsoir,
Ci-joint un fichier Excel test "création_Feuille"

 

[phlaurent55]

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[chindou]

bonjour, phlaurent55
ça marche très bien
Merci bien