Discussion :

[fredym]

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.

[Zekraoui_Jakani]

Essayez:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fredym]

Essayez:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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