Format date dd-mm-yy

Version imprimable

Bonjour,

La cellule de destination n'est pas au format date lors du traitement vba, résultat soit en format texte ou au format date américaine ...
je voudrais la date au format date courte européen (jj-mm-aa) (dd-mm-yy)

ci-dessous un résumé du code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TftDonnees ()
 
Dim DatDoc As Date
Dim R as Integer ' correspond à la cellule à remplir du tableau structuré dans feuil2
 
DatDoc = Sheets("feuil1").Range("A1") ' cellule source au format date courte (jj-mm-aa) exemple 25-02-22
 
' code pour alimenter un tableau structuré nommé 'LstFacOut' en feuille2 dans la colonne 'DateFacture'
 
Sheets("Feuil2").Select
R = Range("ListingFactOut").ListObject.ListRows.Add.Index
 
Range("LstFacOut[DateFacture]")(r).Value = DatDoc  ' résultat: format personnalisé américain: m-j-aaa : 2-25-2022
 
Range("LstFacOut[DateFacture]")(r).Value = Format(DatDoc, "dd/mm/yy") ' résultat: format texte 25-02-22  > non reconnu comme date dans le tableau structuré donc impossible de filtrer des données sur la colonne Date facture
 
' ... suite code
end Sub

merci.

Essayez:

Code:

1
2
DatDoc = Format(Sheets("feuil1").Range("A1"), "\#mm\/dd\/yyyy\#") 'ou bien
DatDoc = Format(Sheets("feuil1").Range("A1"), "\#dd\-mm\-yyyy\#")

Bonjour,
Ou sinon en déclarant la DatDoc en Long pour avoir la date sous un format numérique (numéro de série de la date), ainsi la traduction sera toujours bonne quel que soit le format.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub TftDonnees()
    Dim DatDoc As Long
    Dim R As Integer ' correspond à la cellule à remplir du tableau structuré dans feuil2
    DatDoc = Sheets("feuil1").Range("A1").Value ' cellule source au format date courte (jj-mm-aa) exemple 25-02-22
    ' code pour alimenter un tableau structuré nommé 'LstFacOut' en feuille2 dans la colonne 'DateFacture'
    Sheets("Feuil2").Select
    R = Range("ListingFactOut").ListObject.ListRows.Add.Index
    Range("LstFacOut[DateFacture]")(R).Value = Format(DatDoc, "dd/mm/yy") '    résultat: format texte 25-02-22  > non reconnu comme date dans le tableau structuré donc impossible de filtrer des données sur la colonne Date facture
 
' ... suite code
End Sub

Cdlt

07/04/2022, 22h33
fredym
Citation:
Envoyé par Zekraoui_Jakani

Essayez:

Code:

1 2 DatDoc = Format(Sheets("feuil1").Range("A1"), "\#mm\/dd\/yyyy\#") 'ou bien DatDoc = Format(Sheets("feuil1").Range("A1"), "\#dd\-mm\-yyyy\#")
Citation:

Envoyé par Fredym

Ne fonctionne pas.
Entretemps c'est solutionné.
Merci de la proposition. ;)