[Vba] Convertir une date en chiffre

Bonjour,

j'ai recherché le moyen de convertir une date donnée par trois champs d'une userform pour la comparer à une date dans une cellule excel (hors format d'affichage, donc un chiffre brut, style 39823 )

j'ai vu beaucoup de choses pour transformer le chiffre brut en date (fonction C date je crois), mais rien pour l'inverse...

admettons que j'ai 11 , février , 2006 dans trois zones de stockage, comment obtenir le chiffre équivalent à cette date sous vba?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit   Sub Equivalence()   Dim Agglo As String Dim arg1 As String Dim arg2 As String Dim arg3 As String Dim ChaineConvertieEnDate As Date   arg1 = [a1].Value arg2 = [b1].Value arg3 = [c1].Value Agglo = arg1 & " " & arg2 & " " & arg3   ChaineConvertieEnDate = CDate(Agglo)   End Sub

---

ou sinon pour concaténer et convertir en date à partir de 3 valeurs d'objets sur un formulaire :

Code:

---

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

Option Explicit Sub Equivalence() Dim Agglo As String Dim arg1 As String Dim arg2 As String Dim arg3 As String Dim ChaineConvertieEnDate As Date   arg1 = txtZoneTexte01.Value arg2 = txtZoneTexte03.Value arg3 = txtZoneTexte03.Value Agglo = arg1 & " " & arg2 & " " & arg3 ChaineConvertieEnDate = CDate(Agglo) End Sub

---

Code:

---

1 2 3 4 5 6 7 8

Annee = 2007 mois = 6 Jour = 21 MsgBox CDbl(DateSerial(Annee, mois, Jour)) Annee = "2007" mois = "6" Jour = "21" MsgBox CDbl(DateSerial(Annee, mois, Jour))

---

Les deux types de données, num ou string, fonctionnent
A+