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

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
 

Pierrot93

XLDnaute Barbatruc
Re : date inversée sur ma feuille

Re,

utilisation de "cdate" :
Code:
BASEINTERVENTIONS.Cells(K, 5) = CDate(ListView1.ListItems(I).Text)
si ta date se trouve à ce niveau....
 

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.
 

Fichiers joints

goldfinger13

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

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas