[VBA] Transformar una cadena de texto en Fecha

Hola,

o bien selecciona la columna o el rango y 'datos / convertir...', elige Fecha DMY en el paso 3

eric

--
Nunca responderás a un mp no solicitado...
Bueno, eso ya está hecho.

buenas noches,

tu problema puede resolverse con una simple fórmula. suponiendo que tus cadenas de caracteres estén en la columna A. la fórmula es:

=TEXTO(FECHA.VALOR(IZQUIERDA(A1;LARGO(A1)-4)"/"&DERECHA(A1;4));"dd/mm/aaaa;@")

Hola

Si en una celda escribo janv2013, Excel lo transforma automáticamente en fecha

pero si en un código tengo una variable, por ejemplo "janv2014", enviarla a una celda no produce la transformación en fecha

por lo tanto, si estamos en un código como parece indicar yacleouf

Function transfo_date(date_txt As String) As Date Dim anne As Integer, mois_txt As String, mois(), mois_num As Byte annee = Right(date_txt, 4) mois_txt = Left(date_txt, Len(date_txt) - 4) mois = Array("janv", "fév", "mars", "avr", "mai", "jun", "juil", "aout", "sept", "oct", "nov", "déc") For cptr = 0 To 11 If mois(cptr) = mois_txt Then mois_num = cptr + 1 Exit For Next transfo_date = DateSerial(annee, mois_num, 1) End Function Sub test() Range("B2") = transfo_date("fév2014") End Sub 

¡Atención a verificar la ortografía de los meses en el array!

Michel

¡Oua tantas respuestas!
¡gracias a todos por sus contribuciones!
las soluciones de fórmulas no son viables en mi caso (código vb) y no tengo ganas de hacer formulas ni otras cosas :-)

de hecho, para solucionar mi problema (a través de una fórmula) un simple

=DATEVALUE(A1)

es más que suficiente y me da el resultado esperado,

lo que me gustaría es encontrar una solución tan "simple" y "rápida" como esa pero a través de código VB!?

Gracias de nuevo,

@michel_m, ¿podrías explicarme cómo modificarías tu tabla "meses" si los datos de esta tabla están contenidos en un rango de Excel (por ej.: A1:A12)?

gracias :-)

--
¡Google es tu amigo!