A voir également:
- Extraction d'une sous chaine de caractere VBA
- Caractère spéciaux - Guide
- Excel extraire chaine de caractère après un caractère ✓ - Forum Excel
- Caractère invisible ✓ - Forum Windows
- Caractère spéciaux mac clavier - Guide
- Caractère ascii - Guide
1 réponse
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
Modifié par ccm81 le 26/09/2011 à 11:09
Modifié par ccm81 le 26/09/2011 à 11:09
bonjour
une proposition
bonne suite
une proposition
Const cle As String = "##RES##"
Const finmot As String = "##"
Public Function extract(ByVal s As String) As String
Dim p1 As Long, p2 As Long
If s = "" Then
extract = ""
Else
p1 = InStr(1, s, cle)
If p1 > 0 Then
s = Right(s, Len(s) - p1 - Len(cle) + 1)
p2 = InStr(1, s, finmot)
If p2 > 0 Then
extract = Left(s, p2 - 1) & ";" & extract(Right(s, Len(s) - p2 - 1))
Else
extract = s
End If
End If
End If
End Function
bonne suite
26 sept. 2011 à 11:26
Merci beaucoup !