Format texte en date ou nombre

[manuBX]

Bonsoir

Vous m avez aidé pour cette macro calandar
Ajout d une heure à une date mais le résultat est en format texte
comment peut on le passer en nombre/date par la macro
j ai essayé tous les formats de cellule possible rien ne marche

Private Sub CommandButton2_Click()
ActiveCell.Value = Calendar1.Value & " " & Format(ComboBox1.Value, "h:mm")
End
End Sub

Merci d avance

 

[kjin]

Re : Format texte en date ou nombre

Bonsoir,

Private Sub CommandButton2_Click()
If ComboBox1.ListIndex <> -1 Then
With ActiveCell
    .Value = CDate(Calendar1 & " " & ComboBox1)
    .NumberFormat = "m/d/yyyy h:mm"
End With
End If

End Sub

A+
kjin

 

[manuBX]

Re : Format texte en date ou nombre

Merci
c est tout a fait ce qu il me faut
A+