Discussion :

[Jane92]

Bonjour,
J'ai créé un formulaire qui alimente sur un autre onglet une base de données. Le problème est que je ne peux pas traiter les données date (tri chronologique, etc...) qui arrivent en format texte dans les cellules de mon tableau qui sont pourtant paramétrées avec le format de cellule date DD/MM/YY... Existe t-il un moyen pour forcer le format date à l'arrivée sur ma base de données ?

Au besoin je joins mon fichier, le formulaire est situé sur l'onglet "FormSaisie" et la base de donnée sur l'onglet "bdd".

Je n'ai rien trouvé sur le web pour m'aider

Un très grand merci pour le temps consacré !

Bonne journée,

Jane

[lionel86500]

Bonjour

essaie cette option

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
s1 = "12/06/2015"  ' Mis en jour, mois, année
Range("D6") = Format(s1, "MM/DD/YYYY")   ' Ici le format mois, jour, année est bon il met sous excel en JJ/MM/AAAA

[Jane92]

Bonjour

essaie cette option

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
s1 = "12/06/2015"  ' Mis en jour, mois, année
Range("D6") = Format(s1, "MM/DD/YYYY")   ' Ici le format mois, jour, année est bon il met sous excel en JJ/MM/AAAA

Bonjour Lionel,
Désolée, j'apprends VB toute seule, pas facile... Je ne saurais pas où et comment placer ces 2 lignes dans mon code...
Le code que j'utilise pour alimenter mon tableau est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim suivant As Integer
suivant = Sheets("bdd").Range("A" & Rows.Count).End(xlUp).Row + 1
 
Sheets("bdd").Cells(suivant, 1) = TextBox1
Sheets("bdd").Cells(suivant, 2) = ComboBox1
Sheets("bdd").Cells(suivant, 3) = ComboBox2
Sheets("bdd").Cells(suivant, 4) = TextBox3
Sheets("bdd").Cells(suivant, 5) = ComboBox3
Sheets("bdd").Cells(suivant, 6) = TextBox5

Pouvez-vous m'éclairer un peu plus ?
Merci
Jane

[lionel86500]

C'est le textbox5 je crois donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("bdd").Cells(suivant, 6) = Format(TextBox5, "MM/DD/YYYY")

[Jane92]

Merci de ton aide Lionel, ça marche très bien
Bonne journée
Jane