[VBA-E]probleme affichage date excel a partir d'une DTPicker VBA [15/02/07]

BONJOUR,
je commence tout juste la programmation en VBA sous excel et je rencontre beaucoup de problemes dont notamment celui -ci.je n'arrive pas à m'en défaire et j'ai l'impression de tourner en rond. voila:

j'utilise un calendrier dans une fenetre avec la fonction "DTPicker1" et j'aimerais que lorsqu'une date est validée par la touche ok, qu'elle soit réécrite dans une autre feuille.

Or quand j'execute ma macro, la date affichée dans l'autre feuille est le 0-janvier-1900. connaissez vous le probleme?
merci pour votre attention.

sous progs:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CMD_ok_Click() Dates = .DTPicker1.Value End sub   Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)   DTPicker1.Value = Format(Now, "dd,mmm,yyyy")   End Sub

---

morceau de macro:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Remplir_Atelier_Tournage()   Sheets("AtelierT").Activate Range("A2").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell.Value = Dates End sub

---

GROMORICE :cry:

Bonjour

Supprime la routine

Code:

---

1 2 3 4 5 6

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)   DTPicker1.Value = Format(Now, "dd,mmm,yyyy")   End Sub

---

pour voir

Starec

MERCI STAREC POUR VOTRE AIDE,

malheureusement le problème persiste.
Je pense que le probleme vient de ma macro principale. lorsque je demande de reporter la valeur. j'ai mis une valeur aléatoire dans les cellules de ma feuille et elles ont été transformées directement par la date du 0 janvier 1900.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Remplissage de la feuille AtelierT Sub Remplir_Atelier_Tournage() Sheets("AtelierT").Activate Range("A2").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell.Value = Dates With ActiveCell .Offset(0, 1).Value = posteT .Offset(0, 2).Value = Nomoperateur .Offset(0, 3).Value = operationUT .Offset(0, 4).Value = ppT .Offset(0, 5).Value = pT .Offset(0, 6).Value = Outiltour .Offset(0, 8).Value = Dates End With

---

la variable dates ... elle est déclarée ou et comment ... ?

voici la fenetre qui me pose problem et le résultat qu'elle maffiche en piece jointe. MERCI DE VOTRE ATTENTION.

oui la variable "dates" est déclarer

Code:

---

Dim Dates As Date

---

je l'ai déclarer au dessus de ma macro principale. Celle qui contient:

Code:

---

'Remplissage de la feuille AtelierT

---

Mais peut être que ce n'est pas la bonne déclaration puisque la date est obtenue a partir d'une "DTPicker".

Citation:

---

Envoyé par bbil

la variable dates ... elle est déclarée ou et comment ... ?

---

si ta "macro principale" est dans un module public... tu doit déclarer ta variable dans ce module tout en haut...

Code:

---

1 2	dim dates as date

---

pour qu'elle soit aussi accessible par le code dans userform.

Pour éviter des problèmes sur la protée des variables rajoutes en première ligne de tes modules :

Code:

---

1 2	Option explicit

---

cela t'oblige à déclarer toutes tes variables ...( 1 seule fois par variables..) et ainsi te permet d'éviter les erreurs de noms de variables ou de portées...

j'ai trouvé la solution. merci à tous pour votre aide!!
il suffisait d'ajouter "global" a la declaration de ma variable de facon à ce qu'elle soit prise en compte par toute les macros et sous macros si j'ai bien compris.Merci de m'avoir orienter vers les variables!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Public operation .... Public PpF Public PlaquetteF Public outilF 'Dim Dates As Date Global Dates As Date ... Public Finition Public ppT Public pT Public Outiltour

---