XL 2013 [Résolu] Extraire un mot dans une chaîne de caractères

[Lone-wolf]

Bonjour à tous

Dans le classeur joint, j'aimerais extraire un mot sous condition, dans une chaîne de caractères. Le mot à chercher est "beau" en C2, mais peut être n'importe quel mot.

J'éssaie de prendre exemple sur les fonctions personnalisées de Jacques Boisgontiers qui utilise vbscript.regexp. La macro est dans le Module 4.

 

[Staple1600]

Bonjour Lone-Wolf

Quelle feuille du classeur est concernée?

 

[Lone-wolf]

Bonjour Jean Marie

Et merci d'avoir répondu. La feuille en question est la feuille active "Rechercher un mot dans un texte".

 

[Staple1600]

Re

La présence des autres feuilles surnuméraires m'a troublé.

Et pourquoi RegExp ici plutôt que Find?

 

[Lone-wolf]

Re

@Staple1600

Et bien, vu que les autres fonctions l'utilise, je me suis basé sur ça. Rien n'empèche d'utiliser Find pour cet exemple.

 

[Lone-wolf]

Re Jean Marie

@Staple1600

En attendant, j'ai fait comme ceci.

Option Explicit
'Rechercher et extraire un mot dans une chaîne de caractères

Sub Rech_Mot()
Dim plage As Range, cel As Range, mot$, txt$

   With Sheets(4)
       Set plage = .Range("a2:a" & .Range("a" & .Rows.Count).End(xlUp).Row)
       mot = .Range("c2").Value
   End With

   For Each cel In plage
        If RechMot(LCase(cel.Value), LCase(mot)) Then
        cel.Offset(0, 1) = mot
        Else
           MsgBox mot & " n'est pas dans la phrase.", , "ERREUR"
           Exit For
        End If
    Next cel
End Sub

Function RechMot(txt As String, mot As String) As Boolean
Dim Pos&

    Pos = 0

    Pos = InStr(txt, mot)

    RechMot = Pos > 0

End Function

 

[job75]

Bonsoir Lone-wolf, JM,

Pas besoin de boucle, ceci est très rapide :

Private Sub Worksheet_Change(ByVal Target As Range)
If FilterMode Then ShowAllData 'si la feuille est filtrée
Application.ScreenUpdating = False
Application.EnableEvents = False
With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row + 1)
    .Resize(Rows.Count - 1).ClearContents 'RAZ
    .Formula = "=REPT(""Oui"",ISNUMBER(SEARCH(C$2,A2)/LEN(C$2)))"
    .Value = .Value 'supprime les formules
End With
Application.EnableEvents = True
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

Fichier joint.

A+

 

[Lone-wolf]

Bonjour job75, le Forum

Oui, tu as raison. Même Jean Marie m'avait donné un exemple sur (Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).
Mais moi des fois...

En tout cas merci pour la solution.

 

[pierrejean]

Bonjour à tous
J'avais un peu exploré et je m’étais heurté aux exemples cités

 

[Lone-wolf]

Bonjour pierrejean

Merci à toi aussi.

 

[job75]

Bonjour Lone-wolf, JM, Pierre,

Oui Pierre dans mon fichier (1) la chaîne de caractères est recherchée où qu'elle soit.

Avec ce fichier (2) c'est le mot qui est recherché.

Avec une formule un peu compliquée pour délimiter le mot :

.Formula = "=REPT(""Oui"",ISNUMBER(SEARCH("" ""&C$2&"" "","" ""&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"","","" ""),""."","" ""),CHAR(133),"" "")&"" "")/LEN(C$2)))"

Intéressant le coup des 3 points non ?

A+

 

[Lone-wolf]

Bonjour job75

@job75

Intéressant le coup des 3 points non ?

Qu'est-ce que tu veux, on a tous nos faiblesses. Personne est parfait.

 

[Lone-wolf]

Re job75

@job75

Et moi qui croyait que tu parlait des 3 points ici "Mais moi des fois..."

 

[job75]

Re,

Noter que la longueur de ma dernière formule n'augmente pas beaucoup la durée du calcul :

- formule du post #7 => 0,15 millième de seconde (pour une cellule)

- formule du post #11 => 0,17 millième de seconde.

A+

 

[Lone-wolf]

Bonjour job75

Oui, effectivement la différence est comme une goutte dans l'océan.