Formule date mois suivant avec vba

Résolu/Fermé
Utilisateur anonyme - 4 juin 2017 à 20:19
 Utilisateur anonyme - 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

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

0
Utilisateur anonyme
4 juin 2017 à 22:31
Merci bien julien
je vais tester la macro
0
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/
0
Utilisateur anonyme
Modifié le 5 juin 2017 à 13:41
Bonjour, Julien
ça marche très bien,
Merci bien
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
4 juin 2017 à 21:04
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?
-1
Utilisateur anonyme
Modifié le 4 juin 2017 à 22:43
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
0
Utilisateur anonyme
4 juin 2017 à 23:16
Bonsoir,
Ci-joint un fichier Excel test " création_feuille"
http://www.cjoint.com/c/GFevqsRSfld
0