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 :

Userform problème de date


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Femme Profil pro
    dentellière
    Inscrit en
    Décembre 2014
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : dentellière

    Informations forums :
    Inscription : Décembre 2014
    Messages : 6
    Points : 7
    Points
    7
    Par défaut Userform problème de date
    Bonjour,
    J'ai beau chercher, je ne trouve pas de solution.
    Je remercie d'avance tout ceux qui voudront m'aider car je
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    Private Sub UserForm_Initialize()
        TextBox3.Value = DateValue(Date)
    End Sub
    Private Sub TextBox9_Change()
     
     
    Dim Texte As String
    Texte = TextBox9.Text
    Select Case Len(Texte)
    Case 2, 5, 8, 11
    Texte = Texte & " "
    End Select
    TextBox9.Text = Texte
    End Sub
     
    Private Sub TextBox10_Change()
     
     
    Dim Texte As String
    Texte = TextBox10.Text
    Select Case Len(Texte)
    Case 2, 5, 8, 11
    Texte = Texte & " "
    End Select
    TextBox10.Text = Texte
    End Sub
     
    Private Sub Valider_Click()
     With Worksheets("FICHE_RDV")
     
      Sheets("FICHE_RDV").Range("B5").Value = TextBox3
      Sheets("FICHE_RDV").Range("B6").Value = TextBox4
      Sheets("FICHE_RDV").Range("B8").Value = TextBox5
      Sheets("FICHE_RDV").Range("B9").Value = TextBox6
      Sheets("FICHE_RDV").Range("B10").Value = TextBox7
      Sheets("FICHE_RDV").Range("B11").Value = TextBox8
      Sheets("FICHE_RDV").Range("B15").Value = TextBox9
      Sheets("FICHE_RDV").Range("B16").Value = TextBox10
      Sheets("FICHE_RDV").Range("B17").Value = TextBox11
      Sheets("FICHE_RDV").Range("B18").Value = TextBox12
      Sheets("FICHE_RDV").Range("B19").Value = TextBox13
    End With
     
    'Recuperation de la derniere ligne et inscription des données
    Dim RDV As Integer
     RDV = Range("a65000").End(xlUp).Row + 1
     
    Cells(RDV, 1).Value = TextBox3.Value
      Cells(RDV, 2).Value = TextBox4.Value
      Cells(RDV, 6).Value = TextBox5.Value
      Cells(RDV, 7).Value = TextBox6.Value
      Cells(RDV, 8).Value = TextBox7.Value
      Cells(RDV, 9).Value = TextBox8.Value
      Cells(RDV, 10).Value = TextBox9.Value
      Cells(RDV, 11).Value = TextBox10.Value
      Cells(RDV, 12).Value = TextBox11.Value
      Cells(RDV, 13).Value = TextBox12.Value
      Cells(RDV, 14).Value = TextBox13.Value
     
     
     
    Unload Me
     
    End Sub
    Hélas, lorsque la date s'inscrit en date américaine dans mon tableau RDV et correctement sur ma fiche RDV.
    Ci-joint mon fichier
    RDV FICHE RDV test 2.xlsm

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 379
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 379
    Points : 12 073
    Points
    12 073
    Billets dans le blog
    8
    Par défaut re
    Bonjour


    pour la fiche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("FICHE_RDV").Range("B5").Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))
    por la feuille RDV
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(RDV, 1).Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))
    au revoir
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre actif
    Homme Profil pro
    Ancien Etudiant
    Inscrit en
    Janvier 2019
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Cher (Centre)

    Informations professionnelles :
    Activité : Ancien Etudiant

    Informations forums :
    Inscription : Janvier 2019
    Messages : 152
    Points : 224
    Points
    224
    Par défaut
    Bonjour à tous,

    pourquoi
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TextBox3.Value = DateValue(Date)
    plutôt que
    Si la même valeur s'écrit différemment dans deux feuilles différentes c'est peut-être que le format date des cellules est différent ?

    A+

  4. #4
    Futur Membre du Club
    Femme Profil pro
    dentellière
    Inscrit en
    Décembre 2014
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : dentellière

    Informations forums :
    Inscription : Décembre 2014
    Messages : 6
    Points : 7
    Points
    7
    Par défaut Merci
    Citation Envoyé par patricktoulon Voir le message
    Bonjour


    pour la fiche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("FICHE_RDV").Range("B5").Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))
    por la feuille RDV
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(RDV, 1).Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))
    au revoir
    Milles mercis, mon problème est résolu.

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

Discussions similaires

  1. [XL-2016] problème de date avec un chargement d'userform
    Par maurice.dumas dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/12/2018, 11h17
  2. [XL-2010] problème report date sur userform
    Par patgravure35 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 11/01/2015, 12h20
  3. [XL-2010] Userform / problème de format de date nom modifiable
    Par GADENSEB dans le forum Macros et VBA Excel
    Réponses: 45
    Dernier message: 20/05/2014, 15h04
  4. Réponses: 6
    Dernier message: 05/03/2009, 08h34
  5. Encore un probléme de date avec TADO !
    Par bNoureddine dans le forum Bases de données
    Réponses: 2
    Dernier message: 22/02/2004, 19h22

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