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 :

probleme de date? [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Avril 2012
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2012
    Messages : 29
    Par défaut probleme de date?
    bonjour a tous

    j'ai ce fichier pb de date.xlsm pour remplir et modifier la fiche
    mais depuis ce matin je rencontre le problème quand j'ajoute ou modifie la date le format change du 08/06/15 je passe au 06/08/15 sur ma feuille .


    j'ai regarder le code VB et le format des cellules mais je ne trouve pas

    Merci de votre aide.

  2. #2
    Invité
    Invité(e)
    Par défaut
    Range("A1")=format(date,"yyyy-mm-dd")

  3. #3
    Membre actif
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Avril 2012
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2012
    Messages : 29
    Par défaut
    ça j'ai déjà essayer
    et en fait j'ai trouver pour le bouton valider
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    .Cells(Lig, 3).Value = TextBox1
       .Cells(Lig, 4).Value = CDate(TextBox2)
       .Cells(Lig, 5).Value = TextBox3
       .Cells(Lig, 3).Resize(, 3).HorizontalAlignment = xlRight
    Mais cela ne fonctionne pas pour le bouton modifier


    merci quand même

  4. #4
    Invité
    Invité(e)
    Par défaut
    Je n'ai jamais parlé de cdate!

  5. #5
    Membre Expert
    Inscrit en
    Octobre 2010
    Messages
    1 401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 1 401
    Par défaut
    Bonjour.

    Assure-toi aussi d'avoir un format de date uniforme:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(Lig, I + 2).NumberFormat="dd/mm/yy;@"

  6. #6
    Membre actif
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Avril 2012
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2012
    Messages : 29
    Par défaut
    Citation Envoyé par rdurupt Voir le message
    Je n'ai jamais parlé de cdate!
    re rdurupt

    toi non mais je ne suis pas rester a rien faire et j'ai trouver cette solution pour le bouton valider
    mais la je bloque sur le modifier .

    bonjour Docmarti

    cela ne fonctionne pas car il ne faut que la textbox2 au format date et la c'est la 1 ET 2
    mais merci tout de même

  7. #7
    Membre Expert
    Inscrit en
    Octobre 2010
    Messages
    1 401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 1 401
    Par défaut
    Ca fonctionne si tu mets le format de date seulement pour textBox2 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Lig = Rang.Row
                For I = 1 To NbrDeTextBox
                    If I = 2 Then
                     Cells(Lig, I + 2).NumberFormat = "dd/mm/yy;@"
                     Cells(Lig, I + 2).Value = Format(Controls("Textbox" & I).Value, "yyyy-mm-dd")
                   Else
                     Cells(Lig, I + 2).Value = Controls("Textbox" & I).Value
                   End If
                Next I

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

Discussions similaires

  1. problemes de dates SQL PARADOX
    Par igs dans le forum Paradox
    Réponses: 5
    Dernier message: 05/07/2004, 18h35
  2. Problème de date
    Par rh0D'm@n dans le forum Modules
    Réponses: 3
    Dernier message: 11/05/2004, 15h16
  3. Probleme de date
    Par poufouille dans le forum Bases de données
    Réponses: 4
    Dernier message: 19/03/2004, 14h19
  4. probleme de date (toujours et encore des dates)
    Par Yannesco dans le forum SQL
    Réponses: 3
    Dernier message: 02/02/2004, 19h04
  5. Probleme de date
    Par danuz dans le forum XMLRAD
    Réponses: 3
    Dernier message: 24/09/2003, 15h57

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