Modifier format Date sur Visual Basic - Excel 2010

Résolu
leberut Messages postés 17 Statut Membre -  
leberut Messages postés 17 Statut Membre -
Bonjour,

J'ai récupéré un fichier Excel qu'il faut que j’incrémente via un formulaire réalisé via VBA.
Il y a un bugg : les dates saisies dans le formulaire en jj/mm/aaa sont saisie dans l'excel soit on mm/jj/aaa (si le jour est inf à 12) soit en texte...

Quand je doucle clic sur la case date ds VBA, voici le code que j'ai :

Private Sub Cmd_Annuler_Click()
Questionnaire.Hide
End Sub

Private Sub Cmd_Raz_Click()
'Raz des cases à cocher
For iLettre = 1 To 19
For iChiffre = 1 To 5
Questionnaire.Controls(Chr(iLettre + 64) & iChiffre) = False
Next
Next
'raz des autres éléments sauf le nom de l'utilisateur
Questionnaire.Txt_Accueil = ""
Questionnaire.Txt_Bilan = ""
Questionnaire.Txt_Com = ""
Questionnaire.Txt_Controle = ""
Questionnaire.Txt_Date = ""
Questionnaire.Txt_Dep = ""
Questionnaire.Txt_Fact = ""
Questionnaire.Txt_Plan = ""
Questionnaire.Txt_Rapport = ""
End Sub

Private Sub Cmd_Valider_Click()
Validation.Show
End Sub

Private Sub Txt_Date_Change()

End Sub


----

Pouvez-vous me dire ou le modifier et comment svp ?

Merci

LEBERUT

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Il n'y a aucune partie du code qui renseigne la feuille avec des dates.
    Je te conseille de joindre le fichier.

    Pour cela, tu peux utiliser https://www.cjoint.com/

    A+
    1
    1. leberut Messages postés 17 Statut Membre
       
      Bonjour Gyrus,

      Voici le fichier : http://www.cjoint.com/c/FExkej64zsE

      Merci de l’intérêt que tu portes à ma question.

      LEBERUT
      0
    2. Gyrus Messages postés 3360 Statut Membre 526 > leberut Messages postés 17 Statut Membre
       
      Désolé, je ne parviens pas à ouvrir ton fichier.

      A+
      0
    3. leberut Messages postés 17 Statut Membre > Gyrus Messages postés 3360 Statut Membre
       
      Re,

      J'ai essayé une seconde fois et ca ne marche pas non plus. Peux être que ca ne marche pas car il y a une macro ?

      Ou puis-je trouver la partie du code qui renseigne la feuille avec des dates.

      Ce que j'ai copié / coller proviens d'un double clic sur la case entouré dans l'image ci-joint : http://www.cjoint.com/c/FExkTAY5pzE


      Merci.

      LEBERUT
      0
    4. Gyrus Messages postés 3360 Statut Membre 526 > leberut Messages postés 17 Statut Membre
       
      Regarde le code de l'Userform "Validation"

      A+
      0
    5. leberut Messages postés 17 Statut Membre
       
      Re,

      Bien vu :

      Private Sub Cmd_Annuler_Click()
      Validation.Hide
      Questionnaire.Hide
      End Sub

      Private Sub Cmd_Retour_Click()
      Validation.Hide
      End Sub

      Private Sub Cmd_Valider_Click()
      Dim iLigne As Integer
      Dim A As Variant
      [...]
      Dim S As Variant
      Dim iLettre As Integer
      Dim iChiffre As Integer

      'initialisation des cases de selection pour reperer une erreur
      A = -1
      [...]
      S = -1

      'Recherche de la premiere ligne libre
      iLigne = RechercheLigneLibre()

      'Copie des données dans le tableau
      Worksheets("base de donnee").Cells(iLigne, 2).Value = Questionnaire.Txt_Date.Value 'Date
      Worksheets("base de donnee").Cells(iLigne, 3).Value = Questionnaire.Txt_Dep.Value 'departement
      'Copie des Remarques
      Worksheets("base de donnee").Cells(iLigne, 23).Value = Questionnaire.Txt_Accueil.Value
      Worksheets("base de donnee").Cells(iLigne, 24).Value = Questionnaire.Txt_Com.Value
      Worksheets("base de donnee").Cells(iLigne, 25).Value = Questionnaire.Txt_Plan.Value
      Worksheets("base de donnee").Cells(iLigne, 26).Value = Questionnaire.Txt_Controle.Value
      Worksheets("base de donnee").Cells(iLigne, 27).Value = Questionnaire.Txt_Rapport.Value
      Worksheets("base de donnee").Cells(iLigne, 28).Value = Questionnaire.Txt_Fact.Value
      Worksheets("base de donnee").Cells(iLigne, 29).Value = Questionnaire.Txt_Bilan.Value

      'Copie de la controleBox
      Worksheets("base de donnee").Cells(iLigne, 1).Value = Questionnaire.CB_Utilisateur.Value



      PLUS LOIN IL Y A CELA :


      'Recherche de la premiere ligne libre
      iLigne = RechercheLigneLibre()

      'Copie des données dans le tableau
      Worksheets("base de donnee").Cells(iLigne, 2).Value = Questionnaire.Txt_Date.Value 'Date
      Worksheets("base de donnee").Cells(iLigne, 3).Value = Questionnaire.Txt_Dep.Value 'departement
      'Copie des Remarques
      Worksheets("base de donnee").Cells(iLigne, 23).Value = Questionnaire.Txt_Accueil.Value
      Worksheets("base de donnee").Cells(iLigne, 24).Value = Questionnaire.Txt_Com.Value
      Worksheets("base de donnee").Cells(iLigne, 25).Value = Questionnaire.Txt_Plan.Value
      Worksheets("base de donnee").Cells(iLigne, 26).Value = Questionnaire.Txt_Controle.Value
      Worksheets("base de donnee").Cells(iLigne, 27).Value = Questionnaire.Txt_Rapport.Value
      Worksheets("base de donnee").Cells(iLigne, 28).Value = Questionnaire.Txt_Fact.Value
      Worksheets("base de donnee").Cells(iLigne, 29).Value = Questionnaire.Txt_Bilan.Value
      'Copie de la controleBox
      Worksheets("base de donnee").Cells(iLigne, 1).Value = Questionnaire.CB_Utilisateur.Value


      Dans tout le reste il y a, selon mois, pas de lien avec des dates.

      Merci,

      LEBERUT
      0