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

[nibledispo]

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 :

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

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

cordialement,

[AlainTech]

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.

[nibledispo]

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 :

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

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,

[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