Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Extraction de mots

Extraction de mots

6 réponses
Avatar
doom
Bonsoir le forum

Comment en vba extraire des mots spécifique d'un texte ?
Il peut y avoir plusieurs mots différents.

Par exemple :
les chiens aboient et la caravane passe.

Extraire les mots aboient et passe. :'(

ou Chien etc...

--
doom ;o)
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut doom,

Pourrais-tu préciser ce que tu veux obtenir ?
Tu veux savoir si tel ou tel mot est dans une phrase ?

Serge


"doom" a écrit dans le message de news:

Bonsoir le forum

Comment en vba extraire des mots spécifique d'un texte ?
Il peut y avoir plusieurs mots différents.

Par exemple :
les chiens aboient et la caravane passe.

Extraire les mots aboient et passe. :'(

ou Chien etc...

--
doom ;o)



Avatar
garnote
Sub Nimporte_Quoi_1()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) <> 0 Then ch = ch & " " & v(i)
Next i
MsgBox ch
End Sub

Sub Nimporte_Quoi_2()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) = 0 Then
MsgBox "Le mot «" & v(i) & "» n'est pas là."
Else
MsgBox "Le mot «" & v(i) & "» est là."
End If
Next i
End Sub












"garnote" a écrit dans le message de news:
Ggurc.4919$
Salut doom,

Pourrais-tu préciser ce que tu veux obtenir ?
Tu veux savoir si tel ou tel mot est dans une phrase ?

Serge


"doom" a écrit dans le message de news:

Bonsoir le forum

Comment en vba extraire des mots spécifique d'un texte ?
Il peut y avoir plusieurs mots différents.

Par exemple :
les chiens aboient et la caravane passe.

Extraire les mots aboient et passe. :'(

ou Chien etc...

--
doom ;o)







Avatar
doom
Sub Nimporte_Quoi_1()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) <> 0 Then ch = ch & " " & v(i)
Next i
MsgBox ch
End Sub

Sub Nimporte_Quoi_2()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) = 0 Then
MsgBox "Le mot «" & v(i) & "» n'est pas là."
Else
MsgBox "Le mot «" & v(i) & "» est là."
End If
Next i
End Sub


Merçi de vos réponses, c'est exactement ça que je voulais. Super
Bon week-end

--
doom ;o)

Avatar
doom
Il se trouve que doom a formulé :
Sub Nimporte_Quoi_1()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) <> 0 Then ch = ch & " " & v(i)
Next i
MsgBox ch
End Sub

Sub Nimporte_Quoi_2()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) = 0 Then
MsgBox "Le mot «" & v(i) & "» n'est pas là."
Else
MsgBox "Le mot «" & v(i) & "» est là."
End If
Next i
End Sub


Merçi de vos réponses, c'est exactement ça que je voulais. Super
Bon week-end


Merçi garnote :D

--
doom ;o)


Avatar
garnote
Ce machin :
InStr(1, texte, v(i), 0)
distingue les minuscules des majuscules
mais pas ce truc :
InStr(1, texte, v(i), 1)

Bonne fin de semaine

Serge







"doom" a écrit dans le message de news:

Il se trouve que doom a formulé :
Sub Nimporte_Quoi_1()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) <> 0 Then ch = ch & " " & v(i)
Next i
MsgBox ch
End Sub

Sub Nimporte_Quoi_2()
texte = "les chiens aboient et la caravane passe"
cherche = "chiens,caravane,Sahara,aboient"
v = Split(cherche, ",")
For i = 0 To UBound(v)
If InStr(1, texte, v(i), 0) = 0 Then
MsgBox "Le mot «" & v(i) & "» n'est pas là."
Else
MsgBox "Le mot «" & v(i) & "» est là."
End If
Next i
End Sub


Merçi de vos réponses, c'est exactement ça que je voulais. Super
Bon week-end


Merçi garnote :D

--
doom ;o)





Avatar
doom
garnote avait écrit le 21/05/2004 :
Ce machin :
InStr(1, texte, v(i), 0)
distingue les minuscules des majuscules
mais pas ce truc :
InStr(1, texte, v(i), 1)

Bonne fin de semaine

Serge


Merçi bien Serge

--
doom ;o)