Discussion :

[michoutri]

la date (JJ/MM/AAAA) est issue d'une inputbox (donc en string) et je cherche à la convertir en chiffre (ex : 31/08/2009 = 40056)

J'ai essayé en passant par une cellule et en changeant le format de la cellule... mais ca marche pas!!
J'ai essayé Clng, CStr...

Je suis dans la panade,

Merci de votre aide

[diude54]

As tu regardé cette page, notament a partie extraire les valeures numérique d'une chaine de caractère:
http://silkyroad.developpez.com/VBA/...nesCaracteres/

[mercatog]

Ou:

Code :

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

1
2
3
4
If IsDate(TextBox1) Then 
  Range("A1") = CDate(TextBox1)
  Range("A1").NumberFormat = "General"
End If

[pgz]

SI tu veux disposer de l'info dans une variable Date, si strValeur est la chaîne de car correspondante

Code :

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

maDte = cDate(strValeur)

Pour calculer le numéro du jour correspondant

Code :

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

NumJour = cLng(cDate(strValeur))

Cordialement,

PGZ

[michoutri]

Pour calculer le numéro du jour correspondant

Code :

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

NumJour = cLng(cDate(strValeur))

Merci beaucoup, en une ligne ca a répondu à ce que je recherchais!!!

[mercatog]

Tu supposes que l'utilisateur va TOUJOURS entrer une date!

[michoutri]

Tu supposes que l'utilisateur va TOUJOURS entrer une date!

J'ai créer un système de gestion des erreurs :

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
19
20
21
22
23
24
25
26
27
Dim Journee As String
Dim J As Long
Dim ValeurDefault As String
line1:
ValeurDefault = Date
 
Journee = InputBox("Quelle date vous cherchez?" & Chr(10) & Chr(10) & "format JJ/MM/AAAA", "Recherche journée", ValeurDefault)
 
'gestion des éventuels erreurs
    'si pas de valeurs de rentrée ou cliqué sur annuler
    If Journee = "" Then Exit Sub
 
    'si message d'erreur, renvoi vers line3
    On Error GoTo line3
 
'si pas d'erreur saut de la gestion de l'erreur
GoTo line2
 
'affiche le format à renseigner et retour début fonction
line3:
MsgBox ("Format reglémenté JJ/MM/AAAA"): GoTo line1
 
line2:
'Converti la date dans la var "journee" en chiffre dans la var "J"
J = CLng(CDate(Journee))
 
end sub

Voili voilà

Si tu vois des erreurs qui peuvent survenir que je n'ai pas traitées.. je suis preneur

[Krovax]

essaye de te tromper deux fois et tu verra
ensuite tu devrais essayer de structurer ton code on monte on descend on saute des lignes c'est assez ilisible, je pleind la personne (sans doute toi) qui lira ce genre de code dans quelque mois.

en utilisant un code structuré (c'est a dire sans goto juste pour la gestion d'erreur)

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
19
20
21
Dim Journee As String
Dim J As Long
Dim ValeurDefault As String
ValeurDefault = Date
ligne1::
Journee = InputBox("Quelle date vous cherchez?" & Chr(10) & Chr(10) & "format JJ/MM/AAAA", "Recherche journée", ValeurDefault)
'gestion des éventuels erreurs
'si pas de valeurs de rentrée ou cliqué sur annuler
If Journee = "" Then Exit Sub
'si message d'erreur, renvoi vers line3
On Error GoTo gestionerreur
'Converti la date dans la var "journee" en chiffre dans la var "J"
J = CLng(CDate(Journee))
 
'c'est plus élégant de faire une gestion d'erreur en bas de procédure
exit sub
gestionerreur::
MsgBox ("Format reglémenté JJ/MM/AAAA")
err.clear
goto ligne1
end sub

sans se prendre la tete avec la gestion d'erreur quelque chose dans ce genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub dd()
Dim Journee As String
Dim J As Long
Dim ValeurDefault As String
ValeurDefault = Date
Do
Journee = InputBox("Quelle date vous cherchez?" & Chr(10) & Chr(10) & "format JJ/MM/AAAA", "Recherche journée", ValeurDefault)
Loop Until Journee = "" Or IsDate(Journee)
If IsDate(Journee) Then
    J = CLng(CDate(Journee))
End If
End Sub