Extraire d'une cellule plusieurs chaines de caractères entre 2 caractères =/=

Résolu

Caractère

LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 18 févr. 2020 à 19:07

Bonjour,

J’aurais voulu savoir s’il est possible dans Excel d’extraire d’une cellule contenant une chaîne de caractères, toutes les chaines de caractères contenues entre deux caractères définis.

Par exemple dans une cellule j’ai la chaîne suivante :
graphisme - #sketchnote - Education ; e-learning ; rédacteur @tt (https://t.co/rrFis22gB) - #cercleAPI
Je voudrais extraire dans la cellule adjacente seulement les chaines de caractères commençant par "#" et finissant par " " dans l'exemple seulement #sketchnote #cercleAPI

1/ J’ai déjà trouvé sur le forum plusieurs formules qui ne marchent que pour le premier # ou lorsque les hashtags se suivent

2/ J’ai essayé de définir une fonction grâce à un code VBA trouvé ici https://excel-malin.com/codes-sources-vba/extraire-chaine-de-caracteres-delimitee/ qui me donne le résultat suivant :

sketchnote - Education ; e-learning ; rédacteur @tt (https://t.co/rrFis22gB) - #cercleAPI

Je ne sais pas comment modifier le code pour positionner la fin des chaînes à extraire correctement et faire recommencer l’opération tant qu’il reste des # dans la cellule.

Merci d’avance pour votre aide.

Configuration: Windows / Chrome 79.0.3945.130

Afficher la suite

A voir également:

Excel extraire texte entre deux caractères
Nombre de jours entre deux dates excel - Guide
Extraire une video youtube - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Extraire texte d'une image - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour, peux-tu partager ton code VBA, en utilisant les balises de code?
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
suggestion:

Function lucie(entree As String) As String
Dim regle As RegExp, retour As Match
Set regle = New RegExp
regle.Pattern = "#[^\s]+\s?"
regle.Global = True
For Each retour In regle.Execute(entree)
    lucie = lucie + CStr(retour.Value)
Next retour
End Function

qui demande d'ajouter "Microsoft VBScript Regular Expressions" dans les références du projet

LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Merci de ton retour. Je mets ci-après le code que j'ai utilisé trouvé sur excel-malin.com. J'espère que j'ai bien inséré le code car je n'ai pas trouvé vba dans la liste des langages.

Je te tiens informé dès que j'ai testé ce que tu m'as envoyé.

Public Function ExtraireChaineDelimitee(ChaineSource As String, Optional LimiteAvant As String = "", Optional LimiteApres As String = "")
'par: Excel-Malin.com ( https://excel-malin.com )

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention

merci. il faut utiliser "basic" pour le vba.
entretemps, j'ai ajouté une suggestion.

LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Bonsoir,

Je viens d'essayer et ça marche super bien où que soit placée la sous-chaîne dans la chaîne ! Merci !

PS: J'ai mis un peu de temps à trouver comment ajouter "Microsoft VBScript Regular Expressions" dans les références donc pour ceux que ça pourra aider c'est dans outils / références / puis cocher Microsoft VBScript Regular Expressions 5.5

Je vais essayer d'adapter moi-même le code pour faire pareil pour les chaînes précédées de @ merci encore !

Bonne soirée

Réponse 2 / 2

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

Bonjour

Fonction possible :

Function extract(plage As Range)
chaine = Application.WorksheetFunction.Substitute(plage, ";", "-")
 dec = Split(chaine, " - ")
 For n = 0 To UBound(dec)
 If Left(dec(n), 1) = "#" Then result = result & dec(n) & " "
 Next
 extract = result
End Function

On remplace d'abord le ; par un -
On découpe la chaine selon les -
On boucle sur les items découpés et on concatène ceux commençant par #

Cdlmnt
Via

LucieDiter Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Ca marche aussi très bien merci en effet !

Si je comprends bien en fait soit on découpe la chaîne initiale, soit on parcourt la chaîne !

Merci à tous !

Lucie

Discussions similaires

Supprimer caractères spéciaux

VBA ne reconnait plus les caractères spéciaux

Mot de passe alphanumérique c'est quoi ?

Partage sur messenger impossible

Recherche multiples de chaine de caractère et formule matricielle

Comment extraire une chaîne de caractères qui se trouve avant caractère #

Votre réponse

Discussions similaires