Bonjour,
J'ai dans une colonne des champs dates en toutes lettres avec nom du jour, exemple "Jeudi 24 janvier 2019" que j'aimerais mettre sous la forme 24.01.2019. L'enregistreur de macro ne fonctionne pas car la procédure Format de cellule> Date>14.03.2012 (sous Excel 2016) elle-même est sans effet. La commande Ctrl+1 qu'on trouve dans l'aide Microsoft est sans effet non plus.
J'ai copié d'une ancienne discussion le code suivant (adapté à mon cas):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Formule = "= TEXT(" & madate & "();" & "jj/mm/aaaa"  
ActiveCell.FormulaR1C1Local = Formule
(madate renvoie le contenu de la cellule) ce qui donne pour la procédure:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub formater_les_dates()
L_tir = 1
C_tir = 1
Dim Formule As String
ligne_tireurs = 20
ThisWorkbook.Worksheets("tireurs").Select
For L_tir = 1 To ligne_tireurs
madate = Cells(L_tir, C_tir).Value
Formule = "= TEXT(" & madate & "();" & "jj/mm/aaaa"
ActiveCell.FormulaR1C1Local = Formule
Next
End Sub
J'ai testé aussi sans Local et sans FormulaR1C1: même échec.
Est-ce parce que la formule a pour argument le contenu de la cellule elle-même ? Des erreurs de guillemets ?
Quelle mouche pique mon Excel 2016 ? Comment faire cette transformation des dates ?
Merci d'avance pour toute piste.
Cordialement
Touche_a_tout