Microsoft 365 format date

[CortoXls]

Bonjour,
Je récupère une date au format "dd mmmm yyyyy" dans une cellule d'un tableau structuré mais quand je la copie dans une cellule d'un tableau dans une autre feuille le format est modifié
Ainsi la date du 02 avril 2025 devient 04 février 2025, et pourtant dans la feuille source j'ai le code suivant :

    With Columns("A:A")
        .NumberFormat = "dd mmmm yyyy"  'Mise au format "Date" de la colonne A
        .HorizontalAlignment = xlCenter 'alignement horizontal centré
        .VerticalAlignment = xlCenter   'alignement vertical centré
    End With

de l'autre côté j'ai le code suivant :

With FIndemKm.Cells(j, Col)
    .Font.Color = RGB(79, 129, 189)   'le texte est mis en bleu
    .NumberFormat = "dd mmmm yyyy"    'Mise au format "Date"
End With

Merci de votre aide.
Pour info si je tape 13/04 j'obtiens la bonne date !!!

 

[mapomme]

Bonsoir CortoXls 🙂,

Il y a des dates au format US dans ce phénomène (2/4/2025) devient le (4/2/2025).
Le format d'une cellule ne change pas la valeur contenue dans la cellule. Donc votre formatage "NumbreFormat" ne changera rien du tout.
Il faut savoir ce qui se cache derrière cette date et comment vous la traitez, quelles sont les données de départ. C'est le reste du code qui importe pas le format.
Bref avec ce que vous nous montrez, il est difficile de vous donner une bonne solution..

Dans ce type de problème, il est aussi important de savoir comment vous récupérez ces dates : Copier/coller, fichier texte, fichier CSV.
Vous pouvez même récupérer certaines dates en vraies dates excel et d'autres en pseudo dates qui sont en fait du texte. Evidemment si vous traitez ensuite tout comme des dates, il se passera des choses bizarres.

Bonsoir @TooFatBoy 😉,

 

[TooFatBoy]

Bonjour,

Je récupère une date au format "dd mmmm yyyyy" dans une cellule d'un tableau structuré mais quand je la copie dans une cellule d'un tableau dans une autre feuille le format est modifié

Dans les codes que tu as fournis il me semble qu'il n'y a aucune instruction de copie ni de collage. 🙁

Pour info, pour ne pas modifier la valeur tu peux utiliser .Value2. 😉


Hello mapomme 😉

 

[Dudu2]

Bonjour,

Sub a()
    Dim D As Date
    
    D = ActiveCell.Value
    
    With ActiveCell.Offset(1)
        .Value = D
        .NumberFormat = "m/d/yyyy"
        .Offset(, 1) = MonthName(Month(.Value))
    End With
    
    With ActiveCell.Offset(2)
        .Value = D
        .NumberFormat = "dd/mm/yyyy"
        .Offset(, 1) = MonthName(Month(.Value))
    End With
    
    With ActiveCell.Offset(3)
        .Value = D
        .NumberFormat = "dd mmmm yyyy"
        .Offset(, 1) = MonthName(Month(.Value))
    End With
End Sub