Problème de date avec mon DTPicker.

Version imprimable

28/01/2015, 22h36
ironGol

Problème de date avec mon DTPicker.

Bonjour à tous

Je suis nouveau sur le site et j'ai besoin de votre aide.
pour un projet Excel j'ai voulu utiliser un DTPicker. Il fonctionne mais mal, en effet je veux qu'il affiche sur Excel la date du 20/01/2015 or lui il m'affiche 00/01/1900. Mon code doit être mauvais mais je n'arrive pas à trouver où.
je vous fourni ma feuille pour mieux comprendre.

Si quelqu'un à la réponse je l'en remercie grandement!!
28/01/2015, 22h58
SfJ5Rpw8

Bonsoir,

Citation:

Envoyé par ironGol

...Mon code doit être mauvais mai..

on peut le voir ce code ?

voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
Dim l As Integer
Dim c As Integer
Dim now As Date
 
l = 4
c = 1
 
While Cells(l, c) <> ""
    l = l + 1
Wend
 
DTPicker1.Value = now
 
If DTPicker1 > now Then 'si la date selectionné d'un accident est supérieur à aujourd'hui alors afficher un message d'erreur
   MsgBox "date supérieur à aujourd'hui"
   UserForm5.Hide
 
Else
 
    Cells(l, c).Value = ComboBox1
    Cells(l, c + 1).Value = DTPicker1
    Cells(l, c + 2).Value = TextBox1
    Cells(l, c + 3).Value = TextBox2
    Cells(l, c + 4).Value = TextBox3
 
End If
 
UserForm5.Hide
 
End Sub

28/01/2015, 23h34
SfJ5Rpw8

re,

c'est quoi cette ligne :

Code:

Dim now As Date

now est une fonction VB ... tu n'as pas à la déclarer ... supprime la ligne
28/01/2015, 23h41
ironGol

Re

Ok je viens de comprendre mon erreur, je voulais dire à Excel que le mot now représenté la date d'aujourd'hui pour que mon DTPicker soit toujours inférieur à now.

Mais en fait ce n'est pas nécessaire je viens de l'enlever et mon bouton fonctionne à nouveau.

Merci de ton aide et désolé pour la mauvaise présentation je ferais plus attention la prochaine fois.
29/01/2015, 00h03
kiki29

Salut, bref, consulter Utiliser les contrôles dans un UserForm, en VBA Excel