Excel 2010 macro conversion champ date

Version imprimable

Bonjour,

j'ouvre ce sujet faute d'avoir trouvé une solution par moi-même.

Je débute en macro excel et je souhaitais automatiser une action manuelle.

En pratique :
- dans un classeur excel 2010, j'ai deux colonnes J et K avec des dates de la façon suivante
colonne J colonne K
08/août./2017 10:25 10/août./2017 15:13
Mon objectif est d'extraire le numéro du mois dans une autre colonne.
Pour cela, je remplace par l'outil recherche/remplace (ctrl+f) "./" en "/".
Cette action marche très bien, car le "août./" devient "août/" et est converti automatiquement en 08. (j’extrais par la suite ce mois par une autre fonction)

J'ai enregistré cette action manuelle dans une macro...et là c'est le drame.
Via la macro l'action de remplacement marche bien, mais la valeur dans le cellule reste à "août" et non "08".
Aprés chercher sur internet, je pensais que la solution était de faire un convertir en format JMA des cellules.
Manuellement c'est Ok, mais toujours KO via une macro.

Voici la macro.
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 32 33 Sub MAJ_MOIS() ' ' MAJ_MOIS Macro ' ' Columns("J:K").Select Range("J4").Activate Selection.Replace What:="./", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("K:K").Select Range("K4").Activate 'converstion JMA ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 Range("J6").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("J6"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True Range("K6").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("K6"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True End Sub
Merci d'avance pour votre aide.
Sylvain

Salut.

D'abord, je te conseille, dans la mesure du possible et petit à petit, de te détacher de l'enregistreur de macros. Inspire-toi des codes que tu verras sur les forums et dans les tutos. Notamment, évite les Select qui sont lourds et ralentissent l'exécution, en plus de modifier la situation du fichier Excel, ce qui produit souvent une expérience utilisateur désagréable...

Essaie également de ne pas tout placer dans la même procédure. Tout mettre dans une même proc amène des problèmes lors des tests (surtout avec des Select), rend la maintenance plus pénible et le code moins pérenne, et empêche sa réutilisation.

Par exemple, pour ton problème spécifique de date, on devrait travailler avec une fonction qui ne fait que la transformation. Je t'en propose une ci-dessous, mais il y a d'autres manières de procéder. Le principe étant de diviser ta longue macro en morceaux qui n'ont qu'une seule responsabilité, puis d'assembler les différents morceaux au travers d'une procédure qui sera "le chef d'orchestre". C'est en procédant ainsi que tu travailleras de plus en plus facilement en VBA.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Function TransformDate(ByVal strDate As String) As Date Dim Months Dim Pos As Long Dim Found As Boolean Dim Dates Months = Array("Janvier.", "Février.", "Mars.", "Avril.", "Mai.", "Juin.", "Juillet.", "Août.", "Septembre.", "Octobre.", "Novembre.", "Décembre.") Pos = 0 Do While Pos < 12 And Not Found If InStr(1, strDate, Months(Pos), vbTextCompare) > 0 Then strDate = Replace(strDate, Months(Pos), Pos, , , vbTextCompare) Dates = Split(strDate, "/") TransformDate = DateSerial(Dates(2), Dates(1) + 1, Dates(0)) Found = True End If Pos = Pos + 1 Loop End Function

11/08/2017, 11h06
spy20

Tout d'abord merci pour ton retour et réactivité @Pierre Fauconnier

Je prends note de tes conseils avisés ;).
A chaud, je n'ai pas tout compris sur ton code :-) et je réfléchis encore à comment l'adapter à ma situation.

Je ferais un retour après avoir travaillé dessus.

1 pièce(s) jointe(s)

Bonjour
et une petite fonction perso ca t'intéresse

exemple

sub pour tester une cellule par vba
Code:

