Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Inscrit en
    janvier 2011
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : janvier 2011
    Messages : 20
    Points : 3
    Points
    3

    Par défaut imposer le format date fr

    Bonjour,
    Je sais que le sujet a été souvent abordé mais rien n'y fait et je suis toujours confronté à ce format anglo saxon.
    Je souhaite, à partir de la saisie de 2 dates dans un userform, les envoyer vers un fichier excel qui calcule la différence entre ces 2 dates (pas de problème jusque là) et que ce calcul me soit retourné dans mon userform dans le format dd/mm/aaaa. Et c'est là que ça se complique !
    Mon code:

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Function TestDates(pDate1 As Date, pDate2 As Date) As Long
    TestDates = DateDiff("d", pDate1, pDate2)
    End Function
     
    Private Sub pDate1_Change()
    If Len(pDate1) = 2 Or Len(pDate1) = 5 Then
    pDate1.Text = pDate1.Text & "/"
    pDate1.SelStart = Len(pDate1)
    pDate1.Text = Format(pDate1.Text, "dd/mm/yyyy")
    End If
    End Sub
     
    Private Sub pDate2_Change()
    If Len(pDate2) = 2 Or Len(pDate2) = 5 Then
    pDate2.Text = pDate2.Text & "/"
    pDate2.SelStart = Len(pDate2)
    pDate2.Text = Format(pDate2.Text, "dd/mm/yyyy")
    End If
    End Sub
     
    Merci d'avance

  2. #2
    Rédacteur
    Avatar de Ormonth
    Homme Profil pro Didier GONARD
    Formateur Office et développeur VBA en freelance
    Inscrit en
    février 2008
    Messages
    2 774
    Détails du profil
    Informations personnelles :
    Nom : Homme Didier GONARD
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : février 2008
    Messages : 2 774
    Points : 6 621
    Points
    6 621

    Par défaut

    Bonjour,

    Vois la partie VBA de ce Tutoriel :

    Comprendre et gérer les dates sous Excel et en VBA

    cordialement,

    Didier
    Didier Gonard

    Dernier tutoriel :
    Le VBA qu'est ce que c'est ?
    Tutoriels : Voir la liste de mes tutoriels Excel & VBA et mon site pro sur ma Page DVP
    N'oubliez pas de mettre : ..quand c'est le cas !

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •