Sujet Précédent Sujet Suivant

Modifier format Date sur Visual Basic - Excel 2010

Résolu/Fermé
leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016 - 23 mai 2016 à 11:22
leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016 - 24 mai 2016 à 08:18
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
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
23 mai 2016 à 11:55
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
leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016
23 mai 2016 à 12:05
Bonjour Gyrus,

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

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

LEBERUT
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016
23 mai 2016 à 12:33
Désolé, je ne parviens pas à ouvrir ton fichier.

A+
0
leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
23 mai 2016 à 12:45
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
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016
23 mai 2016 à 14:37
Regarde le code de l'Userform "Validation"

A+
0
leberut Messages postés 17 Date d'inscription jeudi 15 mars 2007 Statut Membre Dernière intervention 7 juin 2016
23 mai 2016 à 14:59
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