1 2 3 Sub test() MsgBox convert_mois(Cells(1, 1)) End Sub
fonctionconvert_mois
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function convert_mois(cel) mois = Array("", "janv.", "fevr.", "mars.", "avr.", "mai.", "juin.", "juil.", "aout.", "sept.", "oct.", "nov.", "dec.", "") tabl = Split(cel, "/") If UBound(tabl) <> 0 Then moislettre = tabl(1) For i = 1 To 13 If tabl(1) = mois(i) Then Exit For Next convert_mois = IIf(i < 13, i, "nodate") Else convert_mois = "nodate" End If End Function
exemple d'utilisation par formule

a mettre dans la cellule ou tu veux que le mois en numérique apparaisse
exemple ici je vais mettre en E1 le mois de A1 et en f1 le mois de B1
formule en E1

Citation:

=SI(A1<>"";convert_mois(A1);"")

formule en F1

Citation:

=SI(B1<>"";convert_mois(B1);"")

résultat

Pièce jointe 302249
si ce n'est pas une date valide ainsi que si le mois ne respecte pas l'orthographe abrégé des 12 mois, tu aura "nodate" dans la cellule resultat

1 pièce(s) jointe(s)

j'ai poussé un peu plus loin la reconnaissance du mois

amélioration

reconnaissance de deux formats de date (séparateur slashs ou tiret)
reconnaissance du format de date de nos chers yanky ;)
reconnaissance des deux orthographe des mois (entier /abrégés)

la formule en celluleou la sub pour tester reste les mêmes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function convert_mois(cel)
    Dim T$, MoisL, MoisN, I#
    convert_mois = "nodate"
    T = Replace(cel, "-", "/")
    MoisL = Array("", "janv", "janvier", "fevr", "fevrier", "mars", "avr", "avril", "mai", "juin", "juil", "juillet", "aout", "sept", "septembre", "oct", "octobre", "nov", "novembre", "dec", "decembre", "")
    MoisN = Array("", 1, 1, 2, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 9, 10, 10, 11, 11, 12, 12, "")
    tabl = Split(T, "/")
    If UBound(tabl) <> 0 Then
        moislettre = tabl(1)
        For I = 1 To UBound(MoisL) - 1
            If Replace(tabl(1), ".", "") = MoisL(I) Or Replace(tabl(0), ".", "") = MoisL(I) Then convert_mois = MoisN(I): Exit For
        Next
    End If
End Function

Pièce jointe 302271

11/08/2017, 14h21
spy20

Merci beaucoup @patricktoulon

Je viens de prendre connaissance de ta proposition.

Je vais essayer de voir ça cette après-midi et je ferais un retour après les tests

Bonjour,

merci pour votre aide.

J'ai opté pour la solution suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function convert_mois(cel)
    Dim T$, MoisL, MoisN, I#
    convert_mois = "nodate"
    T = Replace(cel, "-", "/")
    MoisL = Array("", "janv", "janvier", "févr", "fevrier", "mars", "avr", "avril", "mai", "juin", "juil", "juillet", "aout", "sept", "septembre", "oct", "octobre", "nov", "novembre", "déc", "decembre", "")
    MoisN = Array("", 1, 1, 2, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 9, 10, 10, 11, 11, 12, 12, "")
    tabl = Split(T, "/")
    If UBound(tabl) <> 0 Then
        moislettre = tabl(1)
        For I = 1 To UBound(MoisL) - 1
            If Replace(tabl(1), ".", "") = MoisL(I) Or Replace(tabl(0), ".", "") = MoisL(I) Then convert_mois = MoisN(I): Exit For
        Next
    End If
End Function

Et dans mes cellules excel j'ai mis ceci :

Code:

=SI(convert_mois(K1150)="nodate";MOIS(K1150);convert_mois(K1150))

Maintenant j'essaye d'adapter pour une extraction sur l'année, mais je galère...
J'ai des années de ce type 15/déc./14 05:21:15 PM ou 15/déc./2014 05:21:15 PM
Elle se trouve sur 2 ou 4 chiffres. J'aimerais l'extraire sur 4 chiffres et avoir dans ce cas 2014.

