Discussion :

[touys]

Bonjour,

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
date_case = Format(ActiveSheet.Cells(5, i), "d/mm")
nouvelle_date = CDate("date_case" & CStr(Year(ActiveSheet.Cells(5, i).Value) + 3))

je récupère au grace à la fonction Format la date contenue dans une cellule au format jour/mois
ensuite je voudrais ajouter à une nouvelle date la date formatée et l'année que je souhaite, cependant j'ai un message d'erreur "imcompatibilitée de type"

Pouvez vous m'aider la dessu

[Jean-Philippe André]

salut,
tu as utilisé date_case en tant que chaine de caractère.
d'autre part, je te recommande l'utilisation de la fonction DateAdd
un lien de la à ce sujet
http://access.developpez.com/faq/?page=dates#dateAdd

[casefayere]

Bonjour,

je pense que l'erreur est là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nouvelle_date = CDate("date_case" & CStr(Year(ActiveSheet.Cells(5, i).Value) + 3))

je mettrais ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nouvelle_date = CDate(date_case) & CStr(Year(ActiveSheet.Cells(5, i).Value) + 3)

mais tout dépend du résultat attendu

[touys]

Casefayere,

Merci pour ta solution, je n'ai pu de message d'erreur,certes mais ta solution ne modifie pas mon contenu de cellule, elle ajoute la date a la suite,
je me retrouve donc avec une cellule 29/02/20092012 :s

Merci quand même.

Je vais me pencher sur la fonction dateadd()

[ucfoutu]

Bonjour,

ou tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(year(ActiveSheet.Cells(5, i)+3), Month(ActiveSheet.Cells(5, i)), Day(ActiveSheet.Cells(5, i)))

[Jean-Philippe André]

je n'aurais pas qualifier le code de simple, mais il a le mérite de fonctionner

[ucfoutu]

Bonjour jpcheck,

D'abord : amitiés...

Ensuite : regarde bien ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command2_Click()
  Dim date_case As Date
  date_case = "29/02/2000" ' j'ai fait exprès de choisir cette date
  MsgBox DateSerial(Year(date_case) + 3, Month(date_case), Day(date_case))
  MsgBox DateAdd("yyyy", 3, date_case)
End Sub

Aprés, ma foi, c'est une question de connaître le but exact du demandeur ...