Format dtpicker inversé

[fr832]

Bonjour à tous via un programme récupéré et adapté à mes besoins, le format d'un DTPICKER est inversé, c'est à dire le 11/08/2010 est transformé en 08/11/2010.
J'ai essayé format de cellule jj/mm/aaaaa mais rien n'a faire.

il y a cette ligne de code pour le dtpicker3 mais je ne sais pas si il gère le format

Private Sub DTPicker3_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

En pièce jointe les propriétés de mon dtpicker.
Par avance merci pour vos lumières.
Amitiés

 

[JNP]

Re : Format dtpicker inversé

Bonjour Fr832 🙂,
Teste ce code

Sub test()
Cells(1, 1) = "11/08/2010"
Cells(2, 1).FormulaLocal = "11/08/2010"
End Sub

à adapter à ton DTPicker 😉.
Bonne journée 😎

 

[fr832]

Re : Format dtpicker inversé

bonjour jnp
merci pour ton aide mais n'étant pas fort en vba avant de faire des bétises je préfére te demander, le code va donc etre ça ?

Private Sub DTPicker3_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

Cells(1, 1) = "11/08/2010"
Cells(2, 1).FormulaLocal = "11/08/2010"


End Sub

merci pour tes lumières

 

[JNP]

Re : Format dtpicker inversé

bonjour jnp
merci pour ton aide mais n'étant pas fort en vba avant de faire des bétises je préfére te demander, le code va donc etre ça ?

Euh non, pas du tout 😱...
Dans ton code, tu dois avoir un

Range("A1") = DTPicker3

ou

Cells(1,1) = DTPicker3

avec une coordonnée autre que A1, il faut modifier en

Range("A1")[COLOR=red][B].FormulaLocal[/B][/COLOR] = DTPicker3

ou

Cells(1,1)[B][COLOR=#ff0000].FormulaLocal[/COLOR][/B] = DTPicker3

Voilà 😉.
Bon courage 😎

 

[fr832]

Re : Format dtpicker inversé

Re bonsoir jnp je n'ai pas ce que tu me propose mais ce genre de code

Private Sub remplircontrol(£ligne1 As Long, £nomfeuille1 As String)
' Nom des label
' Label  numéro d'ordre= numéro colonne
'Dim £Ctrl As Control
'Dim £coln As Long
With Sheets(£nomfeuille1)
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "ComboBox" Or TypeName(£Ctrl) = "TextBox" _
    Or TypeName(£Ctrl) = "DTPicker" Then
    £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
    Select Case £coln
'correspondance entre les feuilles
            Case 4
                £Ctrl.Value = .Cells(£ligne1, 7)
            Case 6
                £Ctrl.Value = .Cells(£ligne1, 2)
            Case 7
                £Ctrl.Value = .Cells(£ligne1, 3)
            Case 8
                £Ctrl.Value = .Cells(£ligne1, 4)
            Case 9
                £Ctrl.Value = .Cells(£ligne1, 5)
            Case 10
                £Ctrl.Value = .Cells(£ligne1, 6)
            Case 12
                £Ctrl.Value = .Cells(£ligne1, 8)
                
        End Select
    End If
Next £Ctrl
End With
End Sub

Private Sub remplirbdd(£ligne1 As Long, £nomfeuille1 As String)
'Dim £Ctrl As Control
'Dim £coln As Long
With Sheets(£nomfeuille1)
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "ComboBox" Or TypeName(£Ctrl) = "TextBox" Then
    £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
                .Cells(£ligne1, £coln) = £Ctrl.Value
   End If
   If TypeName(£Ctrl) = "DTPicker" Then
        £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
        '.Cells(£ligne1, £coln) = CDate(£Ctrl.Value)
        .Cells(£ligne1, £coln) = Format(£Ctrl.Value, "dd/mm/yyyy")
        .Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"
   End If
   
Next £Ctrl
End With
End Sub

Sur ces code le format de date à l'air correct pourtant, dd/mm/yyyy

merci d'avance😎

 

[JNP]

Re : Format dtpicker inversé

Re 🙂,

je n'ai pas ce que tu me propose mais ce genre de code

.Cells(£ligne1, £coln) = Format(£Ctrl.Value, "dd/mm/yyyy")

Ah bon 😛 !!!...

.Cells(£ligne1, £coln)[COLOR=red][B].FormulaLocal[/B][/COLOR] = Format(£Ctrl.Value, "dd/mm/yyyy")

Bonne nuit 😎