Fonction LEFT ne fonctionne pas sur toutes les cellules

Bonjour,

Alors j'ai un petit soucis en utilisant la fonction LEFT dans vba. Je souhaite conserver uniquement la date dans mes cellules, et non l'heure indiquée.

La macro fonctionne, mais pas pour toutes les cellules. J'ai l'impression que les cellules commençant par un "0" ne répondent pas correctement à la macro.

C'est vraiment étrange car la macro n'est pourtant pas très élaborée, et je ne vois pas ce qui cloche!

Macro en PJ

Bien Cordialement, merci à vous

Bonjour,

Je pense avoir trouvé une solution mais quel bizarrerie, on en découvre tout le temps.

Bonjour, bonjour !

En fait c'est tout à fait logique car ne pas confondre valeur interne et affichage d'une cellule !

La propriété Value n'étant pas forcément égale à la propriété Text …

Bonjour

Remplace ton instruction par :

Sheets("Feuil1").Cells(i, 4).Value = Int(Sheets("Feuil1").Cells(i, 1).Value)

Cela devrait te donner le bon résutat.

Bye !

Bonjour et merci de vos réponses,

Gmb j'ai fait comme tu as indiqué, cependant je n'arrive pas à "écraser" mes cellules avec la nouvelle valeur: l'heure 00:00 s'affiche

As tu une solution? fichier en PJ!

Merci,

Cdlt

Bonjour

Tiess a écrit :

cependant je n'arrive pas à "écraser" mes cellules avec la nouvelle valeur: l'heure 00:00 s'affiche

Bien sûr : l’instruction que je t’ai donnée supprime les heures mais pas le format de la cellule qui reste ‘’jj/mm/aaaa hh :mm ».

Si tu veux que la macro remettre un format jour, ajoute cette instruction :

Bonjour

Bien sûr : l’instruction que je t’ai donnée supprime les heures mais pas le format de la cellule qui reste ‘’jj/mm/aaaa hh :mm ».

Si tu veux que la macro remettre un format jour, ajoute cette instruction :

For i = 1 To derLn
    Sheets("Feuil1").Cells(i, 1).Value = Int(Sheets("Feuil1").Cells(i, 1).Value)
    Sheets("Feuil1").Cells(i, 1).NumberFormat = "dd/mm/yyyy"
Next i

OK ?

OK ?

je suis bête! merci gmb, ce n'est pas la première fois que je me débloque grace à tes messages!