Probleme format date listbox

[bartelele]

Bonjour à tous,

Voilà j'ai un souci de format date, mais je m'arrache les cheveux et tourne en rond.

Il s'agit d'un outil de gestion de visite médicale.

Lorsque la prochaine visite arrive dans - de 30 jours, le nom de la personne s'affiche dans une listbox, si la visite est en retard elle s'affiche dans un autre listbox.

Mon problème est lorsque je modifie la date de la dernière visite d'un personne (parce qu'il a passé sa visite aujourd'hui, cela s'enregistre dans ma base, mais je me suis aperçu que ca s'enregistre (ou ca se charge) au format MM/DD/YYYY

et donc fausse tous mes indicateurs

j'ai essayé plein de truc avec format date et cdate, mais je n'y arrive pas

si quelqu'un peut m'aider

 

[13GIBE59]

Re : Probleme format date listbox

Bonjour bartelele

Je n'ai pas ouvert ton fichier, mais pour le format d'une listbox, la syntaxe est la suivante :

"Ton résultat" = Format("Ta listbox".Value, "mm/dd/yyyy")

Reviens si cela ne marche pas.

 

[bartelele]

Re : Probleme format date listbox

Bonjour,

Merci de ton aide

Cela ne marche pas :s

En effet si tu modifie la date de la derniere visite de quelqu'un et que tu l'écris en DD/MM/YYYY, il l'enregistre en MM/DD/YYYY

 

[MJ13]

Re : Probleme format date listbox

Bonjour Bartele, Jean-Bernard

Tu peux tester:

ActiveWorkbook.Sheets("base").Cells(Ligne, 12) = Format(Me.TB_Date_prochaine_visite, "MM/DD/YYYY") & ""

 

[bartelele]

Re : Probleme format date listbox

j'ai une erreur définie par l'application ou par l'objet

 

[MJ13]

Re : Probleme format date listbox

Re

Chez moi sur XL2007, no problem.

 

[bartelele]

Re : Probleme format date listbox

arf dur, je vais essayer de trouver une astuce pour 2002...

 

[jp14]

Re : Probleme format date listbox

Bonjour

Travailler sur des dates n'est pas toujours simple.
Il faut vérifier si la valeur saisie est une date en utilisant la fonction Isdate.
exemple

Private Sub TB_Visite_medicale_realise_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TB_Visite_medicale_realise = "" Then Exit Sub
If Not IsDate(TB_Visite_medicale_realise) Then
Call MsgBox("Erreur de saisie" _
            & vbCrLf & "La date doit être de la forme jj/mm/aaaa" _
            , vbInformation, Application.Name)

Exit Sub
End If
End Sub

Au niveau de l'enregistrement indiquer que la donnée est une date

With ActiveWorkbook.Sheets("base")
................
.Cells(Ligne, 12) = CDate(Me.TB_Date_prochaine_visite) & ""
................
End with

L'affichage dépendra du format utilisé.

JP

 

[bartelele]

Re : Probleme format date listbox

Merci, j'ai essayé, lorsque je rentre l'information le format est DD/MM/YYYY mais lorsqu'elle se charge c'est MM/DD/YYYY

 

[bartelele]

Re : Probleme format date listbox

J'ai pondu ca mais rien n'y fait......

Private Sub TB_Date_prochaine_visite_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim a As Date
'Demande d'aller en ligne "Fin" de proceudre si une erreur occure
On Error GoTo Fin

'verification si un / car une nombre est une date pour windows
If InStr(TB_Date_prochaine_visite, "/") = 0 Then GoTo Fin

'convertion du textbox en format date souhaité => Si pas une date erreur se produit
Me.TB_Date_prochaine_visite.Text = Format(CDate(TB_Date_prochaine_visite.Text), "dd/mm/yyyy")

'sort du programme si pas d erreur
Exit Sub

'gestion de l'erreur qui est générée par une non date
Fin:
If Not TB_Date_prochaine_visite.Text & "" = "" Then
MsgBox "Le format de la date doit être JJ/MM/AAAA"
Cancel = True
End If

End Sub

 

[klin89]

Re: Re : Probleme format date listbox

Bonjour à tous,
Bonjour bartelele,

J'ai pas tout suivi et je m'y perds dans ton formulaire :

Essaie avec datevalue et numberformat

With .Cells(Ligne, 12)
          .Value = DateValue(TaTextbox)
           .NumberFormat = "ton format"
End With

Klin89

 

[jp14]

Re : Probleme format date listbox

Bonsoir

Ci dessous un code à tester.
Les textbox étant du type string, j'ai crée des variables de type date pour les calculs.

Dim Datepv As Date
Dim datedv As Date


Private Sub TB_Derniere_visite_AfterUpdate()

If Not IsDate(TB_Derniere_visite) Then
    Call MsgBox("Vous devez inscrire une date sous la forme jj/mm/aaaa", vbInformation, Application.Name)
Exit Sub
End If
datedv = CDate(Me.TB_Derniere_visite.Text)
'Me.TB_Derniere_visite.Text =


'additionne le nombre de mois pour obtenir la date prévisionnelle de la prochaine visite

Select Case Me.CB_Frequence
    Case "24 mois"
        Datepv = DateAdd("yyyy", 2, datedv)
        
    Case "12 mois"
        Datepv = DateAdd("yyyy", 1, datedv)
        
    Case "6 mois"
        Datepv = DateAdd("m", 6, datedv)
        
    End Select
    TB_Date_prochaine_visite.Text = Datepv




End Sub

.........................................

Private Sub CommandButton1_Click()
Dim Ligne As Long, C As Range
Set C = Sheets("base").Range("B:B").Find(Me.CB_Nom, lookat:=xlWhole)
If C Is Nothing Then
MsgBox "pas trouvé " & Me.CB_Nom
Exit Sub
End If
Ligne = C.Row
ActiveWorkbook.Sheets("base").Cells(Ligne, 1) = Me.TB_Matricule & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 2) = Me.TB_Nom & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 3) = Me.TB_Prenom & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 4) = Me.TB_Date_Naissance & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 5) = Me.TB_Anciennete & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 7) = Me.TB_Service & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 8) = Me.TB_Division & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 9) = Me.TB_Etablissement & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 10) = datedv
ActiveWorkbook.Sheets("base").Cells(Ligne, 11) = Me.CB_Frequence & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 12) = Datepv
ActiveWorkbook.Sheets("base").Cells(Ligne, 13) = Me.TB_Date_convocation & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 14) = Me.CB_Cause & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 15) = Me.TB_Commentaire & ""

Unload UserForm1

End Sub

A modifier en initialisant les variables à l'ouverture de l'usf
JP