Conversion de cellules en format date via VBA?

Version imprimable

30/12/2014, 16h09
Steppingstone

Conversion de cellules en format date via VBA?

Bonjour,

Je dispose d'une grande quantité de fichiers .xls dont les colonnes C,D,E contiennent des dates, malheureusement au format "standard" au lieu du format date excel "classique" DD/MM/YYYY.
Manuellement, le problème se règle lorsque je clique sur le champ "fx" de la cellule, puis "entrée", ou bien lorsque j'applique la commande "données > convertir "aux colonnes en question.

Est-il possible d'automatiser ce genre de correctif via une macro?
Pour précision, je suis débutant en la matière.

Merci beaucoup d'avance pour votre aide.
30/12/2014, 17h05
Pierre Fauconnier

Salut.

Voici une macro qui réalise cela. Afin de la rendre générique, j'ai travaillé sur la sélection. Ainsi, tu dois sélectionner les colonnes C:E pour convertir en une fois toutes les cellules de ces colonnes au format jj/mm/aaaa.
30/12/2014, 21h09
Steppingstone

Merci beaucoup Pierre,
Toutefois je ne vois pas de pièce jointe?
31/12/2014, 11h24
Marc-L

Bonjour,

si une cellule texte représente une date valide pour Excel (vérifiable via la fonction IsDate),
il y a diverses solutions comme par exemple modifier le format de la cellule en date (propriété NumberFormat),
utiliser la fonction CDate ou encore la méthode TextToColumns (la fonction Convertir de la feuille de calculs) …
01/01/2015, 01h02
kiki29

Salut, de la lecture : Comprendre et gérer les dates sous Excel et en VBA
01/01/2015, 14h24
Pierre Fauconnier
Salut.

Oups. J'avais oublié de mettre le code, qui met la sélection au format date
Code:

1 2 3 Sub SetDateFormatToSelection() Selection.NumberFormat = "dd/mm/yyyy" End Sub
02/01/2015, 17h30
Steppingstone

Un grand merci à tous pour votre aide :D !
Pierre, une question svp :
Quelle modification dois-je apporter à ce code afin que l'exécution se fasse pour tous les fichiers .xls d'un même dossier, sur les colonnes C,D,E ?

Merci d'avance

Bonjour,
Pourriez-vous svp regarder ma dernière question à ce sujet?

Merci d'avance

Voici une macro commentée qui fait cela. On pourrait bien entendu la paramétrer (ce serait mieux, en fonction de son utilisation finale). Cette macro doit être placée dans un fichier qui n'est pas dans le dossier analysé. Il faut aussi modifier le path et éventuellement les colonnes. La macro ne recherche que les xlsx, mais je suppose que tu pourras adapter sans problèmes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub SetColumnsNumberFormat()
  Dim Filename As String
  Dim Path As String
  Dim WB As Workbook
  Dim WS As Worksheet
  Dim Columns As String
 
 
  Application.ScreenUpdating = False
 
  ' Initialisation des données
  Path = "E:\Dossier"
  Columns = "C:E"
 
  ' Recherche du premier fichier Excel dans le dossier souhaité
  Filename = Dir(Path & "\*.xlsx")
  ' On boucle tant que DIR renvoie un nom de fichier
  Do While Filename <> ""
    Set WB = Workbooks.Open(Path & "\" & Filename)
    ' On boucle sur toutes les feuilles du fichier
    For Each WS In WB.Worksheets
      WS.Range(Columns).NumberFormat = "dd/mm/yyyy"
    Next WS
    ' On ferme le fichier en enregistrant
    WB.Close savechanges:=True
    ' On recherche le nom du fichier suivant
    Filename = Dir()
  Loop
 
  Application.ScreenUpdating = True
End Sub

06/02/2015, 16h11
Steppingstone

Merci beaucoup,

Voilà qui va beaucoup m'aider pour la suite :-)
06/02/2015, 16h15
Invité

Citation:

Envoyé par Steppingstone

le problème se règle lorsque je clique sur le champ "fx" de la cellule, puis "entrée"

Code:

range("Fx:Fx")=range("Fx:Fx").value

ça revient à faire un Enter!