Discussion :

[csempere]

Bonjour,
J'essaie de tester le premier mot d'une ligne et s'il s'agit de Entendre, je voudrais sortir de la procédure. J'ai mis cela mais ça ne marche pas. Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set PremierMot = Selection.Words(1)
If PremierMot = "Entendre" Then Exit Sub

PS : Si j'intercalle un MsgBox (PremierMot) entre les deux lignes, PremierMot est bien égal à Entendre.

[Heureux-oli]

Salut,

C'est probablement lié à l'espace qui se trouve derrière le mot.
Par contre, tu attribues le mot avec Set ?
Set est réservé à l'affectation des objets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim(ActiveDocument.Paragraphs(1).Words(1).Range.Text) = "Entendre" Then MsgBox "Ok"

[csempere]

Merci pour la rapidité de ta réponse.
Le test fonctionne à merveille.
Merci encore.