VBA Excel date

Résolu/Fermé
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 6 janv. 2009 à 10:43
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 8 janv. 2009 à 16:17
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

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
6 janv. 2009 à 13:03
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
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024
8 janv. 2009 à 12:42
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
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
8 janv. 2009 à 16:17
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