Microsoft 365 LISTBOX et Date

eric72

XLDnaute Occasionnel
Bonjour à tous,

Je rencontre un problème de date, lorsque je remplis "FORMULAIRE DE SAISIE PREPARATION DE DEVIS" (dans "Prépa Devis") , ma date s'inscrit automatiquement, quand j'ajoute la ligne dans ma listbox elle est toujours au bon format, par contre quand je l'exporte dans mon onglet "Prépa Devis" elle change de format(02/04/2021 devient 04/02/2021), j'ai tout essayé et je ne trouve pas la solution. Si toutefois vous pouvez m'éclairer!!!
Merci beaucoup
Eric
 

Pièces jointes

  • test excel download.xlsm
    487.8 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Eric,
Ce fut particulièrement laborieux.
C'est au collage qu'a lieu la notation américaine à partir de la chaine. Pour le tromper je transforme la chaine en date puis en nombre. Au collage il est en format local puisque le nombre, lui, est correct.
VB:
    Call DeProtec_feuilles
    With Me.LstItem
        NLigne = .ListCount: NColonne = .ColumnCount: Matable = .List
        Matable(0, 0) = CLng(CDate(Matable(0, 0)))
    End With
 

eric72

XLDnaute Occasionnel
Bonjour Eric,
Ce fut particulièrement laborieux.
C'est au collage qu'a lieu la notation américaine à partir de la chaine. Pour le tromper je transforme la chaine en date puis en nombre. Au collage il est en format local puisque le nombre, lui, est correct.
VB:
    Call DeProtec_feuilles
    With Me.LstItem
        NLigne = .ListCount: NColonne = .ColumnCount: Matable = .List
        Matable(0, 0) = CLng(CDate(Matable(0, 0)))
    End With

Bonjour Sylvanu,
petit souci encore, ça marche pour la 1ère ligne mais lorsqu'il y a plus d'une lignes les autres se mettent au mauvais format.
Désolé
Eric
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Eric,
Ma réponse était pour résoudre le problème de format.
Pour convertir l'ensemble des dates, il faut traiter l'ensemble des premiers éléments de MaTable :
VB:
    With Me.LstItem
        NLigne = .ListCount: NColonne = .ColumnCount: Matable = .List
        For i = 0 To UBound(Matable)
            Matable(i, 0) = CLng(CDate(Matable(i, 0)))
        Next i
    End With
 

eric72

XLDnaute Occasionnel
Bonjour Sylvanu,
Je suis désolé mais j'ai fait quelques modifs sur mon userform "Prépa devis" et j'ai de nouveau mon problème d'export de date dans l'onglet "Prépa Devis", je ne comprends pas bien pourquoi.
Mille excuses pour la gêne occasionnée!!!
Eric
 

Pièces jointes

  • Devis test exceldownload.xlsm
    533.2 KB · Affichages: 1
Haut Bas