Discussion :

[lapa-jh]

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?

[cboncbon]

Code :

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

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

[cboncbon]

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

Code :

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

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

[ouskel'n'or]

Code :

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

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+