Microsoft 365 LISTBOX et Date

[eric72]

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

 

[sylvanu]

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.

    Call DeProtec_feuilles
    With Me.LstItem
        NLigne = .ListCount: NColonne = .ColumnCount: Matable = .List
        Matable(0, 0) = CLng(CDate(Matable(0, 0)))
    End With

 

[eric72]

C'est magique, ça fait quelques heures que je galère avec ça , et vous en 10 minutes, c'est réglé.
Affaire résolu
Merci beaucoup
Eric

 

[eric72]

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

 

[eric72]

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.

    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]

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 :

    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]

Merci 1000 fois encore, je n'avais pas bien compris, tout pour moi, cette fois c'est bien résolu
Merci pour votre dévouement.
Eric

 

[eric72]

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