probleme de date

[ghislaineg]

Bonjour quand je fait une modifie la date dans ma Bd enrégistrement avec ma procedure suivante:


Dim modi As Boolean

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' If CloseMode = vbFormControlMenu Then Cancel = True
'End Sub


Private Sub cmdEnrg_Click()
nuli = Me.cbxChoixDate.ListIndex + 2
With Sheets("BD enr")
.Cells(nuli, 1) = CDate(Me.tbxDate)
.Cells(nuli, 5) = Me.tbxNomBat
.Cells(nuli, 6) = Me.tbxNomQuai
.Cells(nuli, 7) = Me.tbxNomPois
.Cells(nuli, 2) = CDbl(Me.tbxPoidBrut)
.Cells(nuli, 3) = CDbl(Me.tbxPartGlace) / 100
.Cells(nuli, 4) = CDbl(Me.tbxPoidNet)
nli = WorksheetFunction.CountA(.Columns(1))
.Range("A2:J" & nli).Sort Key1:=.Columns(1), Order1:=xlDescending, Header:=xlGuess
End With
miseajour
Me.cbxChoixDate = ""
MsgBox "La modification est enregistrée."
End Sub

Private Sub tbxDate_Change()

End Sub

Private Sub UserForm_Initialize()
modi = False
miseajour
modi = True
End Sub

Private Sub cbxChoixDate_Change()
If modi = False Then Exit Sub
nuli = Me.cbxChoixDate.ListIndex + 2 ' la première ligne de données est 2
modi = False
With Sheets("BD enr")
Me.tbxDate = .Cells(nuli, 1)
Me.tbxNomBat = .Cells(nuli, 5)
Me.tbxNomQuai = .Cells(nuli, 6)
Me.tbxNomPois = .Cells(nuli, 7)
Me.tbxPoidBrut = Format(.Cells(nuli, 2), "#####.00")
Me.tbxPartGlace = Format(.Cells(nuli, 3) * 100, "0.00")
Me.tbxPoidNet = Format(.Cells(nuli, 2) * (1 - .Cells(nuli, 3)), "#####.00")
End With
modi = True
Me.cmdSortir.SetFocus
End Sub
Private Sub tbxPoidBrut_AfterUpdate()
If modi = False Then Exit Sub
ModiCalcul
End Sub

Private Sub tbxPartGlace_AfterUpdate()
If modi = False Then Exit Sub
ModiCalcul
End Sub

Private Sub cmdSortir_Click()
Unload ufConsultation
End Sub

Sub miseajour()
Me.tbxDate = ""
Me.tbxNomBat = ""
Me.tbxNomQuai = ""
Me.tbxNomPois = ""
Me.tbxPoidBrut = ""
Me.tbxPartGlace = ""
Me.tbxPoidNet = ""
Me.cbxChoixDate.List = Range("bd_enrdate").Value
End Sub

Sub ModiCalcul()
With Sheets("BD enr")
Me.tbxPoidNet = Format(CDbl(Me.tbxPoidBrut) * (1 - CDbl(Me.tbxPartGlace) / 100), "#####.00")
Me.tbxPoidBrut = Format(Me.tbxPoidBrut, "#####.00")
Me.tbxPartGlace = Format(tbxPartGlace, "0.00")
End With
End Sub

Si je decide de changer mon champs date dans ma consultation, mon format date qu'il me retourne n'est pas bon, il accepte la date mais au lieu de marque 10/09/2011 comme indique dans le champs il enrégistre dan la bd enr 09/10/2011 il inverse le mois et le jour

est-ce que vous pouvez m'aider... 🙂

Salutation Ghislaine

 

[job75]

Re : probleme de date

Bonsoir,

mon format date qu'il me retourne n'est pas bon, il accepte la date mais au lieu de marque 10/09/2011 comme indique dans le champs il enrégistre dan la bd enr 09/10/2011 il inverse le mois et le jour

Pas essayé la macro, mais dans ce genre de problème utiliser la fonction CDate où c'est nécessaire...

A+

 

[flyonets44]

Re : probleme de date

bonsoir
il faut utiliser un format date exprimé au format français à partir d'une date en foramt américain
le code ci-dessous est à adapter
Sub Convertir_dates()
' Convertir une date au format américain vers le format français
Dim Tableau As Variant, Z, Lrow
Application.ScreenUpdating = False
Lrow = Feuil1.Cells(65536, 3).End(xlUp).Row
Tableau = Range("H1:H" & Lrow).Value
For Z = 1 To Lrow
Tableau(Z, 1) = Right(Tableau(Z, 1), 2) & "/" & Mid(Tableau(Z, 1), 5, 2) _
& "/" & Left(Tableau(Z, 1), 4)
Next
Range("H1:H" & Lrow).Value = Tableau
Range("H1:H" & Lrow).NumberFormat = "dd/mm/yyyy"
End Sub
Cordialement

 

[ghislaineg]

Re : probleme de date

Bonjour,
voici mon fichier si cela peux vous aider,

http://cjoint.com/?3ImvZiMOyyy
dans la feuille ajout d' enrégistrement:


Consultation ou modification d'un enrégistrement

C'est là quand je clique sur une date et que je modifie cette date il me la donne pas correcte mais l'accepte...

Salutation Ghislaine

 

[ghislaineg]

Re : probleme de date

Bonjour, à quel endroit dans ma programmation pourrais-je insérer ta procédure...

Salutation Ghislaine

 

[ghislaineg]

Re : probleme de date

Bonjour, je me suis apercu que peut importe le champs modifie, il change le format date 12 septembre 2011, il le change pour le 9 decembre 2011..

Salutation Ghislaine

 

[ghislaineg]

Re : probleme de date

Bonjour j'ai trouvé ceci

Cells(nuli, 1) = format(CDate(Me.tbxDate),"dd/mm/yyyy")

Ca fonctionne

Merci de votre aide