Discussion :

[SpaceX]

Bonjour,

J'ai des dates écrite en toute lettre de B2:E25 que j'aimerai convertir sous cette forme : XX/XX/XXXX dans la colonne I.

Connaissez-vous une macro qui puisse effectuer cette conversion svp ?

[joe.levrai]

Bonjour,

une recherche ne fait jamais de mal

https://www.developpez.net/forums/d4...is-partir-nom/

c'est loin d'être le seul sujet

[BENNASR]

Bonjour
Sans VBA essayer la formule suivante en I2 :

=DATE(E2;MOIS(1&D2);C2)

[Invité]

Bonjour,
je ne suis pas pour utiliser DateValue ou même =DATE(E2;MOIS(1&D2);C2) qui sont trop lié au paramètres régionaux!

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
Public LesMois As Object
Public Property Get MyMois(m As String) As Integer
If TypeName(LesMois) = "Nothing" Then
Set LesMois = CreateObject("Scripting.Dictionary")
LesMois("Janvier") = 1
LesMois("Février") = 2
LesMois("Mars") = 3
LesMois("Avril") = 4
LesMois("Mai") = 5
LesMois("Juin") = 6
LesMois("Juillet") = 7
LesMois("Août") = 18
LesMois("Septembre") = 9
LesMois("Octobre") = 10
LesMois("Novembre") = 11
LesMois("Décembre") = 12
End If
MyMois = LesMois(m)
End Property
Public Function MyDate(j, m, y) As Date
MyDate = DateSerial(y, MyMois(CStr(m)), j)
End Function

[BENNASR]

Bonjour dysorthographie, la forum
sauf erreur de ma part , j'ai tester ton code mais ne donne pas le résultat souhaité

[RyuAutodidacte]

Bonjour,


Nul besoin de code, il suffit de mettre des mois dans une colonne que l'on aura choisie/déterminée à partir de la ligne 1 :

Janvier

Février

Mars

Avril

Mai

Juin

Juillet

Août

Septembre

Octobre

Novembre

Décembre

Puis ensuite de mettre une formule à étirer (mes mois sont en colonne L) :

Code :

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

=DATE($E2;EQUIV($D2;$L$1:$L$12;0);$C2)

Edit : coucou Robert on s'est croisé
PS : j'ai pas testé mais pas sur que Date pour le mois prenne le nom de celui-ci
méa culpa, autant pour moi c'est la fonction de ton code (en lisant vite j'ai confondu avec la formule)
Robert

[Invité]

Bonjour BENNASR,

[BENNASR]

re
Une faute de ma part ! ça fonctionne correctement
bonne journée

[RyuAutodidacte]

Bonjour BENNASR,

pour ta formule, je ne connaissais pas =>

Code :

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

=DATE(E2;MOIS(1&D2);C2)

[eriiic]

Bonjour,

par formule on a aussi :

Code :

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

=DATEVAL(C2&D2&E2)

eric

[Menhir]

Je viens de tester ça :

Code :

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

Range("I2") = Datevalue(Range("C2") & " " & Range("D2") & " " & Range("E2"))

Et je suis très surpris que ça fonctionne avec des noms de mois en français (j'ai testé tous les mois) malgré la francophobie de VBA.
On a parfois de bonnes surprise.