Discussion :

[Kthulu]

Bonjour à tous,

Je suis entrain de traiter des dates dans un fichier excel, afin de les convertir de mm/jj/aaa hh:mm à jj/mm/aaa hh:mm.
Pour cela pas de soucis, j'ai utilisé le code suivant (même si en parcourant le forum j'ai pu en croiser des plus propre):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(k, 3) = Mid(Cells(i, 1), 4, 3) + Mid(Cells(i, 1), 1, 3) + Mid(Cells(i, 1), 7, 2) + Mid(Cells(i, 1), 9, 9)

Ensuite, avec ces dates et une deuxième colonne, je trace un graphique.
Seulement voilà, j'ai un problème, excel ne comprend pas vraiment que les chaines de caractères que j'ai entrées sont des dates.
La tabulation est collée à gauche, et le graphique m'affiche en abscisses :"1,2,3..."


Pour que tout rentre dans l'ordre, j'ai trouvé comme solution de double-cliquer sur chaque cellule, puis de faire "entrer". La tabulation passe ainsi à droite, et l'abscisse passe bien en mode "dates".
On dirait qu'il faut que je fasse "entrer" pour qu'Excel "comprenne" ce qui est écrit dans ces cellules.



Comment pourrais-je automatiser cette "actualisation"?

j'ai déjà essayé avec SendKeys ("{Entrer}"), d'utiliser Workbook.RefreshAll, utiliser la fonction convertir (via un enregistrement de macro), rien ne marche...

Merci à vous!

[joe.levrai]

Bonjour,

la manière la plus simple est d'utiliser l'outil convertir accessible via l'onglet DONNEES >> CONVERTIR
je ne comprend pas que cela n'ai pas fonctionné ... je viens de recopier quelques lignes sources de ta copie écran, utilisé ta procédure d'extraction, puis l'outil Convertir avec succès (un filtre automatique me propose bien des filtres chronologiques)

l'enregistreur de macro te donnera la méthode appropriée, voici ce que tu dois capturer :

1) Sélectionner la colonne complète
2) cliquer sur l'outil CONVERTIR
3) directement cliquer sur Terminer
4) les dates sont maintenant des dates et plus du texte

[Daranc]

essaies de copier la valeur 1 d'une cellule et colles la en multipliant sur ta plage de date

[parmi]

Lorsque tu concatènes des parties de dates, le résultat est une chaîne de caractère et non pas une date.
Il te faut forcer la valeur retournée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(k, 3) = DATEVALUE(Mid(Cells(i, 1), 4, 3) + Mid(Cells(i, 1), 1, 3) + Mid(Cells(i, 1), 7, 2) + Mid(Cells(i, 1), 9, 9))

Mais comme le dit joe.levrai (salut), l'outil de conversion fonctionne bien en utilisant le format de la date tel qu'il apparaît sur la page.
Excel s'occupera de les transformer dans le format Windows que tu utilises.
Attention à l'utiliser qu'une seule fois, par contre...

[Kthulu]

Bonjour,

la manière la plus simple est d'utiliser l'outil convertir accessible via l'onglet DONNEES >> CONVERTIR
je ne comprend pas que cela n'ai pas fonctionné ... je viens de recopier quelques lignes sources de ta copie écran, utilisé ta procédure d'extraction, puis l'outil Convertir avec succès (un filtre automatique me propose bien des filtres chronologiques)

l'enregistreur de macro te donnera la méthode appropriée, voici ce que tu dois capturer :

1) Sélectionner la colonne complète
2) cliquer sur l'outil CONVERTIR
3) directement cliquer sur Terminer
4) les dates sont maintenant des dates et plus du texte

Merci pour ta réponse si rapide!
En effet, si je fais convertir à la main, cela marche, même si je choisis le mode standard.
Seulement voilà, quand 'j'enregistre la macro, qui me donne le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub convertir()
   'Convertir les données
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

Et que je l'exécute, les lignes restent "à gauche", et l'abscisse du graphique reste pareil... Il faut que je fasse entrer à chaque case pour que cela marche.
D'ailleurs, je précise bien que cliquer sur la case et faire entrer ne suffit pas, il faut que je la sélectionne, clique sur la barre de formule en haut, puis fait entrer pour que cela marche.

Afin de vous aider à comprendre le problème (j'aurais du y penser plus tôt), voici mon fichier:
Classeur1 - Copie.xlsm

La macro est à lancer en cliquant sur le gros bouton macro (je l'ai limitée à 10 lignes pour accélérer les tests)

Merci pour votre aide

[Kthulu]

Lorsque tu concatènes des parties de dates, le résultat est une chaîne de caractère et non pas une date.
Il te faut forcer la valeur retournée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(k, 3) = DATEVALUE(Mid(Cells(i, 1), 4, 3) + Mid(Cells(i, 1), 1, 3) + Mid(Cells(i, 1), 7, 2) + Mid(Cells(i, 1), 9, 9))

Mais comme le dit joe.levrai (salut), l'outil de conversion fonctionne bien en utilisant le format de la date tel qu'il apparaît sur la page.
Excel s'occupera de les transformer dans le format Windows que tu utilises.
Attention à l'utiliser qu'une seule fois, par contre...

Merci pour cette réponse, en effet cela fonctionne.
Au détail près qu'il me faut une valeur en date + h, et que DateValue m'as forcé toutes les heures à 00:00...
Pour le convert, même problème, quand je le fais à la main pas de soucis, quand j'enregistre et que j'exécute la macro qui me les convertit en date, cela ne change rien...

[Kthulu]

essaies de copier la valeur 1 d'une cellule et colles la en multipliant sur ta plage de date

Ok merci, ça marche
Mais c'est pas très beau^^