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

Staple1600

XLDnaute Barbatruc

• 9 Mai 2018

• #2

Bonjour Lone-Wolf

Quelle feuille du classeur est concernée?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Mai 2018

• #3

Bonjour Jean Marie

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2018

• #4

Re

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

Et pourquoi RegExp ici plutôt que Find?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Mai 2018

• #5

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.

 

Dernière édition: 9 Mai 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Mai 2018

• #6

Re Jean Marie

@Staple1600

En attendant, j'ai fait comme ceci.

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2018

• #7

Bonsoir Lone-wolf, JM,

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

Code:

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+

 

Pièces jointes

• Classeur(1).xlsm

  16.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #8

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.

 

Dernière édition: 10 Mai 2018

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2018

• #9

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

 

Pièces jointes

• Classeur(1).xlsm

  15 KB · Affichages: 23

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #10

Bonjour pierrejean

Merci à toi aussi.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mai 2018

• #11

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 :

Code:

.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+

 

Pièces jointes

• Classeur(2).xlsm

  15.9 KB · Affichages: 22

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #12

Bonjour job75

@job75

Intéressant le coup des 3 points non ?

Cliquez pour agrandir...

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

 

Dernière édition: 10 Mai 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #13

Re job75

@job75

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mai 2018

• #14

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+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #15

Bonjour job75

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

 

Vote positif 0 Vote négatif