Ecrire date en vba [Résolu]

Messages postés
151
Date d'inscription
mardi 20 avril 2010
Dernière intervention
15 juin 2014
- - Dernière réponse : dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Dernière intervention
15 juin 2014
- 21 août 2010 à 09:18
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Dernière intervention
15 juin 2014
3
Merci
VOICI LA REPONSE

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


ça marche bien

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de dianbobo
Messages postés
86
Date d'inscription
lundi 22 janvier 2007
Dernière intervention
14 février 2011
0
Merci
a quoi correspond ton H6 dans " MONTH(H6),"
Commenter la réponse de the_little_big_man
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Dernière intervention
15 juin 2014
0
Merci
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
Commenter la réponse de dianbobo

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.