Conversion de cellules en format date via VBA?

**Steppingstone** · 30/12/2014, 16h09

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.

**Pierre Fauconnier** · 30/12/2014, 17h05

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.

**Steppingstone** · 30/12/2014, 21h09

Merci beaucoup Pierre,
Toutefois je ne vois pas de pièce jointe?

**Marc-L** · 31/12/2014, 11h24

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) …

**kiki29** · 01/01/2015, 01h02

Salut, de la lecture : Comprendre et gérer les dates sous Excel et en VBA

**Pierre Fauconnier** · 01/01/2015, 14h24

Salut.

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

Code :

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

1
2
3
Sub SetDateFormatToSelection()
  Selection.NumberFormat = "dd/mm/yyyy"
End Sub

**Steppingstone** · 02/01/2015, 17h30

Un grand merci à tous pour votre aide

!
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

**Pierre Fauconnier** · 03/02/2015, 17h57

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 :

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

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