Ecrire date en vba [Résolu]

Signaler
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
-
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
-
bonjour j'ai une date
exemple 16/04/2012
mois je veux ecrire le 16/04/2011 en me servant de l'année en cours(2010) dans un code vba
j'ai donc essayé d'ameliorer le code produit par l'enregistreur de macro mais ça marche toujours pas :

Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+o
'
    
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=DATE(YEAR(TODAY())+1,MONTH(H6),DAY(H6))"
    Range("L3").Select
End Sub


comment y remedier ?

merci bien

3 réponses

Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014

VOICI LA REPONSE

= DateValue(Year(Date) + 1 & "/" & Month(Range("H6")) & "/" & Day(Range("H6")))


ça marche bien
Messages postés
86
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
14 février 2011

a quoi correspond ton H6 dans " MONTH(H6),"
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014

a quoi correspond ton H6 dans " MONTH(H6),"


le H6 dans MONTH(H6) correspond à au mois da la date qui est en H6
si par exemple j'ai la date 16/04/2012 le MONTH(H6) correspond à 04=avril