Date dans label

[Bruce68]

Bonsoir à tous et Bonne et heureuse année à tout le Forum

Dans un TexBox (DateAT) je rentre une date et je voudrais voir dans le Label (DatMax) la date du texBox (DateAT) + 40 jours.
Voici la macro ,que dois je changer pour que cela fonctionne: le texBox donne: 39

Private Sub DateAT_exit(ByVal Cancel As MSForms.ReturnBoolean) '
If DateAT = "" Then Exit Sub
If IsDate(DateAT) And CInt(Mid(DateAT, 4, 2)) < 13 Then
Else
MsgBox (DateAT.Text & " n'est pas une date valide !")
DateAT.Text = ""
DateAT.SetFocus
If DateAT.Value = "" Then Cancel = True
End If
DatMax = IsDate(DateAT.Value) + 20 'DatMax = à la date (DateAT + 40 jours)SI DatMax = 01/01/2009 DatMax = 10/02/2009
End Sub

Merci àtous pour votre aide

 

[bqtr]

Re : Date dans label

Bonsoir Bruce,

Un essai avec la fonction DateSerial :

If IsDate(TextBox1) And CInt(Mid(TextBox1, 4, 2)) < 13 Then
  Label1.Caption = DateSerial(Year(TextBox1), Month(TextBox1), Day(TextBox1) + 40)
End If

Bonne Année 🙂

A+

 

[Bruce68]

Re : Date dans label

Bonsoir à tous

Merci bqtr pour ta reponse , je viens de trouver une solution en remplaçant IsDate par CDate.

DatMax = CDate(DateAT.Value) + 40 'DatMax = à la date (DateAT + 40 jours)SI DatMax = 01/01/2009 DatMax = 10/02/2009

Comment mettre la date du jour dans une cellule en VBA

Merci pour votre aide

 

[bqtr]

Re : Date dans label

Re,

Comme ceci :

Range("A1") = Date

A+

 

[Bruce68]

Re : Date dans label

Bonsoir bqtr

Merci pour la reponse, mais je ne veux pas faire comme cela
Quand j'enregistre les TexBox de mon UserForm je voudrais enregistrer la date du jour dans une colonne sans la mettre dans un texBox.
Merci pour l'aide

 

[bqtr]

Re : Date dans label

Re,

Je ne comprends pas trop, pourquoi parles tu de Textbox ?

L'instruction Date permet de définir la date du jour. Ce n'est pas un TextBox.
J'ai mis Range("A1") pour l'exemple, toi seul sait dans quel colonne il faut inscrire la date.

A+

 

[Bruce68]

Re : Date dans label

Bonjour à tous
Merci bqtr, c'est bon cela fonctionne