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

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
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

3 réponses

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

Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Merci bien julien
je vais tester la macro
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/
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Bonjour, Julien
ça marche très bien,
Merci bien
Messages postés
11515
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 juillet 2020
659
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?
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
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
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Bonsoir,
Ci-joint un fichier Excel test " création_feuille"
http://www.cjoint.com/c/GFevqsRSfld