Rechercher un mot a l'aide de la fonction instr
Fermé
totti1017
-
Modifié par pijaku le 6/02/2016 à 19:36
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 9 févr. 2016 à 02:41
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 9 févr. 2016 à 02:41
A voir également:
- Rechercher un mot a l'aide de la fonction instr
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Piratage facebook changer mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
2 réponses
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
6 févr. 2016 à 06:59
6 févr. 2016 à 06:59
Bonjour
ceci peut-être
Cdlt
ceci peut-être
Option Compare Text
Sub TrouverCourrier()
Dim Cible1 As String
Dim Cible2 As String
Dim Texte As String
Dim p As Boolean
Cible1 = "Confirmation"
Cible2 = "Courrier"
Selection.WholeStory
Texte = Selection
If InStr(1, Texte, Cible1) <> 0 Or InStr(1, Texte, Cible2) <> 0 Then p = "true" Else: p = "false"
MsgBox (p)
End Sub
Cdlt
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
9 févr. 2016 à 02:41
9 févr. 2016 à 02:41
Bonjour
Ceci va rechercher la cible dans la première ligne trouvée du document
A tester
Cdlt
Option Compare Text
Sub TrouverCourrier()
Dim Cible1 As String
Dim Cible2 As String
Dim Texte As String
Dim p As Boolean
Cible1 = "Confirmation"
Cible2 = "Courrier"
Selection.HomeKey Unit:=wdStory
Selection.Paragraphs(1).Range.Select
Texte = Selection
If InStr(1, Texte, Cible1) <> 0 Or InStr(1, Texte, Cible2) <> 0 Then p = "true" Else: p = "false"
MsgBox (p)
End Sub
Ceci va rechercher la cible dans la première ligne trouvée du document
A tester
Cdlt
8 févr. 2016 à 09:22
Merci beaucoup de votre réponse cela marche. J'ai une dernière question comment je pourrai cibler cette recherche juste sur le "coin" en haut a gauche de mon document
Cordialement