J'ai utilisé ce code, mais ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function convert_annee(cel)
    Dim T$, AnneeL, AnneeN, I#
    convert_annee = "nodate"
    T = Replace(cel, "-", "/")
    AnneeL = Array("", "14", "2014", "15", "2015", "16", "2016", "17", "2017", "18", "2018", "19", "2019", "20", "2020", "21", "2021", "22", "2022", "23", "2023", "")
    AnneeN = Array("", 2014, 2014, 2015, 2015, 2016, 2016, 2017, 2017, 2018, 2018, 2019, 2019, 2020, 2020, 2021, 2021, 2022, 2022, 2023, 2023, "")
    tabl = Split(T, "/")
    If UBound(tabl) <> 0 Then
'         anneelettre = tabl(1)
        For I = 1 To UBound(AnneeL) - 1
            If tabl(3) = AnneeL(I) Then convert_annee = AnneeN(I): Exit For
        Next
    End If
End Function

Pouvez-vous m'éclairer une nouvelle fois s'il vous plait ?
Merci par avance

17/08/2017, 12h48
Pierre Fauconnier

1 pièce(s) jointe(s)

Comprends-tu maintenant pourquoi je te conseillais de convertir ta donnée en date et non en mois?

Maintenant, tu dois réinventer une fonction pour convertir l'année. Si tu avais directement converti ta donnée en date, tu aurais le jour, le mois et l'année pour le même prix, et éventuellement les heures, minutes et secondes si tu le souhaites, puisque ces données semblent faire également partie de la saisie.

Je reviens donc avec ma proposition de transformer ta saisie en date, en fonction des possibilités de saisie. Pour la date, tu pourrais déjà extraire ce qui précède le premier espace, puis splitter pour récupérer les données. Quitte à utiliser une autre fonction perso pour la recherche du mois qui renverra l'indice numérique du mois en fonction de la chaine récupérée par le splittage. C'est comme cela que l'on programme proprement ;)

Voici le début d'une fonction qui pourrait traiter ta saisie. Il faudra évidemment envisager les différents cas de saisie du mois. C'est beaucoup plus simple à traiter en travaillant de cette façon, crois-moi.

Pièce jointe 303689
17/08/2017, 12h54
patricktoulon

re

Bonjour spy20

on risque d'avoir un problème insoluble dans ce cas la
regarde ces trois dates et selon l'interprétation de la date on peut être en 2014 ou 2004 ou 2012 comme Excel ne devine pas et qu'il va certainement l'interpréter comme une date format Français ou anglo-saxon tu aura donc des erreurs
12/04/2014
14/04/12
14-dec.-04
donc pour la 1ere c'est 2014 ca on est sur
la 2 eme cela peut etre 14 ou 12
et pareil pour la 3eme
il faudrait au moins que tes dates de sur soit au même format partout exemple jour/mois/année ou année/mois/jours

après abrégée ou pas on s'en fout mais elle doivent toute être écrite le même ordre

dis moi qu'elles sont toujours dans le même ordre je te règle ca en 2 minutes
17/08/2017, 12h57
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

[...]
il faudrait au moins que tes dates de sur soit au même format partout exemple jour/mois/année ou année/mois/jours

après abrégée ou pas on s'en fout mais elle doivent toute être écrite le même ordre

dis moi qu'elles sont toujours dans le même ordre je te règle ca en 2 minutes

Où as-tu vu que les dates n'étaient pas toujours saisies dans le même ordre? Spy a juste dit qu'il avait des années sur deux ou quatre chiffres. Si en plus tu l'embrouilles...

1 pièce(s) jointe(s)

Spy,

