Discussion :

[Snooz4]

Bonjour,

Étant débutant en VBA, je me permets de venir vers vous au sujet d'un problème que je rencontre.

J'extrait chaque jours différentes lignes qui ressemblent à cela, ces lignes sont différentes chaque jours :

0.18M of {KFW 2.625 16/08/2019 Corp allq <go>} / -0.56 YtM
0.345M of {KFW 0.875 18/03/2019 Corp allq <go>} / -0.643 YtM
0.21M of {KFW 1.125 15/01/2020 Corp allq <go>} / -0.531 YtM

Mon problème est le suivant, je souhaiterais créer une macro me permettant de conserver ces lignes mais modifier le format de la date en anglais.

Que je puisse, à l'aide d'un bouton click, obtenir ceci :

0.18M of {KFW 2.625 08/16/2019 Corp allq <go>} / -0.56 YtM
0.345M of {KFW 0.875 03/18/2019 Corp allq <go>} / -0.643 YtM
0.21M of {KFW 1.125 01/15/2020 Corp allq <go>} / -0.531 YtM

Un ami m'a donc donné ce code mais je n'arrive pas à l'automatiser :

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
Function ModifChaineDate_ENFormat(strToModif As String, strRepere As String, dteLen As Integer, dteFormat As String) As String
 
    ''
    '
    '
    'Modifie la date dans la chaine de caractère et retourner la chaine
 
    Dim OldCh As String, NewCh As String
    Dim startD, endD, lenCh, dte
 
    OldCh = strToModif
    lenCh = Len(strToModif)
 
    startD = InStr(1, OldCh, strRepere, vbTextCompare) - dteLen - 1 'Moins 1 pour l'espace
    endD = InStr(1, OldCh, strRepere, vbTextCompare) - 2
    dte = Mid(OldCh, startD, dteLen)
    dte = VBA.Format(dte, dteFormat)
 
    NewCh = Left(OldCh, startD - 1) & dte & Right(OldCh, lenCh - endD)
 
 
    ModifChaineDate_ENFormat = NewCh
 
End Function

Cependant, je n'arrive pas à automatiser cette macro.
Il faudrait que les données que j'extrait en colonne W apparaissent automatiquement en colonne X avec le bon format de date ?
J'ai de multiple ligne, l'idéal serait que la macro tourne jusqu'à que la prochaine ligne soit vide.

J'espère que quelqu'un pourra m'aider...

Je vous remercie, à bientôt

[Theze]

Bonjour,

Une piste, exécuter la Sub "Test" :

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 Test()
 
    Dim Tbl(1 To 3) As String
    Dim i As Integer
 
    Tbl(1) = "0.18M of {KFW 2.625 16/08/2019 Corp allq <go>} / -0.56 YtM"
    Tbl(2) = "0.345M of {KFW 0.875 18/03/2019 Corp allq <go>} / -0.643 YtM"
    Tbl(3) = "0.21M of {KFW 1.125 15/01/2020 Corp allq <go>} / -0.531 YtM"
 
    For i = 1 To 3: MsgBox Inverser(Tbl(i)): Next i
 
End Sub
 
Function Inverser(Chaine As String) As String
 
    Dim T
    Dim A As String
    Dim B As String
    Dim C As String
 
    T = Split(Chaine, "/")
    A = Format(Right(T(0), 2), "00")
    B = Format(T(1), "00")
    C = Left(T(2), 4)
 
    T = Split(Chaine, CDate(B & "/" & A & "/" & C))
 
    Inverser = T(0) & B & "/" & A & "/" & C & T(1)
 
End Function

[MarcelG]

Bonjour Snooz, Bonjour le Forum,

Salut THEZE, ravi de te retrouver.

Une piste plus "triviale"
Utiliser la méthode de chaîne de caractère

Code :

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

Instr

En fonction de la position trouvée du caractère délimiteur de date "/",
- calculer la date au bon format
- reconstituer la chaîne de caractères.

[Theze]

Hello Marcel !

