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 |
Partager