Probleme d'affichage d'une écriture via macro

[spawnblade]

Bonjour,

J'ai créé une macro qui écrit des infos sur une ligne, et cette même ligne commence par une date.
Mon problème est que la macro écrit bien tout, mais au bout d'une certaine ligne, la date apparait en décalé dans la cellule.
Comme si elle était au format texte, alors qu'en faisant un clic droit sur la cellule et en vérifiant le format, j'ai bien le même format date que sur les lignes précédentes.
Ce qui me gène dans tout ça, c'est qu'après je fait un tri sur la date qui ne fonctionne pas :



Je ne trouve pas comment faire.

Voici les morceaux de codes correspondant :

DateStats = Right(Ligne, 10)
DateStats = CDate(Mid(DateStats, 4, 2) & "/" & Left(DateStats, 2) & "/" & Right(DateStats, 4))
DateJours = Mid(DateStats, 4, 2) & "/" & Left(DateStats, 2) & "/" & Right(DateStats, 4)

With Sheets(TableauLignes(I).NomLigne)
'Identification de la dernière ligne renseignée, que j'incrémente de 1 pour écrire à la suite
debLig = .Range("A65536").End(xlUp).Row + 1
 .Cells(debLig, 1) = DateStats

Range("A41", Range("M41").End(xlDown)).Select
Selection.Sort Key1:=Range("A41"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Par contre, lorsque je rentre dans la cellule (double-clic) et que j'appuie sur la touche ENTER, comme pour valider une saisie, alors la date se met comme il faut et tout rentre dans l'ordre.
Je ne comprends pas ...

Merci d'avance,

 

[GeoTrouvePas]

Re : Probleme d'affichage d'une écriture via macro

Bonjour,

As tu essayé de remplacer :

DateJours = Mid(DateStats, 4, 2) & "/" & Left(DateStats, 2) & "/" & Right(DateStats, 4)

par :

DateJours = CDate(Mid(DateStats, 4, 2) & "/" & Left(DateStats, 2) & "/" & Right(DateStats, 4))

 

[spawnblade]

Re : Probleme d'affichage d'une écriture via macro

Salut et merci pour ta réponse rapide.

Ca ne fonctionne pas plus.

Le plus étrange, c'est que les lignes au dessus ont été générées par le même principe ...

 

[spawnblade]

Re : Probleme d'affichage d'une écriture via macro

Je serais même preneur d'un code qui me ferait rentrer dans la cellule et en ressortir ! lol

 

[Pierrot93]

Re : Probleme d'affichage d'une écriture via macro

Bonjour,

peut être qu'un petit extrait de ton fichier nous aiderait à t'aider...

bonne soirée
@+

 

[spawnblade]

Re : Probleme d'affichage d'une écriture via macro

Désolé pour le délai de réponse.
Voici un exemple de mon fichier avec macro.
Il faut copier le contenu du fichier txt et ensuite appuyer sur le bouton de la page de synthèse pour lancer la macro qui va lire le clipboard.

Merci d'avance,

 

[spawnblade]

Re : Probleme d'affichage d'une écriture via macro

Quelqu'un a une idée s'il vous plait ?