Voici deux fonctions qui permettent de convertir tes saisies en date (à adapter pour GetMonth() si d'autres subtilités de saisie viennent s'ajouter dans l'expression du mois). En travaillant ainsi, tu as du code propre et facilement testable...

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
Function GetDate(Text As String) As Date
  Dim strDay As String, strMonth As String, strYear As String
  Dim Temp As String
  Dim intMonth As Integer
 
  Temp = Left(Text, InStr(1, Text, " ") - 1)
  strDay = Split(Temp, "/")(0)
  strMonth = Split(Temp, "/")(1)
  strYear = Split(Temp, "/")(2)
 
  intMonth = getMonth(strMonth)
  GetDate = DateSerial(strYear * 1, intMonth, strDay * 1)
End Function
 
Function getMonth(strMonth As String) As Integer
  Dim Months
  Dim Found As Boolean
  Dim Counter As Long
 
  Months = Array("janv", "fév", "mar", "avr", "mai", "juin", "juil", "aou", "sept", "oct", "nov", "déc")
  Counter = 0
  Do While Counter < 11 And Not Found
    If strMonth Like Months(Counter) & "*" Then Found = True
    Counter = Counter + 1
  Loop
  If Found Then getMonth = Counter
End Function

L'illustration suivante montre que tu récupères alors l'année ou le mois grâce aux fonctions natives Year() et Month()...

Pièce jointe 303707

17/08/2017, 13h53
patricktoulon

re

ou Pierre dans ce cas la si les dates sont toutes dans cet ordre

un simple split sur l'espace puis sur le "/"(2)

mais bien vu Pierre Fauconnier on pourrait même utiliser day()

sinon j'en ai une qui sert pour les 3 (jour,mois,année)
juste pour tester
Code:

1 2 3 4 5 6 Sub test() Dim donnée_date$ madate = "05/08/2017 08:45" donnée_date = examine_date(madate, 2) MsgBox donnée_date End Sub
la fonction
Code:

1 2 3 4 5 6 7 8 9 Function examine_date(madate, ind) As String mois = Array("", "janv", "fév", "mar", "avr", "mai", "juin", "juil", "aou", "sept", "oct", "nov", "déc") madate = Replace(Split(madate, " ")(0), "-", "/") tabl = Split(madate, "/") If UBound(tabl) < 2 Then examine_date = "nodate": Exit Function For i = 1 To 12: If tabl(1) Like mois(i) & "*" Then tabl(1) = i Next examine_date = tabl(ind - 1) End Function
'exemple de formule

Citation:

=SI(A2<>"";examine_date(A2;3);"")

argument en rouge

3 pour l'année
2 pour le mois
1 pour le jour
mais attention contrairement a mon ancienne version ca implique un format identique a toute les cellule soit jour mois année en lettre ou en numérique

17/08/2017, 15h00
Pierre Fauconnier

A partir du moment où une fonction renvoie une date, je ne vois pas l'intérêt d'une fonction qui renverrait une des trois parties selon un paramètre, puisque les fonctions natives existent, tant en Excel qu'en VBA. C'est justement l'intérêt de passer par une fonction qui renvoie une date que de pouvoir après en faire ce qu'on veut sans réinventer la roue...

Mais bon, si tu y tiens...
17/08/2017, 15h37
patricktoulon

re
re
Pierre Fauconnier

ceci
20-aout-2017 08:30
même en splittant l'heure ca me renvoie pas une date chez moi
les fonctions natives fonctionnent avec un certains format je vais pas te l'apprendre
toi tu met le mois en numerique si j'ai bien lu ton code mais tu ne traite pas la syntaxe "format"
tu ne traite que les "/" (format classique)
alors je te met moins combien vu ton statut ?
Code:

1 2 3 4 Sub test() madate = "20-aout-2017" ' Ou madate = "20/aout/2017" MsgBox IsDate(madate) End Sub
donne résultat faux

dans ma fonction je gère aussi les séparateurs

en gros j'utilise même pas les fonctions simplement un tableau 1,2,3

le moins un est injustifié même j'en ai un peu rien a ciré
convertir en date
a oui!! avec ceci
12/03/14 07:00
va chercher l'année toi
17/08/2017, 15h59
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

[...]
toi tu met le mois en numerique si j'ai bien lu ton code [...]i

Lis mon code, je montre expressément que le mois est mis en texte (soit en abrégé soit en long), histoire de coller à la demande du début.

Et effectivement, ma fonction ne gère que le / comme séparateur, alors que la tienne les gère tous (enfin, en gère plusieurs...). Wouah, quel exploit. Je peux ajouter la gestion des séparateurs dans la mienne, si tu y tiens, et gérer également les heures, minutes et secondes. Ca ne changera rien à la démarche que je recommande à Spy

Ce que je veux te faire comprendre, mais que tu ne comprends pas car tu veux jouer à qui à la plus grosse, c'est que la fonction qui traitera la donnée doit renvoyer une date (éventuellement avec l'heure), de manière à pouvoir la traiter en tant que telle dans la suite du processus, alors que ta fonction renvoie une partie de la date selon un paramètre que l'on doit préciser. Et si demain il faut extraire l'heure ou les minutes ou les secondes, tu vas obliger l'utilisateur à passer 5, 6 ou 7 en paramètre alors que les fonctions Heure(), Minute() et seconde() existent. C'est d'une insondable absurdité, ce truc. Et je veux te faire comprendre que cette démarche est inutile puisque le VBA expose des fonctions qui permettent de faire cela. Inventer un tableau de trois données ou plus pour récupérer une partie de la date alors que des fonctions natives existent, c'est juste improductif et non professionnel.

