Discussion :

[gromorice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

Supprime la routine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gromorice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[gromorice]

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

[gromorice]

oui la variable "dates" est déclarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Dates As Date

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'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".

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[gromorice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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