Macro conversion de date

[malabarbe]

Bonjour,

J'ai 2 questions :

1 - Comment par macro, transformer
Samedi 28 juin 2008 en 28/06/2008

2 - Pour supprimer des lignes (ne connaissant pas la longueur de la feuille)
je fais for i = 1 to 500
comment connaitre le nonbre de lignes
pour faire for i = 1 to nb_lignes ?

Merci à vous

 

[Staple1600]

Re : Macro conversion de date

Bonjour

EDITION II:
(PS: Il doit y vaoir une façon plus "propre" de faire la conversion)

'Avec des cellules au Format Texte
Sub test_feuille_ok()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
Cells(i, 1).NumberFormat = "General"
Cells(i, 1).Value = _
DateValue(Mid(Cells(i, 1).Text, _
InStr(1, Cells(i, 1).Text, " ", 1) + 1))
Cells(i, 1).NumberFormat = "dd/mm/yyyy"
Next i
End Sub

EDITION I:

Sub test_ok()
Dim Strg As String
Strg = "Samedi 28 juin 2008"
MsgBox CDate(Mid(Strg, InStr(1, Strg, " ", 1) + 1))
End Sub

1
Format("tadate";"dd/mm/yyyy")


2
Dim i as Long
For i= Range("A65536").End(xlUp).Row to 1 step -1
'ton code
Next i

 

[Staple1600]

Re : Macro conversion de date

Re

EDITION:
Voir le fichier exemple
Ce lien n'existe plus

Sub conversion_avec_formule()
'source:
'Formule de Monique
'http://www.excel-downloads.com/forum/442482-post2.html
Dim Fin As Long
Fin = [A65536].End(xlUp).Row
Range("B1").FormulaR1C1 = "=MID(RC[-1],FIND("" "",RC[-1])+1,17)*1"
Range("B1").AutoFill Destination:=Range("B1:B" & Fin)
With Range("B1:B" & Fin)
    .NumberFormat = "dd/mm/yyyy"
    .Copy
    .PasteSpecial Paste:=xlValues
End With
Columns("A:A").Delete
End Sub

La formule en clair:
=STXT(A1;TROUVE(" ";A1)+1;17)*1

 

[malabarbe]

Re : Macro conversion de date

Bonjour,

Ce code la fonctionne très bien

Sub test_ok()
Dim Strg As String
Strg = "Samedi 28 juin 2008"
MsgBox CDate(Mid(Strg, InStr(1, Strg, " ", 1) + 1))
End Sub

Et pour la détection du nombre de lignes = OK

Merci pour tout
@ +