Dates et inputbox

[Ke@ry]

Bonjour le forum,

>>>voici mon code :

Sub MAJ_Rats_Prod()

Dim Début As Object
Dim Fin As Object

Set Début = Cells(1, 3)
Set Fin = Cells(2, 3)

Début = InputBox("Date de début du calcul :", "Dates")
Fin = InputBox("Calcul de productivité du " & Début & " au :", "Dates")

End Sub

>>>et les questions :

- lorsque je tape 01/07 dans l'inputbox, la valeur renvoyée dans ma cellule est : 07 janvier 03 (!!!!), et lorsque je tape 13/07, le résultat de ma cellule est 13/07, pourquoi ? comment faire pour résoudre le problème ?

- comment faire pour que lorsque l'opérateur clique "annuler" du 1er inputbox ma procédure s'arrête ? j'ai vu quelques posts à ce sujet mais je n'y ai pas compris grand chose et je ne sais pas comment l'appliquer !

merci de m'aider !!

bonne journée à tous.

 

[JPH]

Simplement InputBox génère du "String" et la chaine est donc tel que tapé.

Modif :
Sub MAJ_Rats_ProdV2()
Début = InputBox("Date de début du calcul :", "Dates")
Fin = InputBox("Calcul de productivité du " & Début & " au :", "Dates")
Cells(1, 3) = DateValue(Début) 'datevalue pour convertir en valeur
Cells(2, 3) = DateValue(Fin)
Range("C1:C2").Select
Selection.NumberFormat = "dd/mm/yy" 'Option de format de cellule
End Sub

Cordialement

 

[Ke@ry]

Génial, merci !