VBA Excel date

Résolu
jh50160 Messages postés 90 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,
Voilà mon problème je n'arrive pas à trouve comment faire un rappel avec une date. Dans un formulaire j'ai un textBox 1, qui au format date avec ce 
Private Sub TextBox1_Change()
 'application Date dans TextBox au format jj/mm/aaaa'
 'si vous désirez le format jj-mm-aaaa changer le flasch qui est entre les guillemés'
   Dim Exemple As String
    Dim ExDate As String
    Exemple = TextBox1.Value
    If ((Len(Exemple) > 5) And (Len(Exemple) < 10)) Then
        Application.EnableEvents = False
        ExDate = Mid(Exemple, 1, 2) & "/" & Mid(Exemple, 3, 2) & "/20" & Mid(Exemple, 5)
        TextBox1.Value = ExDate
        Application.EnableEvents = True
    End If
End Sub


j'ai ce deuxième code pour faire mon rappel de date mais cela ne fonctionne pas. pourquoi ?. Si quelqu'un veut bien m'aidé. Merci 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dateLimite As Date
dateLimite = (TextBox1.Text)
If Year(2008) Mod 2 = 0 Then
    If dateLimite >= 10 / 11 / 2010 And dateLimite < 20 / 11 / 2010 + 8 Then _
        MsgBox "Bougies d'allumage a changer avant le " & dateLimite, vBcritical
End If
End Sub
A voir également:

3 réponses

Réponse 1 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour et bonne année,
D'après ce que je comprend tu veux ajouter un certain délais à la date pour avoir la date du prochain remplacement des bougies (dans ton exemple)
si oui... 
'Dans un UserForm
'ajouter textBox1 et textBox2
'1 Bouton nommer CommandButton1
'Période ajoutée = 6 mois
'Entrer une date dans TextBox1 et cliquer sur le bouton.

Private Sub CommandButton1_Click()
    TextBox2 = CalculDateLimite(TextBox1.Text, 6)
End Sub
Function CalculDateLimite(DT As String, Intervale As Integer) As Date
    CalculDateLimite = DateSerial(Year(DT), Month(DT) + Intervale, Day(DT))
End Function

A adapter,
A+
0
Réponse 2 / 3
jh50160 Messages postés 90 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,lermite222

Oui c'est a peu près ça, mon Formulaire à plusieurs textBox 'textBox1,TextBBox2,etc , ce que je veux c'est pouvoir entré une date dans mon TextBox1 et des que je change de textBox et si je suis disons à huit jour de la date limite, un message m'indique "bougie a changer avant le (date limite). voilà. Merci A+
0
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Pour faire cela tu doit avoir une base de donnée avec la date du changement précédant ?
Je ne vois pas, sinon, ce que tu veux.
Pour la date diff je t'ai communiqué une fonction.
0