Bonjour à tous,

je réalise un remplissage d'une TextBox via 3 ComboBox afin de rentrer une Date.
une fois le tout remplie et le Userform Fermé la date ne doit pas être au bon format puisque je dois obligatoirement double cliquer dessus et faire ENTRER pour qu'elle entre bien en Trie comme les autres.
J'ai tenté d'écrire manuellement la date dans la TextBox en question ( Textbox22 avec une syntaxe : 12/12/2013 ) et même problème

J'ai tenter de faire une macro " DOUBLE CLICK puis ENTRER" mais je n'y suis pas parvenu.

Nom : trie.png Affichages : 233 Taille : 16,7 Ko
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
65
 TextBox22.Value = (ComboBox1.Value & ComboBox2.Value & ComboBox3.Value) 'TextBox22=date dans colonne A
 
Private Sub UserForm_Initialize()
 
ComboBox1.Style = fmStyleDropDownList ' oblige l'utilisateur à mettre une des valeurs de la liste
ComboBox1.AddItem ("01/")
ComboBox1.AddItem ("02/")
ComboBox1.AddItem ("03/")
ComboBox1.AddItem ("04/")
ComboBox1.AddItem ("05/")
ComboBox1.AddItem ("06/")
ComboBox1.AddItem ("07/")
ComboBox1.AddItem ("08/")
ComboBox1.AddItem ("09/")
ComboBox1.AddItem ("10/")
ComboBox1.AddItem ("11/")
ComboBox1.AddItem ("12/")
ComboBox1.AddItem ("13/")
ComboBox1.AddItem ("14/")
ComboBox1.AddItem ("15/")
ComboBox1.AddItem ("16/")
ComboBox1.AddItem ("17/")
ComboBox1.AddItem ("18/")
ComboBox1.AddItem ("19/")
ComboBox1.AddItem ("20/")
ComboBox1.AddItem ("21/")
ComboBox1.AddItem ("22/")
ComboBox1.AddItem ("23/")
ComboBox1.AddItem ("24/")
ComboBox1.AddItem ("25/")
ComboBox1.AddItem ("26/")
ComboBox1.AddItem ("27/")
ComboBox1.AddItem ("28/")
ComboBox1.AddItem ("29/")
ComboBox1.AddItem ("30/")
ComboBox1.AddItem ("31/")
 
ComboBox2.Style = fmStyleDropDownList ' oblige l'utilisateur à mettre une des valeurs de la liste
ComboBox2.AddItem ("01/")
ComboBox2.AddItem ("02/")
ComboBox2.AddItem ("03/")
ComboBox2.AddItem ("04/")
ComboBox2.AddItem ("05/")
ComboBox2.AddItem ("06/")
ComboBox2.AddItem ("07/")
ComboBox2.AddItem ("08/")
ComboBox2.AddItem ("09/")
ComboBox2.AddItem ("10/")
ComboBox2.AddItem ("11/")
ComboBox2.AddItem ("12/")
 
ComboBox3.Style = fmStyleDropDownList ' oblige l'utilisateur à mettre une des valeurs de la liste
ComboBox3.AddItem ("2013")
ComboBox3.AddItem ("2014")
ComboBox3.AddItem ("2015")
ComboBox3.AddItem ("2016")
ComboBox3.AddItem ("2017")
ComboBox3.AddItem ("2018")
ComboBox3.AddItem ("2019")
ComboBox3.AddItem ("2020")
ComboBox3.AddItem ("2021")
ComboBox3.AddItem ("2022")
ComboBox3.AddItem ("2023")
ComboBox3.AddItem ("2024")
ComboBox3.AddItem ("2025")