Conversion au format Date

Bonjour,

Savez-vous comment je peux convertir au format Date le résultat de la fonction suivante :

Code:

---

1 2 3 4

Function Date_echeance(Range1 As Range, Range2 As Range) Date_echeance = "30/Range1/Range2" End Function

---

Ou Range1 donnera le numéro du mois (1, 2, 3, ...) et Range2 l'année (2013, 2014, ...)

Merci !

Code:

---

Date_echeance = DateValue(jour & "/" & Range1 & "/" & Range2)

---

Bonjour,

Dim LaDate As Date
LaDate = DateValue(Date_echeance)





Et ben vraiment trop tard ..........

Alors j'ai remplacé et ça me renvoie une erreur : "Incompatibilité de type" :s

Bonjour,

Et si tu remplaces les "/" par des "-" ?

Ou bien, si tu as juste des données numériques, tu peux jeter un œil sur DateSerial() dans ton aide. Tu vas récupérer la date sous son équivalent numérique.

de mémoire cela donnerait quelque chose comme cela:

Code:

---

1 2	Dim ladate as integer ladate = DateSerial(Range2.value;Range1.value;30)

---

bonsoir,

cela semble fonctionner, que les cellules A1 et A2 soient au format texte ou number.
Par contre, il faut que la cellule A3 dans laquelle est renvoyée le résultat soit au format "standard" pour que la conversion se fasse.
La même exigence se pose au demeurant lorsque l'on écrit une date directement dans la feuille. Si la cellule est initialement au format texte, elle le reste alors qu'elle se convertie si elle est standard.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub data1() Date_echeance Range("a1"), Range("a2") End Sub   Function Date_echeance(range1 As Range, range2 As Range) Date_echeance = CDate("30" & "/" & range1 & "/" & range2) Cells(3, 1) = Date_echeance End Function   Cordialement,

---

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   'A1 = le mois, A2 = l'année MsgBox Date_echeance(Range("A1"), Range("A2"))   End Sub   Function Date_echeance(Range1 As Range, Range2 As Range) As Date   Date_echeance = DateSerial(Range2, Range1, 30)   End Function

---

Hervé.

Bonjour Hervé et autres membres,

Il n'y en effet aucun problème s'il ne s'agit que de renvoyer un message.

Par contre, si le résultat doit être renvoyé dans une cellule, comme c'est probablement le cas, il risque d'y avoir des surprises si des opérations sont effectuées sur les dates (différence entre deux date par exemple).

C'est pourquoi, ne sachant pas à priori le format de la cellule ou le résultat est renvoyé, je prévois par sécurité.

Code:

---

1 2	Cellule.NumberFormat = "General" ' format standard

---

cordialement,

Bonjour à tous,

La proposition d'Hervé est la plus correcte. La fonction renvoie une "vraie" date. C'est à dire, un nombre correspondant à un numéro de jour qu'Excel interprétera correctement.

Paul, ta proposition pose plusieurs problèmes.

1. Ta fonction n'est pas typée. Elle renvoie donc un Variant avec tous les risques que ça comporte
2. Tu utilises la fonction comme une Sub. Dans ta Sub Data1, tu n'assigne pas le résultat de la fonction.
3. Attention de ne jamais faire faire une action à une fonction. Dans ton cas, tu remplis une cellule. Si cette fonction est appelée dans la formule d'une cellule, elle ne fonctionnera pas.

bonjour Alain,

merci pour ces informations sur l'emploi des fonctions.

Voici donc comment j'ai modifié ma proposition pour tenir compte de tes remarques.

Code:

---

1 2 3 4 5 6 7 8 9

Sub data1() Cells(3, 1).NumberFormat = "General" ' format standard Cells(3, 1) = Date_echeance(Range("a1"), Range("a2")) End Sub Function Date_echeance(Range1 As Range, Range2 As Range) As Date Date_echeance = CDate("30" & "/" & Range1 & "/" & Range2) End Function

---

En fait, le but de ma proposition initiale était de souligner le problème posait par une cellule résultat initialement au format texte (éventualité toujours possible) et qui le reste avec la proposition de Teze.

Cordialement,

je ne sais pas si c'est l'age qui me joue un tour, mais j'ai l'impression que tes question sont redondantes.

dans un de tes dernier poste il était question de formater une date en "mm-yy" maintenant "dd/mm/yyyy".

si je me rappel, mais maintenant j'en doute, je t'avais expliqué que tu pouvais formater toutes tes données directement dans ta requête et j’avais rédigé un min tuto sur les script sql.

pare exemple:

Code:

---

select [myAnnée] & '-' & [MyMois] & '-30 00:00:00'

---

ici au format international, mai je doute que le mois de février apprécie.
je t'ai dit sans un peut d’humours, qu'il y avait un problème culturel entre VBA et Excel et j'avait pris en exemple le 4 janvier.

que dire de plus sauf réitérer les conseil déjà prodigués!

si si... les fonction sont comme des variables elles ont un type, par défaut variant si tu place une date dans un variant Excel devra trouver le meilleur type de conversion.

Code:

---

1 2 3 4 5 6

dim D as variant d=cdate("04/01/2013") [A1]=d dim c as date c=[A1] debeug.print 'donnera "01/04/2013"

---

en revanche:

Code:

---

1 2 3 4 5 6

dim D as date d=cdate("04/01/2013") [A1]=d dim c as date c=[A1] debeug.print c 'donnera "04/01/2013"

---

Citation:

---

Envoyé par DarkCator

Bonjour,

Savez-vous comment je peux convertir au format Date le résultat de la fonction suivante :

Code:

---

1 2 3 4

Function Date_echeance(Range1 As Range, Range2 As Range) Date_echeance = "30/Range1/Range2" End Function

---

Ou Range1 donnera le numéro du mois (1, 2, 3, ...) et Range2 l'année (2013, 2014, ...)

Merci !

---

les fonction on pour objet de factoriser un cernait nombre d'instructions, si l'appel de la fonction est aussi long à écrire que le code de la fonction, la fonction n'est pas intéressante.

nous somme tous des bénévoles, et passons beaucoup de temps à prodiguer nos conseils à des "novices". il ne faudrait pas attendre de nous des solution toutes cuitent dans la bouche sans faire au minium un travail de compréhension. ce n'est pas gratuit tu devra renvoyer ascenseurs à d'autre novices.

ne gâche ce temps qui serait utile à d'autre.

Citation:

---

Envoyé par rdurupt

Code:

---

1 2 3

debeug.print 'donnera "01/04/2013"   debeug.print c 'donnera "04/01/2013"

---

---

Tu es sur que cela va afficher tes dates ? ;)

Citation:

---

Envoyé par clementmarcotte

Tu es sur que cela va afficher tes dates ? ;)

---

effectivement j'ai oublié la variable C dans un des 2 cas :oops: