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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.