Modifier format Date sur Visual Basic - Excel 2010 [Résolu/Fermé]

Signaler
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016
-
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016
-
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

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
528
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016
>
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
528 >
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016

Regarde le code de l'Userform "Validation"

A+
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016

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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
528 >
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016

Modifie cette ligne de code
Worksheets("base de donnee").Cells(iLigne, 2).Value = CDate(Questionnaire.Txt_Date.Value) 'Date 


A+
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
7 juin 2016
>
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

Bonjour Gyrus,

Apparemment ça fonctionne.
Merci beaucoup.

LEBERUT