resolu Macro pour résoudre un problème de mise en forme de date

[chris6999]

Bonjour

J'ai un petit problème pour transformer des valeurs extraites d'une requête au format date approprié.

A la sortie de la requête cela donne par exemple 1140513 pour 5 avril 2014
En premier lieu je pense que je pourrais retirer le 1 en début de cellule qui ne sert à rien mais ensuite comment transformer le reste en date au format 05/04/2014 c'est un vrai casse-tête.

Je dois faire passer ce code à partir de la ligne 4 sur toutes les lignes où D est non vide.

Si quelqu'un peut m'aider?
Je précise que je cherche plutôt un code VB qu'une formule.

Cordialement

 

[néné06]

Re : Macro pour résoudre un problème de mise en forme de date

Bonjour chris,
Mais à quoi correspond ce nombre, comment est il obtenu ?
As tu regardé ma réponse sur ton autre post ?

A+

René

 

[PMO2]

Re : Macro pour résoudre un problème de mise en forme de date

Bonjour,

Est-ce que la plage en vert correspond aux résultats attendus (voir pièce jointe) ?

 

[néné06]

Re : Macro pour résoudre un problème de mise en forme de date

Re,
@bonjour PMO2

J'ai compris la codification !

Regardes cet exemple.

 

[chris6999]

Re : Macro pour résoudre un problème de mise en forme de date

Bonjour

Oui cela semble correspondre. Fallait trouver l'astuce ! chapeau!

Bonne journée

 

[PMO2]

Re : Macro pour résoudre un problème de mise en forme de date

OK.
Un fonction personnalisée à copier dans un module standard

Function Text2Date(C As Range) As Date
Dim A$
A$ = Mid(C, 6, 2) & "/" & Mid(C, 4, 2) & "/" & Mid(C, 2, 2)
If IsDate(A$) Then
  Text2Date = CDate(A$)
End If
End Function

On tape la formule =Text2Date(D4) puis on la tire vers le bas.
Le résultat est de type Date et il n'y a plus qu'à changer le format de la cellule à sa convenance.

 

[chris6999]

Re : Macro pour résoudre un problème de mise en forme de date

Re,
@bonjour PMO2

J'ai compris la codification !

Regardes cet exemple.

Oui cela fonctionne !C'est juste incroyable.
Dommage que je sois obligé d'ajouter une colonne à mon tableau pour récupérer la date au bon format.

Je vais voir ce que je peux faire

Merci encore
Cordialement

 

[Staple1600]

Re : Macro pour résoudre un problème de mise en forme de date

Bonjour à tous


On peut aussi ne pas utiliser de macro et passer par Données/Convertir
(test OK sur le fichier de néné06)