formule date mois suivant avec vba Résolu/Fermé

Question

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

yg_be · Answer

bonsoir, peux-tu partager le code de ta macro?
tu écris que tu veux "avoir la même date que celle de la feuille précédente mais avec le mois suivant"', puis tu nous montres une formule avec "janvier".  comprends-tu que c'est inconsistant?

julien · Answer

Ce code VBA est pour les feuilles 2 à 12 (FEVRIER à DECEMBRE) :

Option Explicit

Sub Essai()
  Dim i As Byte
  For i = 2 To 12
    Worksheets(i).[E7].FormulaR1C1 = "=EDATE(JANVIER!RC," & i - 1 & ")"
  Next i
End Sub

Sur chaque feuille, la cellule E7 doit avoir le format date adéquat ;
sinon, par VBA, il faudra aussi mettre le bon format, comme suit :

Option Explicit

Sub Essai()
  Dim i As Byte
  For i = 2 To 12
    With Worksheets(i).[E7]
      .FormulaR1C1 = "=EDATE(JANVIER!RC," & i - 1 & ")"
      .NumberFormat = "dd/mm/yyyy"
    End With
  Next i
End Sub

julien · Answer

1) Dans mon message du 4 juin à 21 h 30, mes 2 codes VBA
marchent seulement si les feuilles de FEVRIER à DECEMBRE
sont déjà créées.

2) J'ai modifié le fichier de ton message du 4 juin à 23 h 16 :
j'ai raccourci et grandement simplifié ton code VBA :
https://mon-partage.fr/f/O5rE9gcX/

Formule date mois suivant avec vba

3 réponses

Discussions similaires