indic avec des dates

[Damien]

Bonjour,
J'ai un petit soucil, et vu le talent de certaines personnes ici, je suis sur que vous allez pouvoir m'aider :
J'ai une textbox dans laquelle les utilisateurs peuvent indiquer un nombre de jours.
Il faudrait ensuite qu'une date correspondant à la date du jour + le nombre de jours indiqués dans la textbox s'affiche dans une nouvelle cellule.
J'ai utilisé cette méthode, et ca bug, merci de m'aider :

Private Sub TextBoxDate_Change()
Dim DteDateLivraison As Date
DteDateLivraison = TextBoxDate.Value
Sheets("Bon").Select
If TextBoxDate.Value <> "" Then
Range("C8").Value = Range("B8").Value
Else: C8 = ""
End If
End Sub

dans B8, il y a la date d'aujourd'hui (formule =aujourd'hui)
dans C8, il y la date que je voudrais faire apparaitre (date du jour + valeur indiquée)

Merci et bonne journée

 

[Pascal76]

Re Damien

tu peux simplement faire

Private Sub TextBoxDate_Change()
Dim DteDateLivraison As Integer <---------pas date c'est un délai
DteDateLivraison = TextBoxDate.Value
Sheets("Bon").Select
If TextBoxDate.Value <> "" Then
Range("C8").Value = Date + DteDateLivraison <---------- Date indique date du jour en VBA
Else: C8 = ""
End If
End Sub

Bon courage

Pascal (et seulement Pascal)

 

[Bernard]

Bonsoir Damien

Petite macro qui définit la date de livraison

Sub Livraison()
Dim R As Variant
R = InputBox("Tapez le nombre de jour")
If R <> "" Or R <> 0 Then
Range("C8").Value = Range("B8").Value + R
End If
End Sub


Cordialement

Bernard

 

[Damien]

Merci pour vos réponses !!!
Désolé pascal pour mes familiarités...