Formule date mois suivant avec vba [Résolu/Fermé]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse : delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- 5 juin 2017 à 13:40
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
Afficher la suite 

3 réponses

0
Merci
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

delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien julien
je vais tester la macro
0
Merci
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/
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Bonjour, Julien
ça marche très bien,
Merci bien
Messages postés
8540
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 septembre 2019
424
-1
Merci
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?
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien yg
je crois que j'ai pas bien éclairci mon problème
j'ai une macro qui crie des feuilles nommées (février, mars,...)
la feuille du départ est nommée janvier est c'est seul feuille sur mon classeur
quant j’exécute la macro crie_une_feuille une autre feuille s'ajoute au classeur automatiquement avec le nom février
j'ai insérer une date dans la feuille janv (01/01/2018) et je veux que cette date soit 01/02/2018 automatiquement sur la feuille février quand elle s'ajoute
Merci
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Bonsoir,
Ci-joint un fichier Excel test " création_feuille"
http://www.cjoint.com/c/GFevqsRSfld