Si demain Spy veut calculer l'écart de jours entre 25/avr./2017 et 14/septembre/18 (pour reprendre des exemples qu'il a cités), tu vas lui inventer une nouvelle fonction? Avec ma façon de procéder, tu transformes les deux valeurs en date, puis soit tu calcules la différence, soit tu utilises DateDiff, ce qui permet en plus de calculer d'autres écarts que le nombre de jours.

C'est la démarche proposée et mise en place qu'il te faut comprendre. Je ne peux rien pour toi si tu n'y arrives pas.
17/08/2017, 16h04
Pierre Fauconnier

1 pièce(s) jointe(s)

Citation:

Envoyé par patricktoulon

[...]
a oui!! avec ceci
12/03/14 07:00
va chercher l'année toi

Je n'ai rien compris à cette partie de ton message. Je te rappelle que la demande est de pouvoir retrouver le mois en numérique lorsqu'il est exprimé en textuel, selon les exemples donnés par Spy au long de la discussion, pas de créer une usine à gaz qui tient compte de trucs qui ne sont pas demandés au départ.

Quant à ton "exemple"...

Citation:

Envoyé par patricktoulon

[...]
12/03/14 07:00
va chercher l'année toi

Pièce jointe 303757

Bonjour,

je rebondis sur la fonction getMonth de Pierre, sur ton message #11

la boucle Do While est un choix éclairé (je veux bien entendu parler du LIKE) ou d'habitude ?

en utilisant Match on peut également s'en sortir, mais ici c'est uniquement en correspondance exacte
Code:

1 2 3 4 5 Function getMonthJOE(strMonth As String) As Integer Dim Result Result = Application.Match(strMonth, Array("janv", "fév", "mar", "avr", "mai", "juin", "juil", "aou", "sept", "oct", "nov", "déc"), False) getMonthJOE = IIf(IsError(Result), 0, Result) End Function
J'ai fais le fainéant en supprimant la variable Months qui hébergeait ton Array :oops:

17/08/2017, 16h21
Pierre Fauconnier

Salut Joe,

Ca permet éventuellement d'utiliser la fonction ailleurs que dans du VBA pour Excel. De plus, Spy disait avoir parfois 05/avr./17 et parfois 05/avril/17, d'où la nécessité soit d'utiliser le joker, soit de doubler le tableau. J'ai préféré la boucle avec le joker (6 boucles en moyenne par rapport à un match, je ne suis pas certain que ce soit très pénalisant).

Mais pour une utilisation VBA Excel et une recherche exacte, ton approche est plus lisible, assurément, et évite la gestion de la sortie de boucle avec Found... ;)
17/08/2017, 16h39
patricktoulon

re

Quant à ton "exemple"...

https://forum.developpez.be/images/misc/quote_icon.png Envoyé par patricktoulon https://forum.developpez.be/images/b...post-right.png
[...]
12/03/14 07:00
va chercher l'année toi

https://www.developpez.net/forums/at...17_150253.png/

voila tu a la réponse rassure moi on est bien d'accords que c'est faux
ps:
dans ta version avant split tu pourrais ajouter un replace "-" par "/" et "." par"/" y compris l'espace aussi histoire de prendre le plus grand nombre d'écriture
17/08/2017, 16h41
Pierre Fauconnier

