date inversée sur ma feuille [RESOLU]

goldfinger13

XLDnaute Occasionnel
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)

Code:
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
 
Dernière édition:

goldfinger13

XLDnaute Occasionnel
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.
 

Pièces jointes

  • parc.xls
    182.5 KB · Affichages: 45
  • parc.xls
    182.5 KB · Affichages: 40
  • parc.xls
    182.5 KB · Affichages: 51

goldfinger13

XLDnaute Occasionnel
Re : date inversée sur ma feuille

voilà résolu
Code:
    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
 

Discussions similaires