hi hi hi...
Véléda...ah ben on ne la connait pas celle là...c'est vrai comme dit G'Claire ce serait plutôt
Céléda...lol
Tiens j'en profite pour lui passer le bonjour à Céléda...puis à G'claire aussi bien sûr...
voilà...
puis tant qu'j'y suis à toi aussi...comme ça y'a pas d'jaloux...lol
Bon ceci dit, je reconnais bien ce code puisqu'il ressemble à la virgule près à celui que je t'avais fourni dans mon fichier
Zone_Date_VL présent
Lien supprimé...mais bon...tu as peut-être oublié de répondre ce jour
c'est pas le problème...
par contre il faut se mettre à la place des intervenants...car ton code ainsi proposé sur le post est difficile à reproduire sans les fonctions essentielles...comment veux-tu avoir des réponses...il faut savoir que ce code fait partie d'un userform, on ne va tout de même pas demander à chacun de le reproduire cet Userform...!!!
pour être clair, ta question aurait pu se traiter plus simplement sur l'autre fil...tu aurais certainement eu davantage de réponses là-bas...enfin bref!
Alors pour ton problème de convertion de date je te suggère d'utiliser cette
macro/fonction que tu vas placer dans un module...
Sub ConvertionDate()
Dim cell As Variant
For Each cell In Selection
cell.Value = Convertir(cell.Value)
Next
End Sub
Function Convertir(Nb As Long) As Date
Dim An, Mois, Jour As Integer
An = Int(Nb / 10000)
Mois = Int((Nb Mod 10000) / 100)
Jour = Int(Nb Mod 100)
Convertir = DateSerial(An, Mois, Jour)
End Function
Le principe est simple...tu selectionnes la zone à convertir
(dans la colonne A) et tu appelles la macro ConvertionDate qui va se charger de convertir le format
20031219 en
19/12/2003 grâce à la fonction...
je te propose cette solution car en fait la convertion effectuée n'a plus lieu de l'être par la suite...en fait tu le fais une fois et c'est réglé
Voilà pour moi...Bonnes Fêtes
PS 1 : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...
PS 2 :euh...me concernant c'est plutôt "Lui" et non "Elle"...lol