Heureux de te lire (mais je suis aussi tes différents messages d'intervention !)

Une piste plus "triviale"
Utiliser la méthode de chaîne de caractère

effectivement avec Instr() et InstrRev() mais aussi avec bien d'autres façons de faire

[MarcelG]

Salut Theze,

J'attends un peu pour livrer le code. Le temps que notre ami Snooz se manifeste.
Mais rien de bien compliqué.

A plus Theze

[Snooz4]

Bonjour,

Merci pour vos réponses et désolé pour le retard.. La grippe m'a eu

J'ai essayé avec cela :

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
Function ModifChaineDate_ENFormat(strToModif As String, strRepere As String, dteLen As Integer, dteFormat As String) As String
 
                                    ''
                                    '
                                    '
                                    '
                                    'Modifie la date dans la chaine de caractère et retourner la chaine
 
                                    Dim OldCh As String, NewCh As String
                                    Dim startD, endD, lenCh, dte
 
                                    OldCh = strToModif
                                    lenCh = Len(strToModif)
 
                                    startD = InStr(1, OldCh, strRepere, vbTextCompare) - dteLen - 1 'Moins 1 pour l'espace
                                    endD = InStr(1, OldCh, strRepere, vbTextCompare) - 2
                                    dte = Mid(OldCh, startD, dteLen)
                                    dte = VBA.Format(dte, dteFormat)
 
                                    NewCh = Left(OldCh, startD - 1) & dte & Right(OldCh, lenCh - endD)
 
 
                                    ModifChaineDate_ENFormat = NewCh
 
End Function

Qui semble fonctionner avec une procédure test, seulement je n'arrive pas à l'automatiser...

Je recupère les données dans la colonne W sous cette forme :

0.18M of {KFW 2.625 16/08/2019 Corp allq <go>} / -0.56 YtM

Et souhaiterais récupérer le résultat en colonne X.

[Patrice740]

Bonjour,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
Function ModifChaineDate_ENFormat(strToModif As String) As String
' Modifie la date dans la chaine de caractère et retourner la chaine
Dim T, D
  T = Split(strToModif, " ")
  D = Split(T(4), "/")
  T(4) = D(1) & "/" & D(0) & "/" & D(2)
  ModifChaineDate_ENFormat = Join(T, " ")
End Function

[MarcelG]

Bonjour Patrice,

Certes ton code est rigoureux.
Au demeurant, les données à modifier comportant des espaces, il faut être sûr que le tableau Split soit bien alimenté.
Autrement dit, que le nombre d'espace (au moins jusqu'à la date) soit le même pour toutes les cellules.
Dans ce cas, la première occurrence à utiliser serait à une place ultérieure.

[Patrice740]

Bonjour Marcel,

... Dans ce cas, la première occurrence ...

Effectivement, si l'exemple n'est pas bon, mais c'est aussi le cas avec Instr si l'élément cherché ...

[patricktoulon]

Bonjour
si le format des chaines est constants alors simplement un petit split, un replace

dans un module standard tu colle ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Public Function dateInversee(ByVal cel As Range)
   Dim dat As String
   If InStr(cel.Value, " Corp ") > 0 Then
        dat = Right(Split(cel.Value, " Corp")(0), 10)
        dateInversee = Replace(cel.Value, dat, Format(dat, "mm/dd/yyyy"))
    Else
        dateInversee = ""
    End If
End Function

et dans les cellules de destination tu met
cette simple formule
exemple en H1 pour modifier la cellule A1 tu met :

=dateInversee(A1)

bien sur la fonction est utilisable par vba

Code :

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

1
2
3
Sub test()
MsgBox dateInversee([A1])
End Sub

demo

[patricktoulon]

re
et si !!!! le format n'est pas constant alors on sort l'artillerie lourde

toujours pareil dans un module standard

Code :

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

1
2
3
4
5
6
7
8
Public Function dateInversee2(ByVal mavar As String)
    Dim matchs
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = "(\d+)\/(\d+)\/(\d+)"
        Set matchs = .Execute(mavar)
        If matchs.Count > 0 Then dateInversee2 = Replace(mavar, matchs(0), Format(matchs(0), "mm/dd/yyyy")) Else dateInversee2 = "Nofound Date!!"
    End With
End Function

la formule c'est la meme chose

=dateInversee2(A1)

et toujours utilisable par VBA

Code :

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

1
2
3
Sub test()
    MsgBox dateInversee2([A1])
End Sub

DEMO