Discussion :

[alicemv]

Bonjour,
J'ai récupéré une macro "extrairechainedelimitee" que j'ai adapté à mes besoins (fichier en pj - macro créer Lien_doclie) et qui fonctionne très bien. Mais j'ai maintenant besoin qu'elle s'applique plusieurs fois dans un champ multivalué avec "£"comme séparateur. J'ai besoin que les résultats des champs multivalués s'affichent séparés par des points-virgules.
Je suis nulle en VB. Une âme charitable pourrait-elle m'aider?
Merci d'avance
Alice

[Ben_L]

Bonjour,

Je n'ai pas regardé votre code, mais sur le principe, la fonction Split permet de transformer une chaîne de caractères en un tableau de chaînes, en utilisant un séparateur. Il suffit ensuite de traiter chaque chaîne du tableau obtenu puis de concaténer le tout.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
Function ChnDlmtMltv(Str As String) As String
    Dim Tabl As Variant, i As Long
    Tabl = Split(Str, "£")
    For i = 0 to Ubound(Tabl)
        ChnDlmtMltv = ChnDlmtMltv & extrairechainedelimitee(Tabl(i)) & ";"
    Next i
    ChnDlmtMltv = Left(ChnDlmtMltv, Len(ChnDlmtMltv) - 1)
End Function

Ce sera bien évidemment à adapter à vos besoins.

Cdt

[Menhir]

On peut faire la même chose de façon beaucoup plus simple :

Code :

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

1
2
3
Function ChnDlmtMltv(Source As String) As String
    ChnDlmtMltv = Replace(Source, "£", ";")
End Function

[Ben_L]

On peut faire la même chose de façon beaucoup plus simple [..]

Bonjour Menhir,

La solution que vous proposée est effectivement bien plus simple, mais :

j'ai maintenant besoin qu'elle s'applique plusieurs fois dans un champ multivalué

elle ne permet pas d'appliquer la macro extrairechainedelimitee aux différents sous-champs.
Sans avoir vu le code initial, difficile de dire si cela a une importance ou pas...

[alicemv]

Bonjour,
Merci bien pour vos réponses.
Il me faut en effet traiter les données séparées par "£" comme des chaines différentes.
Désolée pour le fichier joint, voici le code :

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
32
33
34
35
36
 
Public Function ExtraireChaineDelimitee(ChaineSource As String, Optional LimiteAvant As String = "", Optional LimiteApres As String = "")
'par: Excel-Malin.com ( <a href="https://excel-malin.com" target="_blank">https://excel-malin.com</a> )
 
On Error GoTo FunctionErreur
If InStr(1, ChaineSource, LimiteAvant) = 0 Then
    ExtraireChaineDelimitee = CVErr(xlErrNA)
    Exit Function
Else
    ExtraitPositionDebut = InStr(1, ChaineSource, LimiteAvant) + Len(LimiteAvant)
End If
 
If LimiteApres = "" Then
    ExtraitPositionFin = Len(ChaineSource)
Else
    ExtraitPositionFin = InStr(1, ChaineSource, LimiteApres) - 1
End If
ExtraireChaineDelimitee = Mid(ChaineSource, ExtraitPositionDebut, ExtraitPositionFin - ExtraitPositionDebut + 1)
Exit Function
 
FunctionErreur:
    ExtraireChaineDelimitee = CVErr(xlErrNA)
    'ExtraireChaineDelimitee = ""
End Function
#
#
Sub crée_LIEN_DOCLIE()
'
' crée_LIEN_DOCLIE Macro
' crée lien_doclie
'
    ActiveCell.FormulaR1C1 = "=ExtraireChaineDelimitee(RC[-1],,""<titre>"")"
    ActiveCell.FormulaR1C1 = _
        "=""https://gertrude-diffusion.laregion.fr/dossinventaire""&ExtraireChaineDelimitee(RC[-1],,""<titre>"")"
    Range("C3").Select
End Sub