Problème macro format de cellules date

lucas17

XLDnaute Nouveau
Bonjour à tous,

Je souhaite modifier par une macro le format de cellule de la première colonne du fichier ci-joint afin de visualiser la date et l'heure sur un graphique. Lorsque j'enregistre la macro manuellement la méthode "données-->convertir-->largeur fixe-->..." fonctionne mais lors du lancement de la macro cela ne donne rien.

Sub Macro()

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
Selection.NumberFormat = "m/d/yyyy h:mm"

End Sub

Merci d'avance
 

Pièces jointes

  • 2257 BEINHEIM DO8001.xlsx
    7.9 KB · Affichages: 29

vgendron

XLDnaute Barbatruc
Re : Problème macro format de cellules date

Bonjour,

étrange. chez moi, ca fonctionne bien
j'ai juste fait un copier coller de ton code dans un module.. et lancé la macro

une piste
vu que t'es en Excel 2010...pour que les macros soient actives.. il faut enregistrer ton fichier en xlsm..
 

lucas17

XLDnaute Nouveau
Re : Problème macro format de cellules date

Bonjour vgendron et merci d'avoir repondu,

Je vous ai joint mon fichier xlsm qui comporte ma macro complète et dans lequel je copie les valeurs du fichier précédent.
La encore impossible d'automatiser la conversion des dates.

Merci d'avance
 

Pièces jointes

  • Fichier_Calcul échantillon moyen.xlsm
    134.4 KB · Affichages: 23

vgendron

XLDnaute Barbatruc
Re : Problème macro format de cellules date

Re,

bon. lorsque j'ouvre ton fichier (post #3), la colonne A est déjà dans le format personalisé..
et si je veux lancer ta macro. j'ai des erreurs.. vu que je n'ai pas les fichiers sources, c'est sans doute normal. encore que..

l'erreur est sur:
Code:
ActiveChart.FullSeriesCollection(1).Name = "=""Entrée"""
 

youky(BJ)

XLDnaute Barbatruc
Re : Problème macro format de cellules date

Bonjour à tous,
Plus compliqué que prévu...
Enfin bref ça marche comme cela
Code:
Sub mesdates()
Dim x As Date
Columns(1).NumberFormat = "mm/dd/yyyy hh:mm"
    For lig = 7 To [A65000].End(3).Row
    x = Cells(lig, 1)
    Cells(lig, 1) = x
    Next
End Sub
Bruno
 

lucas17

XLDnaute Nouveau
Re : Problème macro format de cellules date

Bonjour,

vgendron, effectivement tu n'avais pas tous les fichiers nécessaires à la bonne exécution du programme mais en tout cas tout fonctionnait à part le code de conversion des dates.

Merci beaucoup Bruno ton code fonctionne très bien et la macro est désormais complète.
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 294
Messages
2 086 895
Membres
103 404
dernier inscrit
sultan87