Bonjour à tous,

Ca fait deux jours que je me casse les dents sur mon problème

Sur un UserForm, j'ai un Label qui affiche la date du jour (ex: pour le 7 août 2013 => 07/08/2013) jusque là ça va.

Là où ça se corse c'est lorsque que le Caption du Label va s'écrire dans la cellule choisie celle ci par enchantement ou ignorance se change en 08/07/2013 ; mais lorsque je sélectionne (dans mon calendar1) une date supérieure au 12 l'écriture dans ma cellule est correcte par rapport au format français (22/08/2013).

J'ai eu beau déclarer dans un module la variable

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public Dat as Date
Dans et dans mon UserForm, essayer de mettre l'applcation international

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Select Case Application.International(xlDateOrder)
    '0 = mois-jour-année
    '1 = jour-mois-année
    '2 = année-mois-jour
    Case 0
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "mm/dd/yyyy")
    Case 1
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "dd/mm/yyyy")
    Case 2
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "yyyy/mm/dd")
End Select
Voici l'intégralité du code de mon UserForm, peut être qu'une erreur s'est glissée.

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Private Sub UserForm_Initialize()
Dim nb_colonne As Long
    nb_colonne = Worksheets("Sections-Auditeurs-Machines").Cells(1 & Columns.Count).End(xlToLeft).Column
 
'Affichage de la date du jour dans le label
    Lbl_Date_Formulaire.Caption = Date
 
'Zone de liste vierge
    ComboBox_Section.Value = ""
    ComboBox_Auditeur.Value = ""
    ComboBox_Poste.Value = ""
    TextBox_Operateur.Value = ""
 
'Ajout des valeurs des cellules A1 à ... de l'onglet "Sections-Auditeurs"
    For i = 1 To nb_colonne 'Liste des sections
        ComboBox_Section.AddItem Worksheets("Sections-Auditeurs-Machines").Cells(1, i)
    Next
    no_lignes = 0
End Sub
Private Sub ComboBox_Section_Change()
    'Zone de liste vidée (sinon les valeurs s'ajoutent)
    ComboBox_Auditeur.Clear
    ComboBox_Poste.Clear
 
    Dim no_section As Integer, nom_auditeur As Integer, no_poste As Integer
 
    'Numéro de la sélection "section" (ListIndex commence à 0)
    no_section = ComboBox_Section.ListIndex + 1
    'Nom des auditeurs de la colonne section choisie
    nom_auditeur = Worksheets("Sections-Auditeurs-Machines").Cells(1, no_section).End(4).Row
    'Nombre de lignes poste de la colonne section choisie
    no_poste = Worksheets("Sections-Auditeurs-Machines").Cells(7, no_section).End(xlDown).Row
    For i = 2 To nom_auditeur
        ComboBox_Auditeur.AddItem Worksheets("Sections-Auditeurs-Machines").Cells(i, no_section)
    Next
    For i = 7 To no_poste
        ComboBox_Poste.AddItem Worksheets("Sections-Auditeurs-Machines").Cells(i, no_section)
    Next
End Sub
Private Sub CdB_Valider1_Click()
Dim i As Integer
'Contrôle du nom opérateur
    For i = 1 To Len(TextBox_Operateur.Value)
        If IsNumeric(Mid(TextBox_Operateur.Value, i, 1)) Then
            MsgBox "Nom opérateur incorrect"
            TextBox_Operateur.Value = ""
            Exit Sub
        End If
    Next i
 
    Application.ScreenUpdating = False
 
'Activation de la feuille de recueil
With Worksheets("Recueil données")
    .Activate
 
    'Détermine la première ligne vierge sous le tableau
    no_lignes = Range("A" & Rows.Count).End(xlUp).Row + 1
 
    'Copier la dernière ligne pour formater le remplissage
    With Rows(no_lignes)
        .FillDown
    End With
 
    'Remplir les cellules avec les valeurs des ComboBox et TextBox
    Cells(no_lignes, 1) = Lbl_Date_Formulaire.Caption
    Cells(no_lignes, 2) = ComboBox_Section.Value
    Cells(no_lignes, 3) = ComboBox_Auditeur.Value
    Cells(no_lignes, 4) = ComboBox_Poste.Value
    Cells(no_lignes, 5) = TextBox_Operateur.Value
 
    'Ouvrir le questionnaire suivant
    Questionnaire1_Sécu.Show
 
    'Fermer l'USF Formulaire
    Unload Me
 
End With
 
End Sub
Private Sub CdB_Date_Click()
    Calendrier.Show
'    Me.Lbl_Date_Formulaire.Caption = Format(Dat, "dd/mm/yyyy")
 
Select Case Application.International(xlDateOrder)
    '0 = mois-jour-année
    '1 = jour-mois-année
    '2 = année-mois-jour
    Case 0
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "mm/dd/yyyy")
    Case 1
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "dd/mm/yyyy")
    Case 2
        Me.Lbl_Date_Formulaire.Caption = Format(Dat, "yyyy/mm/dd")
End Select
 
End Sub
Private Sub CdB_Annuler1_Click()
    delete_form ("Formulaire")
    MsgBox "Etes-vous sûre de vouloir arrêter?", vbYesNo + vbQuestion
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub TextBox_Operateur_keyPress(ByVal keyAscii As MSForms.ReturnInteger) 'Force les MAJUSCULSES
    keyAscii = Asc(UCase(Chr(keyAscii)))
End Sub
Quelqu'un aurait une idée sur mon problème?

Merci