Microsoft 365 LISTBOX et Date

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Avril 2021

• #2

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 2 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Avril 2021

• #5

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Avril 2021

• #6

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Avril 2021

• #7

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

 

Vote positif 0 Vote négatif

Solution

E

eric72

XLDnaute Accro

• 20 Avril 2021

• #8

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: 3

Vote positif 0 Vote négatif