Discussion :

[csempere]

Re-bonjour,
Je rencontre un autre petit problème :
J'ai une ligne que je dois encadrer de deux signets.
Cette ligne contient un champ déroulant.
Lorsque le champ est au point de départ (Choisissez un élément), il contient sur une seule ligne. Et ça marche.
Or, lorsque le texte du champ a été modifié, il ne contient plus sur une seule ligne et se prolonge en dessous. Et là, mes signets ne remontent plus assez.
Voilà mon code :

Code :

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

1
2
3
4
 
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Bookmarks.Add Name:=("percevoir01")

Existe-t-il une solution qui fonctionne dans les deux cas ?
Mille autres mercis par avance.

[Heureux-oli]

Salut,

Tu utilises beaucoup trop les objets sélections, c'est ce qui te perd.

Tu nous parles de deux signets, or dans ton code, je n'en vois qu'un seul ?

Pourrais-tu mettre un exemple sur le forum, ce serait plus facile pour la compréhension ?

[csempere]

Merci pour ta réponse.
Je suis daccord. Mais je comprends encore moins les Range.
Je joins mon fichier.
Pour le premier champ déroulant (Percevoir et produire), si je ne renseigne pas le champ, comme il est copié pour rajouter une ligne, tout va bien, je sais en rajouter ou en supprimer.
Mais si je choisis un des choix et surtout un long, là, ça ne marche plus.
Merci de ton attention.

[Heureux-oli]

Salut,

Même avec le document, je ne comprend toujours pas ce que tu veux faire ?

Pourquoi deux signets ?

Je vais tenter d'expliquer la différence entre un Range et un Selection.
L'objet Selection est ce que l'on voit à l'écran, et peut être étendu lorsque l'on utilise la souris.

L'objet range est la plage de donnée située quelque part.

Exemple :
Dans un document simple

Code :

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

1
2
ActiveDocument.Paragraphs(1).range.Select
MsgBox Selection.Text

Pour le range

Code :

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

msgbox ActiveDocument.Paragraphs(1).range.Text

Pas besoin de passer par la sélection, et rien ne se passe à l'écran.

[csempere]

Merci pour ta réponse,
J'ai fini par réussir en utilisant StartOf et Paragraph :

Code :

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

Selection.StartOf Unit:=wdParagraph, Extend:=wdMove

Tout fonctionne maintenant à merveille.
Merci encore pour ton aide.