date inversée sur ma feuille [RESOLU]

[goldfinger13]

bonjour a tous,
nouvelle question cette fois ci concernant des dates
j'ai une base que je mets à jour à partir d'un formaulaire dans lequel il y a une listview et plusieurs box dont 2 ou je dois saisir des dates (textbox 4 et 5)

avec le code ci dessous la listview se met bien à jour (avec dates conformes)mais ma feuille elle conserve des dates inversées.
dans ma feuille les deux colonne date sont les colonne I et M (respectivement en 9eme et 13 eme colonne)

Private Sub CommandButton1_Click()
    ListView1.SelectedItem.Text = Me.TextBox1.Text
    ListView1.SelectedItem.ListSubItems(1).Text = Me.TextBox2.Text
    ListView1.SelectedItem.ListSubItems(2).Text = Me.TextBox3.Text
    ListView1.SelectedItem.ListSubItems(3).Text = Me.ComboBox1.Text
    ListView1.SelectedItem.ListSubItems(4).Text = CDate(Me.TextBox4.Value)
    ListView1.SelectedItem.ListSubItems(5).Text = Me.ComboBox2.Text
    ListView1.SelectedItem.ListSubItems(6).Text = CDate(Me.TextBox5.Value)
    ListView1.SelectedItem.ListSubItems(7).Text = Me.ComboBox3.Text
    ListView1.SelectedItem.ListSubItems(8).Text = Me.TextBox6.Text
    ListView1.SelectedItem.ListSubItems(9).Text = Me.TextBox7.Text

Dim I As Integer
Dim J As Byte
Dim K As Integer
    K = 2
    For I = 1 To ListView1.ListItems.Count
    BASEINTERVENTIONS.Cells(K, 5) = ListView1.ListItems(I).Text
    For J = 1 To ListView1.ColumnHeaders.Count - 1
    BASEINTERVENTIONS.Cells(K, J + 9) = ListView1.ListItems(I).ListSubItems(J).Text
    Next J
    BASEINTERVENTIONS.Cells(K, 19).FormulaR1C1 = "=RC[-4]-RC[-6]"
    BASEINTERVENTIONS.Cells(K, 20).FormulaR1C1 = "=RC[-7]-RC[-11]"
    K = K + 1
    Next I

quelqu'un peut il me dire comment proceder pour corriger
merci

 

[Pierrot93]

Re : date inversée sur ma feuille

Bonjour,

regarde ce fil, il est encore tout chaud...
https://www.excel-downloads.com/thr...-saisie-en-textbox-au-format-francais.178000/

bon après midi
@+

 

[goldfinger13]

Re : date inversée sur ma feuille

désolé mais je suis complètement perdu et ne voit pas comment modifier la boucle pour obtenir des dates valides en colonne 9 et 13

 

[tbft]

Re : date inversée sur ma feuille

Bonjour

un bout de fichier serait fort utile...

 

[Pierrot93]

Re : date inversée sur ma feuille

Re,

utilisation de "cdate" :

BASEINTERVENTIONS.Cells(K, 5) = CDate(ListView1.ListItems(I).Text)

si ta date se trouve à ce niveau....

 

[goldfinger13]

Re : date inversée sur ma feuille

re bonsoir
Ci joint la partie du fichier qui pose problème.
Le problème de date se pose sur l'onglet baseinterventions.
la saisie se fait par l'intermédiaire du formulaire suivi des travaux et l'inversion se situe en colonne M et O.
j'ai fait un peu de ménage car le fichier initial est beaucoup plus important

merci a ceux qui pourrons me donner un coup de main.

 

[goldfinger13]

Re : date inversée sur ma feuille

en fait les deux champs date se trouvent en colonne 13 et 15 c'est à dire sur la deuxieme partie du code d'où mon souci

 

[goldfinger13]

Re : date inversée sur ma feuille

voilà résolu

    For J = 1 To ListView1.ColumnHeaders.Count - 1
    If J = 4 Or J = 6 Then
        BASEINTERVENTIONS.Cells(K, J + 9) = CDate(ListView1.ListItems(I).ListSubItems(J).Text)
    Else
        BASEINTERVENTIONS.Cells(K, J + 9) = ListView1.ListItems(I).ListSubItems(J).Text
    End If
Next J