Formule récursive dans une cellule

Version imprimable

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:

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:

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

re
bonjour
voici une toute pettite fonction perso vite fait comme ca
fonctionne seulement a la condition que les mois soient correctement orthographiés et en minuscule attention aux accents!!!!
Code:

1 2 3 4 5 6 7 Public Function shortdate(cel) shortdate = DateValue(LCase(Replace(cel, Split(cel, " ")(0), ""))) End Function ' Sub test() MsgBox shortdate("Jeudi 24 janvier 2019") End Sub
exemple de formule de base dans une cellule

Citation:

=shortdate(A1)

EDIT:

UN PEU PLUS DE SOUPLESSE AVEC CETTE VERSION
Avec cette version ci dessous ,les mois en majuscule ou sans accents sont acceptés
il y a la gestion d'erreur sans blocage pour le cas ou le texte ne soit vraiment pas valide pour datevalue
Code:

1 2 3 4 5 6 7 Public Function shortdate(cel) cel = LCase(cel) cel = Replace(Replace(Replace(cel, "decembre", "décembre"), "aout", "août"), "fevrier", "février") shortdate = "non reconnue!!" On Error Resume Next shortdate = DateValue(LCase(Replace(cel, Split(cel, " ")(0), ""))) End Function
par contre formate bien tes cellules au format de date voulu car on obtien le numero de serie de la date dans les cellules
;)

1 pièce(s) jointe(s)

re
et j'en remet une couche
celle si accepte plusieurs orthographe et (avec ou sans le jour en lettre

Code:

1
2
3
4
5
6
7
8
Public Function shortdate(cel)
    cel = LCase(cel)
    cel = Replace(Replace(Replace(cel, "decembre", "décembre"), "aout", "août"), "fevrier", "février")
    If UBound(Split(cel, " ")) = 3 Then cel = Replace(cel, Split(cel, " ")(0), "")
    shortdate = "non reconnue!!"
    On Error Resume Next
        shortdate = DateValue(cel)
End Function

demo
Pièce jointe 444314

Formule récursive dans une celllle

Bonjour Patrick,
Je trouve assez rigolo, en tant que futur membre du club inscrit pourtant depuis 12 ans et auteur de plus de 300 messages, d'être conseillé par un "débutant" dont j'ai déjà eu l'occasion de constater les vastes capacités. J'ai interrogé Pierre Fauconnier sur mon changement brusque de statut mais il n'a pas pu me l'expliquer. je vois qu'il t'est arrivé le même gag !
J'ai tourniqué pas mal autour de ta première proposition (mes mois sont ok) mais la conclusion est que l'opération ne peut pas être récursive: il faut envoyer le résultat dans une autre cellule, celle d'à côté par exemple. C'est bon à savoir (à moins que quelqu'un sorte une solution du chapeau). Ca donne ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Function shortdate(cel) shortdate = DateValue(LCase(Replace(cel, Split(cel, " ")(0), ""))) End Function ' Sub test() MsgBox shortdate("Jeudi 24 janvier 2019") End Sub Sub formater_les_dates() L_tir = 1 C_tir = 1 ligne_tireurs = 20 ThisWorkbook.Worksheets("tireurs").Select For L_tir = 1 To ligne_tireurs Cells(L_tir, C_tir + 1) = shortdate(Cells(L_tir, C_tir).Value) Next End Sub
Dans la colonne voisine j'ai obtenu ceci, qui me satisfait tout à fait:

Citation:

24.07.2018
27.07.2018
31.07.2018

Encore merci de m'avoir dépanné.
Cordialement
touche_a_tout

25/01/2019, 03h38
touche_a_tout

Formule récursive dans une celllle

re, Patrick,
Pas vu ton post No 3 quand j'ai répondu. Grande souplesse, mais c'est trop pour mes besoins. Merci tout de même et tu pourrais en faire un article, bien meilleur que ce que F1 trouve chez Microsoft. Si tu te sens l'esprit pédagogique...
Bien à toi
touche_a_tout

1 pièce(s) jointe(s)

re

Citation:

mais la conclusion est que l'opération ne peut pas être récursive: il faut envoyer le résultat dans une autre cellule, celle d'à côté par exemple

ce n'est pas la recursivité que tu cherche mais bien le formatage dynamique d'apres ce que je comprends
utilise alors l'evenement change tout simplement et tu n'auras pas besoins de cellule intermediaire
je pense avoir compris que c'est cela que tu veux
le tout collé dans le module du sheets concerné .
exemple en colonne "A"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Cells.Count = 1 Then If Not IsDate(Target.Value) And Target Like "*[0-9]*" And Target.Value <> "" Then Target.Value = shortdate(Target.Value) End If End If End Sub ' Public Function shortdate(cel) cel = LCase(cel) cel = Replace(Replace(Replace(cel, "decembre", "décembre"), "aout", "août"), "fevrier", "février") shortdate = "non reconnue!!" On Error Resume Next shortdate = DateValue(LCase(Replace(cel, Split(cel, " ")(0), ""))) End Function ' 'test d'insertion par vba Sub test_par_VBA() Cells(10, 1).Value = "vendredi 25 janvier 2019" End Sub
voila tu tape ou entre par vba par exemple "vendredi 25 janvier 2019" puis que tu tape enter ca te met ta date au format "dd/mm/yyyy"
demo
Pièce jointe 444330

28/01/2019, 23h03
touche_a_tout

Formule récursive dans une celllle

Bonsoir Patrick,
Je conserve ta première proposition (ton post No 2) qui me convient tout à fait.
Merci de ton aide. Pour moi, on peut considérer la discussion comme résolue.
Bine à toi. Et encore merci.
touche_a_tout
28/01/2019, 23h17
patricktoulon

re

re
de rien touche_a_tout
au plaisir