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 :

VBA EXCEL - Modifier chaine de chiffre en date


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
    Avril 2010
    Messages
    118
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2010
    Messages : 118
    Par défaut VBA EXCEL - Modifier chaine de chiffre en date
    Bonjour,

    Dans VBA Excel, je souhaiterai modifier une variable que je récupère sous la forme 01012000 en date de naissance 01.01.2000.

    De quelle manière est-ce que je peux procéder?

    D'avance merci et excellente soirée.

    Michael.

  2. #2
    Membre émérite
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    385
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Octobre 2013
    Messages : 385
    Par défaut
    Bonjour,

    Avec des fonction de manipulation de chaînes, telles que LEFT, RIGHT, MID.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Left(Variable, 2) & "." & Mid(Variable, 3, 2) & "." & Right(Variable, 4)

  3. #3
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Salut, si tu veux que ta chaîne de caractères soit convertie en une vraie date, utilises la formule ci-dessous.
    En considérant que ta cellule A1 soit au format texte, la cellule contenant la formule doit être au format date.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =TEXTE(DATEVAL(GAUCHE(A1;2)&"/"&STXT(A1;3;2)&"/"&DROITE(A1;4));"JJ/MM/AAAA")

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    118
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2010
    Messages : 118
    Par défaut
    Bonjour à tous les deux,

    Merci pour vos réponses.

    Mat, cela fonctionne parfaitement et je t'en remercie.

    Excellente journée.

    Michael.

  5. #5
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 236
    Par défaut
    Hello,
    on peut aussi utiliser la fonction Format. Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MaChaine = Format("01012000","00\.00\.0000")
    Ami calmant, J.P

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Vba Application.VLookup excel transforme les chiffres en DATE :(
    Par wkrystof1 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/04/2017, 20h44
  2. [VBA Excel] Liste chainée de type perso
    Par Danos dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 03/04/2008, 15h13
  3. [VBA] Excel modifier un code source.
    Par mike9191 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/05/2007, 12h56
  4. VBA Excel, modifier une lettre type dans word
    Par morgan47 dans le forum VBA Word
    Réponses: 2
    Dernier message: 26/06/2006, 21h02
  5. [VBA][EXCEL]Conversion d'une chaine en single
    Par Ania dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 29/11/2005, 17h28

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