1 pièce(s) jointe(s)

Pfff... Teste au moins. L'erreur vient du fait que j'ai changé la date pour correspondre à ton exemple et que je n'ai pas relancé l'exécution.

Mais ça fonctionne très bien, évidemment... C'est le B.A.BA du VBA, ce truc. Je croyais que tu étais expert... Déçu je suis :(

Pièce jointe 303782

1 pièce(s) jointe(s)

Salut.

Outre le fait que je considère ce format de date comme ésotérique (en général, soit on exprime le mois en numérique avec des séparateurs ( / - . ) soit on l'exprime littéralement sans séparateur) et en étant étonné que l'année soit parfois en deux chiffres et parfois en quatre, en considérant les dates exprimées selon les schémas suivants (à l'exclusion de toute autre fioriture de format, puisque telle n'est pas la demande initiale), et en devant éventuellement adapter les abréviations des mois en fonction d'une liste d'exemples couvrant l'année entière (au moins un exemple par mois), on peut utiliser une fonction qui récupère la date et l'heure de la journée. J'ai dû supposer que lorsqu'on est le matin, on trouve AM en fin de chaine. Il me semble évident au vu des exemples que les dates sont exprimées au format européen, c'est-à-dire dans l'ordre J/M/A.

Citation:

Envoyé par spy20

[...]
J'ai des années de ce type 15/déc./14 05:21:15 PM ou 15/déc./2014 05:21:15 PM
Elle se trouve sur 2 ou 4 chiffres. J'aimerais l'extraire sur 4 chiffres et avoir dans ce cas 2014.[...]

La fonction perso GetDate récupère la chaine exprimant la date et utilise la fonction getMonth.
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 32 33 34 35 36 37 Function GetDate(Text As String) As Date Dim strDay As String, strMonth As String, strYear As String Dim tmpDate As String, tmpTime As String Dim intMonth As Integer Dim tmp As Date Dim PartOfDay As String tmpDate = Split(Text, " ")(0) tmpTime = Split(Text, " ")(1) PartOfDay = Split(Text, " ")(2) strDay = Split(tmpDate, "/")(0) strMonth = Split(tmpDate, "/")(1) strYear = Split(tmpDate, "/")(2) intMonth = getMonth(strMonth) tmp = DateSerial(strYear * 1, intMonth, strDay * 1) tmp = tmp + CDate(tmpTime) If PartOfDay = "PM" Then tmp = tmp + 0.5 GetDate = tmp End Function Function getMonth(strMonth As String) As Integer Dim Months Dim Found As Boolean Dim Counter As Long Months = Array("janv", "fév", "mar", "avr", "mai", "juin", "juil", "aou", "sept", "oct", "nov", "déc") Counter = 0 Do While Counter < 11 And Not Found If strMonth Like Months(Counter) & "*" Then Found = True Counter = Counter + 1 Loop If Found Then getMonth = Counter End Function
Cette fonction perso getDate peut être utilisée en Excel ou en VBA, et offre l'avantage de convertir en date la chaîne passée, pour autant qu'elle soit valide. Je n'ai pas fait de tests de validité de la chaine passée, car en général, une extraction d'une DB ou d'un fichier respecte un format constant (d'où mon étonnement de l'année sur deux ou quatre chiffres). C'est aussi la raison pour laquelle ma fonction n'est pas générique (je ne traite qu'un séparateur, les dates sont données au même format, il y a toujours le moment de la journée suivi de AM ou de PM). La transformation de la chaine en date permet de récupérer n'importe quelle donnée de cette date (jour, mois, année, heures, minutes, secondes) sans avoir besoin d'artifices tels que tableaux et paramètres proposés par ailleurs, et permet donc le traitement des dates récupérées avec les fonctions natives d'Excel ou de VBA, telles que année(), mois(), jour(),...), voire même de DateDif (fonction non documentée d'Excel) ou DateDiff (VBA).

L'illustration suivante permet de visualiser l'utilisation de la fonction dans Excel, et la liste déroulante des formats illustre bien que nous sommes en présence d'une valeur de type date/heure. Je pense qu'avec cela, Spy a toutes les cartes en mains.

