Bonjour,
Je n'arrive pas à mettre en forme une date saisie dans un formulaire :
Lors de la fermeture du formulaire les données saisies sot recopiées dans des cellules d'une feuille de calcul ; j'ai défini sur les cellules de ma feuille de calcul un format "Date" sous forme "jj/mm/aaaa" en colonne "E" et "H"
(voir code ci-dessous)
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 Private Sub CB1_Click() Dim N_LIGNE_DEP As Long N_LIGNE_DEP = Sheets("Feuil1").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 '------------------------------------------------------------------------------------------------ NUMERO = TB1.Value Sheets("Feuil1").Range("A" & N_LIGNE_DEP) = NUMERO CLIENT = TB2.Value Sheets("Feuil1").Range("B" & N_LIGNE_DEP) = CLIENT N_SEI = TB3.Value Sheets("Feuil1").Range("C" & N_LIGNE_DEP) = N_SEI N_CDE_CLIENT = TB4.Value Sheets("Feuil1").Range("D" & N_LIGNE_DEP) = N_CDE_CLIENT ' TB5 = FormatDateTime(Now, vbShortDate) DATE_ACHAT = TB5.Value Sheets("Feuil1").Range("E" & N_LIGNE_DEP) = DATE_ACHAT COM = TB6.Value Sheets("Feuil1").Range("F" & N_LIGNE_DEP) = COM ' TB7 = FormatDateTime(Now, vbShortDate) DELAI = TB7.Value Sheets("Feuil1").Range("G" & N_LIGNE_DEP) = DELAI LANC = TB8.Value Sheets("Feuil1").Range("H" & N_LIGNE_DEP) = LANC TYPE_ = TB9.Value Sheets("Feuil1").Range("I" & N_LIGNE_DEP) = TYPE_ QTE = TB10.Value Sheets("Feuil1").Range("J" & N_LIGNE_DEP) = QTE OBS = TB11.Value Sheets("Feuil1").Range("K" & N_LIGNE_DEP) = OBS Page = TB12.Value Sheets("Feuil1").Range("L" & N_LIGNE_DEP) = Page Unload UserForm1 UserForm1.Show End Sub
Mais la date recopiée dans la cellule est au format "mm/jj/aaaa".
Je ne souhaite pas modifier les préférences régionales.
Quelqu'un a-t-il une solution ?
Merci d'avance
Partager