Discussion :

[DarkCator]

Bonjour,

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

Code :

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

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 !

[Invité]

Code :

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

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

[QuestVba]

Bonjour,

Dim LaDate As Date
LaDate = DateValue(Date_echeance)





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

[DarkCator]

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

[clementmarcotte]

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 :

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

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

[nibledispo]

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 :

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

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,

[Theze]

Bonsoir,

Code :

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

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é.

[Invité]

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 Script SQL :

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

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 :

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

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 :

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

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"

Bonjour,

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

Code :

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

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.

[clementmarcotte]

Code :

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

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 ?

[Invité]

Tu es sur que cela va afficher tes dates ?

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