Pièce jointe 303920

Spy, pour ma curiosité personnelle, d'où proviennent ces dates au format "inhabituel"?

Citation:
Envoyé par Pierre Fauconnier
Salut.

Outre le fait que je considère ce format de date comme ésotérique (en général, soit on exprime le mois en numérique avec des séparateurs ( / - . ) soit on l'exprime littéralement sans séparateur) et en étant étonné que l'année soit parfois en deux chiffres et parfois en quatre, en considérant les dates exprimées selon les schémas suivants (à l'exclusion de toute autre fioriture de format, puisque telle n'est pas la demande initiale), et en devant éventuellement adapter les abréviations des mois en fonction d'une liste d'exemples couvrant l'année entière (au moins un exemple par mois), on peut utiliser une fonction qui récupère la date et l'heure de la journée. J'ai dû supposer que lorsqu'on est le matin, on trouve AM en fin de chaine. Il me semble évident au vu des exemples que les dates sont exprimées au format européen, c'est-à-dire dans l'ordre J/M/A.

La fonction perso GetDate récupère la chaine exprimant la date et utilise la fonction getMonth.
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 32 33 34 35 36 37 Function GetDate(Text As String) As Date Dim strDay As String, strMonth As String, strYear As String Dim tmpDate As String, tmpTime As String Dim intMonth As Integer Dim tmp As Date Dim PartOfDay As String tmpDate = Split(Text, " ")(0) tmpTime = Split(Text, " ")(1) PartOfDay = Split(Text, " ")(2) strDay = Split(tmpDate, "/")(0) strMonth = Split(tmpDate, "/")(1) strYear = Split(tmpDate, "/")(2) intMonth = getMonth(strMonth) tmp = DateSerial(strYear * 1, intMonth, strDay * 1) tmp = tmp + CDate(tmpTime) If PartOfDay = "PM" Then tmp = tmp + 0.5 GetDate = tmp End Function Function getMonth(strMonth As String) As Integer Dim Months Dim Found As Boolean Dim Counter As Long Months = Array("janv", "fév", "mar", "avr", "mai", "juin", "juil", "aou", "sept", "oct", "nov", "déc") Counter = 0 Do While Counter < 11 And Not Found If strMonth Like Months(Counter) & "*" Then Found = True Counter = Counter + 1 Loop If Found Then getMonth = Counter End Function
Cette fonction perso getDate peut être utilisée en Excel ou en VBA, et offre l'avantage de convertir en date la chaîne passée, pour autant qu'elle soit valide. Je n'ai pas fait de tests de validité de la chaine passée, car en général, une extraction d'une DB ou d'un fichier respecte un format constant (d'où mon étonnement de l'année sur deux ou quatre chiffres). C'est aussi la raison pour laquelle ma fonction n'est pas générique (je ne traite qu'un séparateur, les dates sont données au même format, il y a toujours le moment de la journée suivi de AM ou de PM). La transformation de la chaine en date permet de récupérer n'importe quelle donnée de cette date (jour, mois, année, heures, minutes, secondes) sans avoir besoin d'artifices tels que tableaux et paramètres proposés par ailleurs, et permet donc le traitement des dates récupérées avec les fonctions natives d'Excel ou de VBA, telles que année(), mois(), jour(),...), voire même de DateDif (fonction non documentée d'Excel) ou DateDiff (VBA).

L'illustration suivante permet de visualiser l'utilisation de la fonction dans Excel, et la liste déroulante des formats illustre bien que nous sommes en présence d'une valeur de type date/heure. Je pense qu'avec cela, Spy a toutes les cartes en mains.

Pièce jointe 303920

Spy, pour ma curiosité personnelle, d'où proviennent ces dates au format "inhabituel"?
Bonjour,

j'apprécie de vous lire et j'essaye de prendre les bons conseils pour les appliquer.

Ces datent sont extraient d'un outil de ticketing JIRA.
Je n'explique pas pourquoi certaines datent ont un format différent...

Merci beaucoup à vous, je vais continuer de re-re-relire vos propositions.