Microsoft 365 LISTBOX et Date

  • Initiateur de la discussion Initiateur de la discussion eric72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric72

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

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 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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
105
Réponses
6
Affichages
280
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
276
Réponses
16
Affichages
946
Réponses
3
Affichages
571
Retour