[XL-2003] ajouter / dans une cellule (date) [Résolu]

[sheep300]

bonjour a tous je travail actuelement sur le developpement d'une macro complexe de tri des commande.
un petit detail me chiffonne.
je reçois de mon transporteur une liste, les date sont en format jjmmaa tout attaché ex : 221011 .
cette liste est traitée et insérer dans mon classeur
je souhaiterait, pour une question de lisibilité, que la macro modifie automatiquement cela en jj/mm/aa.
j'ai beau avoir essayé a peu pret tout la je trouve pas...
j'ai meme tenter de modifier le format alors la c'est festival il tente de me le convertir
merci par avance de votre aide
bonne soirée

[bbil]

En considérant que ta date et en colonne A ...

Code :

=DATE(2000+DROITE(A2;2);STXT(A2;3;2);GAUCHE(A2;2))

[sheep300]

merci pour cette reponse a cette heure tardive
j'avoue ne pas comprendre cette ligne et comment m'en servir
je suis un autodidacte alors je suis desoler mais pourriez vous m'en dire plus ?
merci par avance

[bbil]

c'est une formule à mettre dans une cellule de calcul ..

[jfontaine]

Bonjour,

En complément de Bbil si tu veux changer le format en VBA

dte étant une variable contenant ta date au format "221011"

Code :

CDate(Left(dte, 2) & "/" & Mid(dte, 3, 2) & "/" & "20" & Right(dte, 2))

[sheep300]

merci beaucoup a vous deux grace a vous j'ai pu adapter ce bout de code
voila le code ca pourra aider peu etre quelqu'un :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    For r2 = 2 To 500 'de 2 a 500 ligne
    dte = Cells(r2, 7) ' extrait le text de la cellule
    If dte Like "?????" Then 'si la date na que 5 chiffre (genre 91211)
    dte = "0" & dte 'ajouter un 0 devant (091211)
    End If
    If dte = "pas de date" Then 'saut si le text est 99999
    GoTo Nex: ' je sais je goto c'est beurk :aie:
    End If
    d1 = mid(dte, 1, 2) 'extrait les 2 premier chiffres
    d2 = mid(dte, 3, 2) ' les 3e et 4e
    If d2 Like "/*" Then ' si ca a deja été fait et donc possede un / ca saute
    GoTo Nex: ' re :aie:
    End If
     d3 = mid(dte, 5, 2) ' les 5e et 6e chiffres
    dte = d1 & "/" & d2 & "/" & d3 ' melange le tout 99/99/99
    Cells(r2, 7) = dte 'met le resultat dans la cellule
Nex: 'point de chute pour les saut
    Next 'retour a la suivante
    Columns("G:G").Select ' selectionne la colone G (6)
    Selection.Replace What:="99/99/99", Replacement:="pas de date",  lookat:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'remplace les 99/99/99 en pas de date si c'est le cas

merci en tout cas