Discussion :

[GADENSEB]

Bonjour,
J'ai un userform avec plusieurs textbox, listbox..... pour remplir une base de données.

J'ai une textbox avec une date, sous ce format là :

Code :

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

1
2
3
4
5
6
7
Private Sub DATEANNONCE_Change()
Dim Valeur As Byte
DATEANNONCE.MaxLength = 10
'nb caracteres maxi dans textbox pour un format JJ/MM/AA
Valeur = Len(DATEANNONCE)
If Valeur = 2 Or Valeur = 5 Then DATEANNONCE = DATEANNONCE & "/"
End Sub

et je souhaiterais faire une addition
DATEANNONCE + 4 jours

Dans une textbox RELANCE, qui est sous le mm format

Qui à une idée ?

Bonne après-midi

Seb

[mercatog]

Comment feras tu si l'utilisateur saisira 29/02/2014?

Sinon,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub DATEANNONCE_Change()
Dim Valeur As Byte
 
With Me.DATEANNONCE
    .MaxLength = 10
    Valeur = Len(.Value)
 
    If Valeur = 2 Or Valeur = 5 Then
        .Value = .Value & "/"
    ElseIf Valeur = .MaxLength Then
        Me.RELANCE = Format(CDate(.Value) + 4, "dd/mm/yyyy")
    End If
End With
End Sub

Mais ça reste un peu tordu comme approche.

Regarde les contrôles calendrier ou MonthView

PS. marque Résolu l'autre sujet.

[GADENSEB]

...... Parfait .... Merci encore

Seb