IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Convertir une date en entier


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé

    Profil pro
    Inscrit en
    Juillet 2002
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2002
    Messages : 110
    Par défaut Convertir une date en entier
    Bonjour,

    Je souhaite convertir une date en entier en vba afin de créer des graphique dynamiquement et pouvoir inserer la date dans les echelles.

    Merci d'avance

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub test()
    Dim Ladate As Date, Lentier As Variant
    Ladate = "12/10/2006 14:31:05"
    Lentier = Int(CDbl(Ladate))
    MsgBox Format(Lentier, "dd/mm/yyyy")
    End Sub
    Edit
    Si ta date est au format "jj/mm/aaaa" tu n'es pas obligé de passer par Int(...)
    Par contre, si ta date est dans des cellules, tu peux donner à la colonne le format nombre sans décimale
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        Columns("A:A").NumberFormat = "0"

  3. #3
    Membre confirmé

    Profil pro
    Inscrit en
    Juillet 2002
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2002
    Messages : 110
    Par défaut
    j'ai le code suivant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Recup_Date = Left(Right(StrTemp, 12), 8)
    Date_str = CStr(Left(Recup_Date, 2) & " \ " & Right(Left(Recup_Date, 4), 2) & " \ " & Right(Recup_Date, 4))
    Date_Exl = Int(CDbl(Date_str))
    ou Recup_Date = 01012008
    et Date_str = 01/01/2008

    J'ai une erreur de type incompatible sur la ligne Date_Exl = Int(CDbl(Date_str))
    Si je mets Cdate à la place de cstr j'ai une erreur sur cette ligne.

    Comment faire svp ?

    Merci

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Tu maries les deux
    Dans ton code, Date_str est un string, pas une date. Donc il faut lui dire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Lentier = Int(CDbl(cdate(Date_str)))
    Correction
    Variable LaDate remplacée par le tienne (Date_str)

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Après relecture, je m'aperçois que tu mets
    Date_str = CStr(Left(Recup_Date, 2) & " \ " & Right(Left(Recup_Date, 4), 2) & " \ " & Right(Recup_Date, 4))
    Evite les espaces et mets / à la place de \ (les deux fonctionnent mais / est plus orthodoxe)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Date_str = CStr(Left(Recup_Date, 2) & "/" & Right(Left(Recup_Date, 4), 2) & "/" & Right(Recup_Date, 4))
    Ensuite, comme tu n'as pas l'heure, tu peux supprimer Int(...). Ce qui donne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Lentier = Val(cdate(Date_str))

Discussions similaires

  1. Convertir une date lunaire
    Par djeckelle dans le forum Algorithmes et structures de données
    Réponses: 8
    Dernier message: 03/12/2004, 14h06
  2. []Comment convertir une date GMT en date vb ?
    Par Invité dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 11/08/2004, 16h01
  3. Convertir une date au format excel en datetime SQL server
    Par ALLB dans le forum MS SQL Server
    Réponses: 8
    Dernier message: 20/07/2004, 11h28
  4. Convertir une date en type string
    Par ziboux dans le forum SQL Procédural
    Réponses: 2
    Dernier message: 29/10/2003, 10h52
  5. Réponses: 3
    Dernier message: 28/09/2003, 10h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo